اضافة الزبون في فاتورة مشتريات

[mohazmer84]

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

عندي معضلة لم استطع حلها واتمنى من اعضاء المنتدا الكريم اجابتي

لدي جدول راس الفاتورة ولدي جدول الزبائن 

تم انشاء نموزج من راس الفاتورة ولكن لا اريد ان اختار اسم الزبون من القئمة حصرا اريد اختيارة من القائمة اذا كان موجود مسبقا وان لم يكن موجود يقبل الحقل ان يضيفة (بدون انشاء نموزج اضافي لاضافة زبون جديد)

كل الشكر لكم انا جديد في اكسس 

[ازهر عبد العزيز]

 

 

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

 

[Eng.Qassim]

وعيلكم السلام

يمكنك ذلك من حدث 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