السلام عليكم ورحمة الله وبركاته
ياجماعة انا واخيييرا وبفضل الله ومنه ثم هذا المنتدى الرائع والمواضبع الا فيه استطعت اني اعمل برنامج لطباعة فواتير بيع كتب بس باقي لي شيء بيسط مو عارفتله وهو ابغي البرنامج يمنع للطالبة انها تشتري الكتاب اكثر من مررة
ففي نموذج الفاتورة عند اختيار رقم الكتاب وضعت الكود التالي :
Dim a
a = DLookup("[StdId]", "InvoiceQuery", "BNum=[BookNum]")
If Not (IsNull(a)) Then
MsgBox "The student has this book already", vbCritical
Cancel = -1
Else
[BookName] = DLookup("[BName]", "BooksTable", "BNum=[BookNum]")
[SalingPrice] = DLookup("[SaleingPrice]", "BooksTable", "BNum=[BookNum]")
End Ifحيث ان InvoiceQuery هو استعلام يجمع بين جدولين جدول Transactionو InvoiceHeader
والحقل StdId احد حقول جدول InvoiceHeader في حين ان
الحقل BNum احد حقول جدول Transaction
بس البرنامج يعطيني خطا في الدالة DlookUp
ياريت بليييز ومشكورة تساعدوني في حل هذي المشكلة .. او ايجاد طريقة ثانية لمنع الطالبة من شراء نفس الكتاب مرتين
ولكم مني خالص التقدير والاحترام