[hamada salah90]

السلام عليكم ورحمة الله وبركاته

أساتذتي الكبار


أريد كود عرض أقل قيمة من جدول بقاعدة البيانات في تيكست بوكس

[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

[hamada salah90]

(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

شكرا جزيلا أخي الحبيب