[vba] controllo su dati immessi in textbox (era: Controllo form)

[kadorit]

In pratica quello che vorri fare è questo, ma non funge

Option Compare Database

Private Sub Comando2_Click()

On Error GoTo Err_Comando2_Click

Dim stDocName As String
nome.Value

If nome.Text = "" Then

MsgBox ("Attenzione")
End If

stDocName = "Query1"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Comando2_Click:
Exit Sub

Err_Comando2_Click:
MsgBox Err.Description
Resume Exit_Comando2_Click

End Sub