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

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


nabil2255

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

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

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

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

    DoCmd.GoToRecord , , acNewRec
End If

End Sub

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

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

 

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

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

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

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

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

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

جرب هذا الكود

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

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

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

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

السلام عليكم

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

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

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

قي تبويب

مطلوب : نعم 

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

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

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

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