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