مربع بحث

[سامر1972]

الاخوه الافاضل

اريد كود للعمل عند كتابه اسم طالب في مربع لبحث xxxوغير موجود في جدول الطلبهtbl_name  يضاف الي جدول الطلبه  والنموذجstudent

مدرسه.accdb

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

السلام عليكم

مرحبا اخي الكريم

بدايةً : نموذج البحث يبجث في حميع الحقول وانت تريد اذا لم يتم العثور على نتائج يضيف القيمة ...

حسناً ماذا لو بحثت عن الفصل او العمر وكان هذا الرقم غير موجود هل سيضفيه ؟

لا بد ان تراعي هذه الجزئية جيداً

ثانياً : عند الاضافة فلن يتم اضافة باقي الحقول كالعمر والفصل وهذه الجزئية لا بد ان تراعي جيداً

واليك اضافة القيمة الموجودة في مربع البحث في حقل الاسم

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

مدرسه.rar

تحياتي

[سامر1972]

شكرا لحضرتك علي الاهتمام

بس لي تعليق عند نقل الكود الي اي برنامج آخر لا يعمل

[jjafferr]

اخي سامر

 

انت ارسلت تقرير الى ادارة الموقع ، هكذا :

.

فهل هناك شكوى على هذه المشاركة ؟

 

جعفر

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

1 ساعه مضت, سامر1972 said:

بس لي تعليق عند نقل الكود الي اي برنامج آخر لا يعمل

لاني غيرت اسم مربع تحرير وسرد الى xxx

51 دقائق مضت, jjafferr said:

اخي سامر

انت ارسلت تقرير الى ادارة الموقع ، هكذا :

فهل هناك شكوى على هذه المشاركة ؟

جعفر

[سامر1972]

4 ساعات مضت, محمد أبوعبدالله said:

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

بس لي تعليق عند نقل الكود الي اي برنامج آخر لا يعمل

لاني غيرت اسم مربع تحرير وسرد الى xxx

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

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

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

26 دقائق مضت, سامر1972 said:

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

لا يوجد مرفقات

تحياتي

[سامر1972]

4 ساعات مضت, محمد أبوعبدالله said:

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

بس لي تعليق عند نقل الكود الي اي برنامج آخر لا يعمل

لاني غيرت اسم مربع تحرير وسرد الى xxx

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

123.accdb

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

32 دقائق مضت, سامر1972 said:

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

لا يوجد مرفقات

 

قاعدة بيانات1.rar

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

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

قاعدة بيانات1.rar

تحياتي

[سامر1972]

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

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

قاعدة بيانات1.rar 21.44 kB · 0 downloads

أين كانت المشكله

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

11 دقائق مضت, سامر1972 said:

أين كانت المشكله

لديك قوس ناقص

تحياتي

[سامر1972]

في ١٩‏/٩‏/٢٠٢٠ at 23:16, محمد أبوعبدالله said:

في ١٩‏/٩‏/٢٠٢٠ at 23:05, سامر1972 said:

أين كانت المشكله

لديك قوس ناقص

تحياتي

شكرا اخي الفاضل

ممكن طلب اخر عتد جعل حقل ID في الجدول من نرقيم تلقائي الي رقم

مربع البحث لا يضيف البيانات الجديده

اريد طريقه لحل هذه المشكله من خلال النماذج وبدون التغير في الجدول

ومرفق البرنامج بعد تغير الحقل الي رقم

مدرسه جديد.rar

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

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

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

مدرسه جديد.rar

تحياتي

[سامر1972]

شكرا لك