Tra i vari controlli (ininfluenti) sul form ho un CommandButton cmdConferma ed un'array textBox txtDati il cui elemento 3 deve contenere un path.
Quando viene inserito il path, se ha il backslash (\) finale, lo tolgo via codice.
Quando passo il metodo Update mi dà errore...
codice:
Option Explicit
Dim objConn As ADODB.Connection, objRs As ADODB.Recordset
Dim strSoggetto As String, strSoggetti As String
Private Sub cmdConferma_Click()
objRs.Update
End Sub
Private Sub Form_Load()
Dim ctrDati As Control
Open_Rs objConn, objRs, varAppPath & "\multi.mdb", "Select * from Profili"
strSoggetto = "profilo"
strSoggetti = "profili"
For Each ctrDati In txtDati
Set ctrDati.DataSource = objRs
Next
End Sub
Private Sub txtDati_LostFocus(Index As Integer)
Select Case Index
Case 3
If Right(txtDati(Index), 1) = "\" Then txtDati(Index).Text = Left$(txtDati(Index).Text, Len(txtDati(Index).Text) - 1)
End Select
End Sub