Sinteticamente: il codice è questo.
******
Private Sub CmdAddVolume_Click()
With Me.Adodc2.Recordset
.AddNew
.Fields("titolo") = Trim(Me.TxtTitolo.Text)
.Fields("editore") = Trim(Me.TxtEditore.Text)
.Fields("isbn") = Trim(Me.TxtIsbn.Text)
.Fields("data_acquisto") = Trim(Me.TxtData.Text)
.Fields("legislatura") = Trim(Me.TxtLegislatura.Text)
.Fields("id_tipo_vol") = Trim(Me.Label1.Caption)
.Update
.Requery
End With
Me.TxtData.Text = ""
Me.TxtEditore.Text = ""
Me.TxtIsbn.Text = ""
Me.TxtLegislatura.Text = ""
Me.TxtTitolo.Text = ""
Me.Combo1.Text = ""
End Sub
******
l'errore mi viene generato all'altezza di .AddNew e sarebbe Object Variable or With block variable not set.
Dove sbaglio?