Använder följande kod för att uppdatera värden i en databas:

Dim Conn As New ADODB.Connection
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\test.mdb;uid=Admin"
Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset
Dim SQL As String
SQL = "UPDATE Dictionary SET Validerad='1' WHERE ID='" & varValidera & "'"
Set RS = Conn.Execute(SQL)

Genast får jag fel: Typblandningsfel.

"ID" som finns i SQL-satsen är av typen auto_increment ("Räknare" i Access)
Om jag skriver om SQL-satsen så att det blir WHERE ID='2' då fungerar det utmärkt.

Några förslag?

En Räknare är ett numeriskt fält, det värdet ska inte inneslutas av ' (=sträng). såhär borde fungera:

SQL = "UPDATE Dictionary SET Validerad='1' WHERE ID=" & varValidera

Vad är det för typ på Validerad? Om den bara har två möjliga värden borde den vara av typen "Ja/Nej", då ser satsen ut såhär:

SQL = "UPDATE Dictionary SET Validerad=-1 WHERE ID=" & varValidera

/Johan

Om varValidera är tom får du oxå typblandningsfel.

/johan/