Problem writing data to table (sql)

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Why doesn´t something happen when I run this script?


Private Sub Kommandoknapp90_Click()
On Error GoTo Err_Kommandoknapp90_Click

DoCmd.OpenReport "beställning", acViewPreview


Dim mydb As Database
Dim rst As DAO.Recordset

Set mydb = CurrentDb()
Set rst = mydb.OpenRecordset("SELECT Korddata.*, Korddata.[skriv ut]
FROM Korddata WHERE Korddata.[skriv ut]=Yes);")

rst.MoveFirst

Do Until rst.EOF = True
rst![Levererad] = no
rst![Histdat] = Now()
rst![skriv ut] = yes
rst.Update
rst.MoveNext
Loop

Set rst = Nothing
Set mydb = Nothing

Exit_Kommandoknapp90_Click:
Exit Sub

Err_Kommandoknapp90_Click:

Exit Sub
Resume Exit_Kommandoknapp90_Click

End Sub
 
WHERE Korddata.[skriv ut]=Yes)

looks suspicious to me. Try using True (or -1) instead.

The fact that it compiles doesn't mean anything: compiling doesn't evaluate
the correctness of the SQL string that's going to be run.

Your error handling is suspect as well: if you encounter an error, you're
simply going to quit the subroutine, but the Err object isn't going to get
reset. Try:

Exit_Kommandoknapp90_Click:
Exit Sub

Err_Kommandoknapp90_Click:
MsgBox Err.Description & " (" & Err.Number & ")", _
vbOkOnly + vbCritical
Resume Exit_Kommandoknapp90_Click

End Sub

Leave out the MsgBox if you really don't want to know what the error is.
 
Back
Top