مساعدة في كود اكسس فيجوال بيسك

[mahmoud aymen]

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

شكرا لجهودكم 

عندي كود كاتبه في الديفولت فاليو لتكست معين كما هو موضح لكم : 

=IIf(IsNull(DMax("[رقم الفاتورة]","رأس الفاتورة","  [نوع الفاتورة]='بيع'  ")+1),1,DMax("[رقم الفاتورة]","رأس الفاتورة","  [نوع الفاتورة]='بيع'  ")+1)

فا احتاج من اخواني المبدعين تحويل الكود هذا بحيث استطيع استخدامه في اكواد  الفيجوال بيسك عن طريق الضغط على البوتون 

 

[Eng.Qassim]

وعليكم السلام..جرب هذا الكود

Private Sub cmdBotton_Click()
Dim HighestNumber As Long
If (Me.نوع_الفاتورة) = "بيع" Then
HighestNumber = Nz(DMax("[رقم الفاتورة]", "رأس الفاتورة")) + 1
Me.رقم_الفاتورة = HighestNumber
End If
End Sub

 

[mahmoud aymen]

Eng.Qassim

جزاك الله خير