03-11-15, 08:16 PM (آخر تعديل لهذه المشاركة : 03-11-15, 08:24 PM {2} بواسطة hamada salah90.)
هذا هو الكود
ومرفق مثال للتعديل
Dim dbADODB As New ADODB.Connection
Dim rsEMPL As New ADODB.Recordset
Private Sub Command1_Click()
If rsEMPL.EOF Then
Dim t
t = Format$(Date, "YYYYMMDD")
txtCode.Text = t + "1"
Exit Sub
Else
txtCode.Text = rsEMPL("code") + 1
Exit Sub
End If
End Sub
Private Sub Form_Load()
If dbADODB.State = adStateOpen Then dbADODB.Close
dbADODB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\GG.mdb" & ";"
rsEMPL.Open "select * from EMPL ", dbADODB, adOpenKeyset, adLockOptimistic