عدم ترك الحقل فارغ

[بلال اليامين]

السلام عليكم ورحمة الله وبركاته

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

   وعند ملء الحقول تظهر في رسالة التنبيه رقم الموظف والاسم

وطريقة انجز بحث

برنامج.rar

[Mo3taz3zzat]

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

هتيجي عند زر تحديث وتضيف كود IF يراجع على كل الحقول 

 If IsNull(field1) = True Then
        MsgBox "حقل 1 فارغ"
   
   else if Me.field2 ="" then
        MsgBox "حقل 2 فارغ"
   
   else if Me.field3 ="" then
        MsgBox "حقل 3 فارغ"
      
    Else
        MsgBox "اسم الموظف " & Me.txtEmplName.Value & vbNewLine & "رقم الموظف: " & Me.txtNumber.Value 
   
   	' Refresh code here
End If

 

مرفق قاعدة مثال بها الكود

Refresh.accdb

تم تعديل أغسطس 7, 2018 بواسطه Mo3taz3zzat
اضافة مرفق

[بلال اليامين]

طريقة وضع الكود في زر تحديث في البرنامج المرفق

Nouveau Microsoft Office A77777عدة بيانات.rar

[ابو ياسين المشولي]

اخي بلال اليامين 

 If IsNull(Forms![88555]!التعديل!usr_ID) = True Then
        MsgBox "رقم الموظف  فارغ"
   
   ElseIf Forms![88555]!التعديل!نص161 = "" Then
        MsgBox "حقل الاسم فارغ"
   
   ElseIf Forms![88555]!التعديل![142] = "" Then
        MsgBox "حقل اختيار مكان العمل فارغ"
      
    Else
        MsgBox "اسم الموظف " & Forms![88555]!التعديل!نص161 & vbNewLine & "رقم الموظف: " & Forms![88555]!التعديل!usr_ID
   
   Me.Refresh
End If

حاولت اعدلك الكود بما فهمته من كود الاخMo3taz3zzat

Nouveau Microsoft Office A77777عدة بيانات (1).rar

تم تعديل أغسطس 8, 2018 بواسطه ابو ياسين المشولي

[بلال اليامين]

السلام عليكم ورحمة الله وبركاته

اريد وضع هذا الكود في زر تحديث 

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

وعند  ملء الحقول تظهر له رسالة تنبيه  بالاسم الموظف ورقمه

لدي الكود ولم استطيع وضع في زر تحديث واليكم الكود و البرنامج 

 
   
 

الكود.rar

برنامج.rar

[jjafferr]

السلام عليكم اخي بلال

 

رجاء مواصلة الموضوع في هنا، وعدم فتح موضوع جديد لنفس الموضوع، فهذا فيه تشتت للأفكار!

وخصوصا ان معك من الاعضاء من يحاول مساعدتك، والكود الذي ارفقته هو كود الاخ @Mo3taz3zzat

 

جعفر

[ابو ياسين المشولي]

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

السلام عليكم اخي بلال

 

رجاء مواصلة الموضوع في هنا، وعدم فتح موضوع جديد لنفس الموضوع، فهذا فيه تشتت للأفكار!

وخصوصا ان معك من الاعضاء من يحاول مساعدتك، والكود الذي ارفقته هو كود الاخ @Mo3taz3zzat

 

جعفر

اخي jjafferr

انا حاولت اعدله الكود حسيب مافهمت

اطلع على على الملف المرفق

 

Nouveau Microsoft Office Access 2007 قاعدة بيانات.accdb

[بلال اليامين]

لدي كود اخر  بعثوا لي احد الاصدقاء

الكود.rar

[jjafferr]

يمكنك استخدام الكود التالي كذلك:

Private Sub أمر140_Click()


    Dim ctl As Control
    
    Str2 = ""
    For Each ctl In Me.التعديل.Controls
        If (ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox) Then
            If Len(ctl.Value & "") = 0 Or ctl.Value = 0 Then

                Str2 = Str2 & ctl.ControlSource & vbCrLf
            End If
        End If
    Next

    If Len(Str2 & "") <> 0 Then
        MsgBox "الحقول التالية فارغة" & vbCrLf & vbCrLf & Mid(Str2, 1)
        
    Else
    
        Me.Refresh
    End If
    
    
End Sub

.

والنتيجة

.

جعفر

944.Nouveau Microsoft Office Access 2007 قاعدة بيانات.accdb.zip

[بلال اليامين]

اخي اريد في عند ملء البيانات تظهر رسالة تنبيه  الاسم الموظف

 

[jjafferr]

تفضل

.

وهكذا اصبح الكود

Private Sub أمر140_Click()


    Dim ctl As Control
    
    Str2 = ""
    For Each ctl In Me.التعديل.Controls
        If (ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox) Then
            If Len(ctl.Value & "") = 0 Or ctl.Value = 0 Then

                Str2 = Str2 & ctl.ControlSource & vbCrLf
            End If
        End If
    Next

    If Len(Str2 & "") <> 0 Then
        MsgBox "الحقول التالية فارغة" & vbCrLf & _
               "للموظف " & Me.التعديل!نص161 & " " & Me.التعديل!نص62 & vbCrLf & vbCrLf & _
               Mid(Str2, 1)
        
    Else
        MsgBox "جميع الحقول كامله، سيتم الان حفظ بيانات" & vbCrLf & _
               "الموظف " & Me.التعديل!نص161 & " " & Me.التعديل!نص62
        Me.Refresh
    End If
    
    
End Sub

 

جعفر

944.1.Nouveau Microsoft Office Access 2007 قاعدة بيانات.accdb.zip

[بلال اليامين]

اخي جعفر بارك الله فيك اطلب من الله عز وجل ان يزيدك علم نافع