[Mina Botros]

اريد كود لاستيراد فوم ووضع به كلمة سر

[26094]

كود :

With TextBox1
    If .Text = "pass1" Or .Text = "pass2" Or .Text = "pass3" Then
        MsgBox("OK")
    Else
        MsgBox("Error")
    End If
End With

[Mina Botros]

(04-07-17, 10:41 PM)26094 كتب :

كود :

With TextBox1
   If .Text = "pass1" Or .Text = "pass2" Or .Text = "pass3" Then
       MsgBox("OK")
   Else
       MsgBox("Error")
   End If
End With

اخى دا كود وضع اكثر من كلمة مرور