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 Functionقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
