ارجو التعديل على كود شرطي _ التنفيذ فقط عند وجود بيانات

[nabil2255]

السلام عليكم اخواني 

اريد التعديل على هذا الكود حيث اذا تحقق الشرط بادخال التسمية استطيع اضافة سجل جديد لانني لما ادخال التسمية والظغط على اضافة تظهر نفس رسالة التنبيه وشكراااا

Private Sub add1_Click()
If IsNull(txtName) Then
        MsgBox "ادخل التسمية", vbExclamation
            txtName.SetFocus
Else

    DoCmd.GoToRecord , , acNewRec
End If

End Sub

تم تعديل نوفمبر 28, 2018 بواسطه nabil2255

[Shivan Rekany]

13 ساعات مضت, nabil2255 said:

اريد التعديل على هذا الكود حيث اذا تحقق الشرط بادخال التسمية استطيع اضافة سجل جديد لانني لما ادخال التسمية والظغط على اضافة تظهر نفس رسالة التنبيه وشكراااا

جرب هذا

Private Sub add1_Click()
If len(me.txtName & "") = 0 Then
    MsgBox "ادخل التسمية", vbExclamation
    me.txtName.SetFocus
Else
	DoCmd.RunCommand acCmdSaveRecord
    DoCmd.GoToRecord , , acNewRec
End If

End Sub

 

[nabil2255]

اخي نفس المشكل 

اخي انا عندي مجموعة من الازرار ( حفظ ، اضافة ، التالي ، السابق) اريد عندما تكون خانة التسمية فارغ لا يتفذ الامر و تخرج رسالة تنبيه باجبارية ملأ التسمية و عند ملائها ينفذ الامر ارجوا ان يكون السؤال واضح اخي و براك الله فيك 

[cudi]

بعد اذن اخي شفان

Private Sub add1_Click()
If IsNull(me.txtName) Or me.txtName = "" Then
    MsgBox "ادخل التسمية", vbExclamation
    me.txtName.SetFocus
	Exit Sub
Else
	DoCmd.RunCommand acCmdSaveRecord
    DoCmd.GoToRecord , , acNewRec
End If
End Sub

جرب هذا الكود

تم تعديل نوفمبر 29, 2018 بواسطه cudi

[nabil2255]

اخي نفس المشكل اخي 

تم ارفاق الملف للتعديل

 

 

Anonace.rar

تم تعديل نوفمبر 29, 2018 بواسطه nabil2255

[cudi]

تفضل اخي العزيز

 

Anonace.rar

[nabil2255]

اخي مازال نفس المشكل فعند اضافة التسمية و الضط مرة اخرى على الزر تخرج نفس الرسالة

في حالة عدم ادخال التسمية واريد اغلاق النموذج كيف امنع عملية الحفظ التلقائية للملف وشكراا

[nabil2255]

بارك الله فيكم اخواني على المساعدة وجازكم الله كل خير و جعلكم ذخرنا لنا استاذتي الافاضلة 

الحمد لله تم الحل بارك الله فيكم جميعا 

[فارس بني هلال]

السلام عليكم

لا تحتاج الى اكواد ابدا

في تصميم الجدول(Imagetable) في الحقل (txtName)

من خصائص الجدول 

قي تبويب

مطلوب : نعم 

وتنتهي المشكلة 

مع تمنياتي لك بالتوفيق

[nabil2255]

بارك الله فيكم اخي فارس بني هلال

ممكن كود عند اضافة الملف او الصورة  و في حالة الخروج دون تسمية الملف لا يحفظ الصورة او الملف المضاف وشكراااا

[nabil2255]

ممكن

ممكن