Hej!

Jag sitter här och är lite förbryllad. Det är nämligen så att jag ska köra en update via VBA-kod, men får inte till den...

Jag har kört debug.print på sql-strängen, kopierar sedan sql-strängen och klistrar in i Accsess. Då funkar det perfekt!!

Vad jag inte kan förstå är vad jag gör för fel i min kod.
Dim rs As ADODB.Recordset
Dim strSql as String
Dim recaffected as Integer

strSql = "UPDATE Product Set CLevel ='C11' WHERE Product LIKE 'abc123*'"
CurrentProject.Connection.Execute strSql, recaffected

har också provat med följande:
Set rs = CurrentProject.Connection.Execute(strSql, raff)


Är det någon som har förslag på vad jag ska göra.?..
(Har Access 2000)

MVH
Maria

Jag har ett par olika förslag, men jag vet inte om det går att få antal poster som belv uppdaterade tillbaka.
<code>Dim strSql as String
strSql = "UPDATE Product Set CLevel ='C11' WHERE Product LIKE 'abc123*'"

'Första varianten
DoCmd.SetWarnings False
DoCmd.OpenQuery strSQL
DoCmd.SetWarnings True

'Andra varianten
CurrentDb.Execute strSql</code>

Tack!!!!!!!!!!!!! :-)

CurrentDb.Execute strSql gjorde susen!!!

Tack så mycket för hjälpen! Jag har suttit här och testat och testat.... Är SÅ tacksam!!
/Maria

Inga problem, bara kul att kunna hjälpa.

Ditt problem härstammar i att jokertecknet är olika för DAO och ADO.
DAO använder * och ?.
Medans ADO använder % och _.

Därför skall din kod vara:

Dim con As ADODB.Connection
Dim strSql as String
Dim recaffected as Integer

    strSql = "UPDATE Product Set CLevel ='C11' WHERE Product LIKE 'abc123%'"
    Set con = CurrentProject.Connection
    con.Execute strSql, recaffected