اذهب الي المحتوي
أوفيسنا

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


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

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

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

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

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

برنامج.rar

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

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

هتيجي عند زر تحديث وتضيف كود 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

تم تعديل بواسطه Mo3taz3zzat
اضافة مرفق
رابط هذا التعليق
شارك

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

 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

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

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

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

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

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

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

 
   
 

الكود.rar

برنامج.rar

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

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

 

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

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

 

جعفر

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

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

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

 

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

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

 

جعفر

اخي jjafferr

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

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

 

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

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

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

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.Clipboard01.jpg.e6207bfdfb4a4b335a1d0674f4fc1fc2.jpg

.

جعفر

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

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

تفضل

944.1.Clipboard01.jpg.f896e134ccc5e300029c3c981dd432ee.jpg

.

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

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

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information