mohazmer84 قام بنشر مارس 3, 2022 مشاركة قام بنشر مارس 3, 2022 السلام عليكم ورحمة الله وبركاتة عندي معضلة لم استطع حلها واتمنى من اعضاء المنتدا الكريم اجابتي لدي جدول راس الفاتورة ولدي جدول الزبائن تم انشاء نموزج من راس الفاتورة ولكن لا اريد ان اختار اسم الزبون من القئمة حصرا اريد اختيارة من القائمة اذا كان موجود مسبقا وان لم يكن موجود يقبل الحقل ان يضيفة (بدون انشاء نموزج اضافي لاضافة زبون جديد) كل الشكر لكم انا جديد في اكسس رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر مارس 3, 2022 مشاركة قام بنشر مارس 3, 2022 Dim strSql As String, x As Integer x = MsgBox("This book is not available, would you like to add it?", vbYesNo + vbDefaultButton1) If x = vbYes Then strSql = "Insert Into TBbook (Namebook) values ('" & NewData & "')" CurrentDb.Execute strSql Response = acDataErrAdded Else Response = acDataErrContinue End If End Sub 1 رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر مارس 3, 2022 مشاركة قام بنشر مارس 3, 2022 وعيلكم السلام يمكنك ذلك من حدث Not In List ONالخاص بمربع التحرير ضع الكود االتالي وجرب النتيجة ... Private Sub customerName_NotInList(NewData As String, Response As Integer) Dim dbsOrders As DAO.Database Dim rstCustomer As DAO.Recordset Dim intAnswer As Integer On Error GoTo ErrorHandler intAnswer = MsgBox("اضافة " & NewData & "الى قائمة الزبائن?", _ vbQuestion + vbYesNo) If intAnswer = vbYes Then Set dbsOrders = CurrentDb Set rstCustomer = dbsOrders.OpenRecordset("tblCustomer") rstCustomer.AddNew rstCustomer!customerName = NewData rstCustomer.Update Response = acDataErrAdded ' Requery the combo box list. Else Response = acDataErrDisplay ' Require the user to select ' an existing Customer. End If rstCustomer.Close dbsOrders.Close Set rstCustomer = Nothing Set dbsOrders = Nothing Exit Sub ErrorHandler: MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description End Sub رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان