ENTRADA DE DATA
Bom, abaixo estou tentando gravar nas variaveis Data1e Data2 as datas digitadas nos textbox (TxtIn, TxtFin). A ideia é não precisar digitar a mesma data novamente nos text no load do form, só que no load esta dando erro: Type Mismatch na linha (If Data1 And Data2 <> [Ô][Ô] Or Data1 And Data2 <> Empty Then). Explicando melhor, quando no load do form da primeira vez eu digito as datas e seu entrar no form outra vez eu não precisaria digita-las novamente.
Public Data1, Data2 As String
Private Sub Form_Load()
If Data1 And Data2 <> [Ô][Ô] Or Data1 And Data2 <> Empty Then
TxtIn.Text = Data1
TxtFin.Text = Data2
OpPeriodo.Value = True
End If
End Sub
Private Sub TxtIn_LostFocus()
Data1 = TxtIn.Text
End Sub
Private Sub TxtFin_LostFocus()
Data2 = TxtFin.Text
End Sub
Public Data1, Data2 As String
Private Sub Form_Load()
If Data1 And Data2 <> [Ô][Ô] Or Data1 And Data2 <> Empty Then
TxtIn.Text = Data1
TxtFin.Text = Data2
OpPeriodo.Value = True
End If
End Sub
Private Sub TxtIn_LostFocus()
Data1 = TxtIn.Text
End Sub
Private Sub TxtFin_LostFocus()
Data2 = TxtFin.Text
End Sub
Tenta declarar a variavel Data1 como string. Ela está como variant.
Cara...
Qdo vc digita essas datas...na entrada do form...elas são salvas em variáveis certo?
Onde decladou essas variaveis?
OK, ajustado. Ficou assim:
Private Sub Form_Load()
If Data1 <> [Ô][Ô] And Data2 <> [Ô][Ô] Or Data1 <> [Ô][Ô] And Data2 <> Empty Then
TxtIn.Text = Data1
TxtFin.Text = Data2
OpPeriodo.Value = True
End If
End Sub
ASHKATCHUP, o problema tambem era na declaração das variaveis, uma estava como variante e outra como string. Valeu!
Private Sub Form_Load()
If Data1 <> [Ô][Ô] And Data2 <> [Ô][Ô] Or Data1 <> [Ô][Ô] And Data2 <> Empty Then
TxtIn.Text = Data1
TxtFin.Text = Data2
OpPeriodo.Value = True
End If
End Sub
ASHKATCHUP, o problema tambem era na declaração das variaveis, uma estava como variante e outra como string. Valeu!
Tópico encerrado , respostas não são mais permitidas