مكتبة ومولد أكواد VBA التفاعلية

Private Sub btnSave_Click()
    If Nz(Me.CustomerName, "") = "" Then
        MsgBox ChrW(1575) & ChrW(1604) & ChrW(1585) & ChrW(1580) & ChrW(1575) & ChrW(1569) & " " & ChrW(1573) & ChrW(1583) & ChrW(1582) & ChrW(1575) & ChrW(1604) & " CustomerName", vbExclamation, ChrW(1578) & ChrW(1606) & ChrW(1576) & ChrW(1610) & ChrW(1607)
        Me.CustomerName.SetFocus
        Exit Sub
    End If

    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("Customers", dbOpenDynaset)
    rs.AddNew
    rs!CustomerName = Me.CustomerName
    rs!Phone = Me.Phone
    rs!City = Me.City
    rs.Update
    rs.Close: Set rs = Nothing

    ' تفريغ الحقول
    Me.CustomerName = Null
    Me.Phone = Null
    Me.City = Null
    Me.CustomerName.SetFocus
    MsgBox ChrW(1578) & ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW(1581) & ChrW(1601) & ChrW(1592) & " " & ChrW(1576) & ChrW(1606) & ChrW(1580) & ChrW(1575) & ChrW(1581), vbInformation
End Sub