القوائم المنسدله

[سامر1972]

عايز طريقه او كود عند اضافه اسم مدينه جديده في النموذجfrmtbl_student غير موجوده في القائمه يضافه الي القائمه والجدول tbl_city

school.accdb

[محمد أبوعبدالله]

تفضل اخي الكريم

Private Sub city_NotInList(NewData As String, Response As Integer)
   Dim ctl As Control
   Dim strSQL As String
   Set ctl = Me!city
   
   If MsgBox(" اسم المدينة" & " / " & _
   Me.city.Text & " / ليس ضمن القائمة هل تريد إضافته ", _
      vbOKCancel, "officena") = vbOK Then
      
      Response = acDataErrAdded
      
      strSQL = "INSERT INTO  tbl_city(city) VALUES('"
      strSQL = strSQL & NewData & "');"
      
      CurrentDb.Execute strSQL
      
      MsgBox "تمت الاضافة ", , "officena"
   Else
      Response = acDataErrContinue
      ctl.Undo
   End If
End Sub

school.rar

تحياتي

[سامر1972]

شكرا لحضرتك ولاكن الكود لا يعمل

 Dim ctl As Control
   Dim strSQL As String
   Set ctl = Me!city

معنها

توضيح لها

28 دقائق مضت, محمد أبوعبدالله said:

تفضل اخي الكريم

Private Sub city_NotInList(NewData As String, Response As Integer)
   Dim ctl As Control
   Dim strSQL As String
   Set ctl = Me!city
   
   If MsgBox(" اسم المدينة" & " / " & _
   Me.city.Text & " / ليس ضمن القائمة هل تريد إضافته ", _
      vbOKCancel, "officena") = vbOK Then
      
      Response = acDataErrAdded
      
      strSQL = "INSERT INTO  tbl_city(city) VALUES('"
      strSQL = strSQL & NewData & "');"
      
      CurrentDb.Execute strSQL
      
      MsgBox "تمت الاضافة ", , "officena"
   Else
      Response = acDataErrContinue
      ctl.Undo
   End If
End Sub

school.rar 26.68 kB · 0 تنزيلات

تحياتي

 

تم تعديل سبتمبر 14, 2020 بواسطه سامر1972

[محمد التميمي]

من بعد اذن استاذ محمد

اخي سامر الكود الاول يعمل بامتياز وقد أضفت لك اربع محافظات

school.rar

تم تعديل سبتمبر 15, 2020 بواسطه محمد التميمي

[سامر1972]

شكرا لك

ممكن شرخ الكود

 

[سامر1972]

تم نقل الكود عندي ولكنه لا يعمل

school.accdb

1 ساعه مضت, محمد التميمي said:

من بعد اذن استاذ محمد

اخي سامر الكود الاول يعمل بامتياز وقد أضفت لك اربع محافظات

school.rar 27.64 kB · 1 تنزيلات

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

ومرسل القاعده بعد اضافه الكود

school.accdb

[محمد أبوعبدالله]

6 ساعات مضت, سامر1972 said:

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

غير خاصية LimitToList / الالتزام بالقائمة الى yes

 

 

 تحياتي

تم تعديل سبتمبر 16, 2020 بواسطه محمد أبوعبدالله

[سامر1972]

شكرا لحضرتك 

تم حل المشكله

وشكرا علي المساعدهه