|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Validações)
|
|
 |
Título da Dica: Verificar se UF digitada está correta
|
 |
|
|
|
Postada em 13/11/2000 por Adriano
adriano.faria@bol.com.br
Private Sub txtUF_LostFocus()
Dim lEstados As String
If txtUF > "" Then
txtUF = UCase$(txtUF)
lEstados = "AC-AL-AM-AP-BA-CE-DF-ES-GO-MA-MG-MS-MT-PA-PB-PE-"
lEstados = lEstados & "PI-PR-RJ-RN-RO-RR-RS-SC-SE-SP-TO"
If InStr(1, lEstados, txtUF) = 0 Then
MsgBox "Estado inválido", vbExclamation, UCase(txtUF)
txtUF.SetFocus
End If
End If
End Sub
|
|
|
|
|
