كحل اخر
سيظهر لك مربع ادخال ضع فيه رقم الهاتف بدون 09
استبدل الاكواد السابقة بهذه
Private Sub Number_Tel1_GotFocus()
If IsNull(Me.Number_Tel1) Then
RR = InputBox("ضع رقم الهاتف هنا", "تنبية")
Me.Number_Tel1 = "09" & RR
End If
End Sub
Private Sub Number_Tel2_GotFocus()
If IsNull(Me.Number_Tel2) Then
RR = InputBox("ضع رقم الهاتف هنا", "تنبية")
Me.Number_Tel2 = "09" & RR
End If
End Sub