سامر1972 قام بنشر سبتمبر 14, 2020 مشاركة قام بنشر سبتمبر 14, 2020 عايز طريقه او كود عند اضافه اسم مدينه جديده في النموذجfrmtbl_student غير موجوده في القائمه يضافه الي القائمه والجدول tbl_city school.accdb رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد أبوعبدالله قام بنشر سبتمبر 14, 2020 أفضل إجابة مشاركة قام بنشر سبتمبر 14, 2020 تفضل اخي الكريم 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 تحياتي 2 رابط هذا التعليق شارك More sharing options...
سامر1972 قام بنشر سبتمبر 14, 2020 الكاتب مشاركة قام بنشر سبتمبر 14, 2020 (معدل) شكرا لحضرتك ولاكن الكود لا يعمل 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 رابط هذا التعليق شارك More sharing options...
محمد التميمي قام بنشر سبتمبر 15, 2020 مشاركة قام بنشر سبتمبر 15, 2020 (معدل) من بعد اذن استاذ محمد اخي سامر الكود الاول يعمل بامتياز وقد أضفت لك اربع محافظات school.rar تم تعديل سبتمبر 15, 2020 بواسطه محمد التميمي رابط هذا التعليق شارك More sharing options...
سامر1972 قام بنشر سبتمبر 15, 2020 الكاتب مشاركة قام بنشر سبتمبر 15, 2020 شكرا لك ممكن شرخ الكود رابط هذا التعليق شارك More sharing options...
سامر1972 قام بنشر سبتمبر 15, 2020 الكاتب مشاركة قام بنشر سبتمبر 15, 2020 تم نقل الكود عندي ولكنه لا يعمل school.accdb 1 ساعه مضت, محمد التميمي said: من بعد اذن استاذ محمد اخي سامر الكود الاول يعمل بامتياز وقد أضفت لك اربع محافظات school.rar 27.64 kB · 1 تنزيلات تم اضافه الكود الي اكسس عندي ولم يعلم ومرسل القاعده بعد اضافه الكود school.accdb رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر سبتمبر 16, 2020 مشاركة قام بنشر سبتمبر 16, 2020 (معدل) 6 ساعات مضت, سامر1972 said: تم اضافه الكود الي اكسس عندي ولم يعلم غير خاصية LimitToList / الالتزام بالقائمة الى yes تحياتي تم تعديل سبتمبر 16, 2020 بواسطه محمد أبوعبدالله 1 رابط هذا التعليق شارك More sharing options...
سامر1972 قام بنشر سبتمبر 16, 2020 الكاتب مشاركة قام بنشر سبتمبر 16, 2020 شكرا لحضرتك تم حل المشكله وشكرا علي المساعدهه رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.