استخدم هذا الكود في حدث الحالي
Private Sub Form_Current()
If Not IsNull(Me.EmployeeID) Then
Me.EmployeeID.Locked = True
Me.EmployeeID.Enabled = False
Me.EmployeeID.BackColor = vbYellow
Me.EmployeeID.ForeColor = vbRed
Else
Me.EmployeeID.Locked = False
Me.EmployeeID.Enabled = True
Me.EmployeeID.BackColor = vbWhite
End If
End Sub
وعليكم السلام..جرب هذا الكود
Private Sub cmdBotton_Click()
Dim HighestNumber As Long
If (Me.نوع_الفاتورة) = "بيع" Then
HighestNumber = Nz(DMax("[رقم الفاتورة]", "رأس الفاتورة")) + 1
Me.رقم_الفاتورة = HighestNumber
End If
End Sub
بالتاكيد استاذ احمد ..لان حقل الواصل نقدا ليس له علاقة بالفاتورة وانما قيمة مبلغ تقوم انت بكتابته
في حالتك فمن المفترض التحقق من الفاتورة قبل كتابة المبلغ المستلم ...او ان يتم تحويل الفاتورة الى مرتجع بيع
سؤالك وجيه استاذي @احمد الفلاحجي..فكرة استخدام Mid جاءتني بحدود ماموجود في السؤال..وبالتاكيد سوف لن تعمل في حدود سؤالك
شكرا لك استاذي العزيز ...وعلى قول استاذنا جعفر ان مشاركة اكثر من راي يفتق الاذهان
من وجهة نظري ..لا انصحك بها
في حالة البيع نقدا لزبون معين فلن يكون هناك مبلغ مستلم منه ...وبهذا سيظهر بان عليه مديونية ...طبعا يمكن تخطيها بان يكون معيار الدفع في الاستعلام (اجل)
لكن لماذا تصعب عليك الامور ؟
انا افضل ان تكون الفاتورة عامة في مثل تلك الحالات
انظر للمرفق استاذ احمد
جعلت الفاتورة باستلام جزء من المبلغ وعرض تقريرها مع تقرير لكل المديونية بدون تجميع حسب اسم الزبون لانك واضع حقل التاريخ
اما الجدول الثالث فيمكنك عمله كوصل قبض من الزبائن
test(2).accdb