Driuk
20-04-2005, 09:48
Ho questo codice legato all'evento click di un bottone in una maschera di
Access XP che mi accoda dei dati presi da un recordset ad una tabella:
Set objConn = New ADODB.Connection
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & BEpath & ""
objConn.Open
Set objRS = objConn.Execute("SELECT id_fruitore FROM
Tbl_servizi_fruitori where id_servizio = '" & serv & "'")
objRS.MoveFirst
While Not objRS.EOF
MsgBox objRS.Fields("id_fruitore").Value
objConn.Execute "INSERT INTO Tbl_servizi_fruitori " & _
"(id_servizio,id_fruitore) " & _
"VALUES ('" & _
serv & "','" & objRS.Fields("id_fruitore").Value & "');"
objRS.MoveNext
Wend
Ogni volta che provo a lanciare il comando access mi comunica gentilmente che non può accodare i dati perchè la tabella è in uso.
A questo punto mi si pone un problema: come posso aggirare il blocco della
tabella siccome la suddetta tabella è in uso dalla maschera da cui lancio
il comando? Esiste un modo per farlo???
Grazie a tutti!
Access XP che mi accoda dei dati presi da un recordset ad una tabella:
Set objConn = New ADODB.Connection
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & BEpath & ""
objConn.Open
Set objRS = objConn.Execute("SELECT id_fruitore FROM
Tbl_servizi_fruitori where id_servizio = '" & serv & "'")
objRS.MoveFirst
While Not objRS.EOF
MsgBox objRS.Fields("id_fruitore").Value
objConn.Execute "INSERT INTO Tbl_servizi_fruitori " & _
"(id_servizio,id_fruitore) " & _
"VALUES ('" & _
serv & "','" & objRS.Fields("id_fruitore").Value & "');"
objRS.MoveNext
Wend
Ogni volta che provo a lanciare il comando access mi comunica gentilmente che non può accodare i dati perchè la tabella è in uso.
A questo punto mi si pone un problema: come posso aggirare il blocco della
tabella siccome la suddetta tabella è in uso dalla maschera da cui lancio
il comando? Esiste un modo per farlo???
Grazie a tutti!