copiare una stringa in una text

[alexinside83]

Utilizzando vba di access non riusciamo a passare una stringa in una casella di testo.


Allego il codice:

Private Sub Comando33_Click()
On Error GoTo Err_Comando33_Click

Dim a, b, c As String


If cilindrica = -1 Then
a = "cilindrica"
Else
a = "tondeggiante"
End If

Exit_Comando33_Click:
Exit Sub

Err_Comando33_Click:
MsgBox Err.Description
Resume Exit_Comando33_Click

End Sub

[alexinside83]

spiego meglio la stringa "a" deve andare nella casella di testo "Criterio1".

[cik]

criterio1=a

oppure, per essere più fini

criterio1.text=a