سامر1972 قام بنشر سبتمبر 16, 2020 قام بنشر سبتمبر 16, 2020 الاخوه الافاضل اريد كود للعمل عند كتابه اسم طالب في مربع لبحث xxxوغير موجود في جدول الطلبهtbl_name يضاف الي جدول الطلبه والنموذجstudent مدرسه.accdbFetching info...
تمت الإجابة محمد أبوعبدالله قام بنشر سبتمبر 16, 2020 تمت الإجابة قام بنشر سبتمبر 16, 2020 السلام عليكم مرحبا اخي الكريم بدايةً : نموذج البحث يبجث في حميع الحقول وانت تريد اذا لم يتم العثور على نتائج يضيف القيمة ... حسناً ماذا لو بحثت عن الفصل او العمر وكان هذا الرقم غير موجود هل سيضفيه ؟ لا بد ان تراعي هذه الجزئية جيداً ثانياً : عند الاضافة فلن يتم اضافة باقي الحقول كالعمر والفصل وهذه الجزئية لا بد ان تراعي جيداً واليك اضافة القيمة الموجودة في مربع البحث في حقل الاسم Private Sub xxx_AfterUpdate() If Me.student.Form!txtCount > 0 Then Me.student.Requery Else mySQL = "INSERT INTO tbl_name(student_name) VALUES('" mySQL = mySQL & Me.xxx & "');" CurrentDb.Execute mySQL Me.student.Requery End If End Sub مدرسه.rarFetching info... تحياتي 1
سامر1972 قام بنشر سبتمبر 19, 2020 الكاتب قام بنشر سبتمبر 19, 2020 شكرا لحضرتك علي الاهتمام بس لي تعليق عند نقل الكود الي اي برنامج آخر لا يعمل
jjafferr قام بنشر سبتمبر 19, 2020 قام بنشر سبتمبر 19, 2020 اخي سامر انت ارسلت تقرير الى ادارة الموقع ، هكذا : . فهل هناك شكوى على هذه المشاركة ؟ جعفر
محمد أبوعبدالله قام بنشر سبتمبر 19, 2020 قام بنشر سبتمبر 19, 2020 في 19/9/2020 at 14:16, سامر1972 said: بس لي تعليق عند نقل الكود الي اي برنامج آخر لا يعمل Expand لاني غيرت اسم مربع تحرير وسرد الى xxx في 19/9/2020 at 15:02, jjafferr said: اخي سامر انت ارسلت تقرير الى ادارة الموقع ، هكذا : فهل هناك شكوى على هذه المشاركة ؟ جعفر Expand
سامر1972 قام بنشر سبتمبر 19, 2020 الكاتب قام بنشر سبتمبر 19, 2020 (معدل) في 19/9/2020 at 15:55, محمد أبوعبدالله said: في 19/9/2020 at 14:16, سامر1972 said: بس لي تعليق عند نقل الكود الي اي برنامج آخر لا يعمل Expand لاني غيرت اسم مربع تحرير وسرد الى xxx Expand مرسل لك قاعده جديده تم نقل الكود لها ولا يعمل تم تعديل سبتمبر 19, 2020 بواسطه سامر1972
محمد أبوعبدالله قام بنشر سبتمبر 19, 2020 قام بنشر سبتمبر 19, 2020 في 19/9/2020 at 20:09, سامر1972 said: مرسل لك قاعده جديده تم نقل الكود لها ولا يعمل Expand لا يوجد مرفقات تحياتي
سامر1972 قام بنشر سبتمبر 19, 2020 الكاتب قام بنشر سبتمبر 19, 2020 في 19/9/2020 at 15:55, محمد أبوعبدالله said: في 19/9/2020 at 14:16, سامر1972 said: بس لي تعليق عند نقل الكود الي اي برنامج آخر لا يعمل Expand لاني غيرت اسم مربع تحرير وسرد الى xxx Expand مرسل لك قاعده جديده تم نقل الكود لها ولا يعمل 123.accdbFetching info... في 19/9/2020 at 20:36, محمد أبوعبدالله said: في 19/9/2020 at 20:09, سامر1972 said: مرسل لك قاعده جديده تم نقل الكود لها ولا يعمل Expand لا يوجد مرفقات Expand قاعدة بيانات1.rarFetching info...
محمد أبوعبدالله قام بنشر سبتمبر 19, 2020 قام بنشر سبتمبر 19, 2020 تفضل اخي الكريم قاعدة بيانات1.rarFetching info... تحياتي 1
سامر1972 قام بنشر سبتمبر 19, 2020 الكاتب قام بنشر سبتمبر 19, 2020 في 19/9/2020 at 20:50, محمد أبوعبدالله said: تفضل اخي الكريم قاعدة بيانات1.rar 21.44 kB · 0 downloads Expand أين كانت المشكله
محمد أبوعبدالله قام بنشر سبتمبر 19, 2020 قام بنشر سبتمبر 19, 2020 في 19/9/2020 at 21:05, سامر1972 said: أين كانت المشكله Expand لديك قوس ناقص تحياتي 1
سامر1972 قام بنشر سبتمبر 22, 2020 الكاتب قام بنشر سبتمبر 22, 2020 في 19/9/2020 at 21:16, محمد أبوعبدالله said: في 19/9/2020 at 21:05, سامر1972 said: أين كانت المشكله Expand لديك قوس ناقص تحياتي Expand شكرا اخي الفاضل ممكن طلب اخر عتد جعل حقل ID في الجدول من نرقيم تلقائي الي رقم مربع البحث لا يضيف البيانات الجديده اريد طريقه لحل هذه المشكله من خلال النماذج وبدون التغير في الجدول ومرفق البرنامج بعد تغير الحقل الي رقم مدرسه جديد.rarFetching info...
محمد أبوعبدالله قام بنشر سبتمبر 22, 2020 قام بنشر سبتمبر 22, 2020 تفضل اخي الكريم Dim Xid As Integer Xid = Nz(DMax("[Id]", "tbl_name"), 0) + 1 mySQL = "INSERT INTO tbl_name (id,student_name) Values ('" & Xid & "', '" & Me.xxx & "');" CurrentDb.Execute mySQL Me.student.Requery مدرسه جديد.rarFetching info... تحياتي 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.