طريقة اخفاء زر الطباعة و زر تأكيد الحفظ حتى يكمل ملء جميع الحقول

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

السلام عليكم

اريد طريقة اخفاء زر الطباعة و زر تأكيد الحفظ حتى يكمل ملء جميع الحقول

[amir_adam83]

If isnoll(Me.Text.Text = 0 Or Me.Text.Text = 0 Or Me.Text.Text = 0 Or Me.Text.Text = 0) Then
Me.Command1.Enabled = False
Else
Me.Command1.Enabled = True
End If

في حدث عند التحميل
If isnoll(Me.Text.Text = 0 Or Me.Text.Text = 0 Or Me.Text.Text = 0 Or Me.Text.Text = 0) Then
Me.Command1.Enabled = False
Else
Me.Command1.Enabled = True
End If

والله اعلم

 

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

اليك البرنامج لقد وضعت الكود ولم اسطيع

تاكيد حفظ البيانات.accdb

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

هل توجد طريقة اخفاء زر حفظ وزر الطباعة حتى يتمكن المستخدم مل جميع الحقول

[biskra]

في المثال المرفق جرب اصافة سجل جديد ستلاحظ أن زر الحفظ اختفى ثم أبدأ بتعبئة البيانات و عند آخر حقل " هنا يحتاج الى تعديل " ضع المؤشر على حقل آخر سوف يظهر زر الحفظ المثال يحتاج الى تعديل في كود الحفظ

زر الحفظ مخفي.rar

تم تعديل فبراير 11, 2021 بواسطه biskra

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

طريقة اخفاء زر حفظ وزر الطباعة حتى يتمكن المستخدم من ملء جميع الحقول 

وعند ملء يظهر زر الحفظ 

واريد عند طباعة المعلومات يجب ادخال الرمز والاسم واللقب وتفتح التقرير

تاكيد حفظ البيانات (1).accdb

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

هل توجد طريقة اخفاء زر الطباعة حتى يقوم المستخدم بملئ البيانات والضغط على زر تحديث

يظهر الزر 

[د.كاف يار]

تفضل هذا المثال اخي الكريم

 

اتاحة الطباعة.accdb

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

اخي بارك الله فيك اخي اين اضع اسم التقرير ليتم فتحه

[د.كاف يار]

10 دقائق مضت, بلال اليامين said:

اخي بارك الله فيك اخي اين اضع اسم التقرير ليتم فتحه

Dim msg1, msg2 As String
msg2 = "عزيزي المستخدم " & vbNewLine & "يجب ملئ جميع الحقول"
Dim ctl As Control
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Then
If IsNull(ctl) Or ctl = "" Then
           
           If msg1 = "" Then
                msg1 = vbNewLine & ctl.Name
           Else
                msg1 = msg1 & vbNewLine & ctl.Name
           End If
    End If
    End If
Next ctl
If msg1 = "" Then

            DoCmd.OpenReport "ضع هنا اسم التقرير", acViewPreview
        
Else
      MsgBox msg2 & vbNewLine & msg1, vbCritical + vbMsgBoxRight, "تنبيه"
End If