اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


سامر1972
إذهب إلى أفضل إجابة Solved by محمد أبوعبدالله,

الردود الموصى بها

  • أفضل إجابة

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

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

تحياتي

  • Like 2
رابط هذا التعليق
شارك

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

 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 تنزيلات

تحياتي

 

تم تعديل بواسطه سامر1972
رابط هذا التعليق
شارك

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

school.accdb

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

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

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

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

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

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

school.accdb

رابط هذا التعليق
شارك

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

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

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

 

 1599517676_Screenshot2020-09-16023623.png.5c200047233c28caabd4eec40ad9ae4f.png

 تحياتي

تم تعديل بواسطه محمد أبوعبدالله
  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information