11-12-21, 10:32 PM
12-12-21, 05:27 AM
سواء تتعامل مع ADO أو DAO ـ فإن طريفة المعالجة واحدة ..
كود :
Private Sub Form_Load()
Text1.Text = MinNo
End Sub
Private Function MinNo()
Dim db1 As DAO.Database, Rs1 As DAO.Recordset, nMin As New DAO.Field
Set db1 = DBEngine.OpenDatabase("compny.mdb", False, False)
Set Rs1 = db1.OpenRecordset("Select Min(IDnum) As nMin From tbl1")
If Rs1!nMin <> "" Then
MinNo = Rs1!nMin
Else
MinNo = 0 ' على فرض أنها أصغر قيمة ممكنة
End If
Rs1.Close
db1.Close
End Function12-12-21, 11:12 PM
(12-12-21, 05:27 AM)Taha Okla كتب : [ -> ]سواء تتعامل مع ADO أو DAO ـ فإن طريفة المعالجة واحدة ..شكرا جزيلا أخي الحبيب
كود :
Private Sub Form_Load()
Text1.Text = MinNo
End Sub
Private Function MinNo()
Dim db1 As DAO.Database, Rs1 As DAO.Recordset, nMin As New DAO.Field
Set db1 = DBEngine.OpenDatabase("compny.mdb", False, False)
Set Rs1 = db1.OpenRecordset("Select Min(IDnum) As nMin From tbl1")
If Rs1!nMin <> "" Then
MinNo = Rs1!nMin
Else
MinNo = 0 ' على فرض أنها أصغر قيمة ممكنة
End If
Rs1.Close
db1.Close
End Function