Boa tarde!
gostaria de verificação se a inputbox esta vazia,
eu hoje crio uma caixa de texto que recebe o valor, tem outra forma?
tipo if varTxt = null then ("Dessa forma nao funciona")
gostaria de verificação se a inputbox esta vazia,
eu hoje crio uma caixa de texto que recebe o valor, tem outra forma?
tipo if varTxt = null then ("Dessa forma nao funciona")
- Código:
On Error Resume Next
Dim varTxt As String
varTxt = InputBox("Informe um novo Item:", "Cadastro", "")
Me.txtTeste = varTxt
If Me.txtTeste = "" Then
Exit Sub
Else
Dim db As Database, rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("tipoveiculo")
rs.AddNew
rs("TIPO_VEICULO") = varTxt
rs.Update
rs.Close ' Fecha a tabela
Set rs = Nothing ' Limpa a tabela da memória
db.Close ' Fecha o Database
Set db = Nothing ' Limpa o Database da memória
Me.Tipo_Veiculo.Requery
Me.Tipo_Veiculo = varTxt
End If