تفضل اصلا لا يوجد Label 40 فقط يوجد 41
تفضل الكود هيكون هكذا
Private Sub CommandButton2_Click()
'Beep
DataBase1.CommandButton2.Visible = False
DataBase1.CommandButton3.Visible = False
DataBase1.Label41.Visible = False
DataBase1.Label54.Visible = False
DataBase1.PrintForm
DataBase1.CommandButton2.Visible = True
DataBase1.CommandButton3.Visible = True
DataBase1.Label41.Visible = True
End Sub
وهذا هو ملفك هنا
nw11 قاعدة بيانات الطلاب.rar