help

Prøv:

SQL = \"UPDATE users SET users.number = \'\" & intmax & \"\' WHERE (users.username = \'\" & username & \"\')\"

Nej vent... det er kun strenge der skal have apostroffer...

SQL = \"UPDATE users SET users.number = \" & intmax & \" WHERE (users.username = \' \" & username & \" \')\"

den siger:

Invalid operation

og den siger at fejlen ligger her:

Set rs = db.OpenRecordset(SQL)

Ja, det er jo der du eksekverer din SQL-streng...

Har du prøvet at skifte variablerne ud med faktiske værdier for at se om det er variablerne eller kaldet der er galt...

Fx:
SQL = \"UPDATE users SET users.number = 4 WHERE (users.username = \'Peter\')\"

Lige en indskydelse: users.number er vel ikke et autonummereret felt? Så kan du selvfølgelig ikke ændre værdien af det...

Virker stadig ikke:

der står dette:

Private Sub test_Click()
\'**************************Herfra**********************************
Dim db As Database
Dim rs As Recordset
Dim ahh As Integer
ahh = 4

Set db = OpenDatabase(\"data\\\" & \"base.mdb\")
SQL = \"UPDATE users SET users.number = \" & ahh & \" WHERE (users.id = 22)\"
Set rs = db.OpenRecordset(SQL)


\'**************************Hertil**********************************
End Sub

og stadig samme fejl

og der er ikke et autonummereret felt mere.. har lavet det om, og det hjalp ikke

hvad med at tilføje linien \"Dim SQL As String\" til din kode?

Hmmm, nu er jeg forvirret... Virker eller virker ikke?