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

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

قام بنشر

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

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

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

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

برنامج.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

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