اخفاء المسج بوكس

اليك اخى التعديل

Private Sub Form_Open(Cancel As Integer)
  '  On Error Resume Next
    Dim Db As Database, RS As Recordset, Vacation As String
    Set Db = CurrentDb
    Set RS = Db.OpenRecordset("SELECT table0.folderno, [fnamr] & ' ' & [family] AS namep, table1.dateend,empdate " & _
             "FROM table0 INNER JOIN table1 ON table0.folderno = table1.folderno;")
    If DCount("folderno", "table1", "dateend <= #" & Date & "# and empdate = 0") > 0 Then
    Vacation = "ÇáãäÊåíÉ ÅÌÇÒÇÊåã" & vbNewLine
    Do While Not RS.EOF
        If RS!dateend <= Date And RS!empdate = 0 Then _
           Vacation = Vacation & Left(RS!namep & Space(30), 30) & "   ÊÇÑíÎ ÇáÅäÊåÇÁ : " & RS!dateend & vbNewLine
        RS.MoveNext
    Loop
    MsgBox Vacation, vbMsgBoxRight
    End If
End Sub

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

الاخ الغالي مرنوووو

لك مني جزل الشكر والامتنان يا استاذي الكبير

واللك اللسان عجز عن الشكر لك انت كبير بعطاءك

تمت الاجابة 100%

تحياتي واحترامي الكبير لك