I know something is wrong with the update part of this sub can anyone see what i am doing worng?
Private Sub Check127_Click()
Dim randpass As Integer
Dim formJobNumber As Integer
Randomize randpass = Int((999999 * Rnd) + 100000)
formJobNumber = Forms![CyclicJobInput].JobNumber
DoCmd.RunSQL "UPDATE JobDetails, SET password =" & randpass & ", where JobDetails.jobnumber =" & formJobNumber & ";"
End Sub
Private Sub Check127_Click()
Dim randpass As Integer
Dim formJobNumber As Integer
Randomize randpass = Int((999999 * Rnd) + 100000)
formJobNumber = Forms![CyclicJobInput].JobNumber
DoCmd.RunSQL "UPDATE JobDetails, SET password =" & randpass & ", where JobDetails.jobnumber =" & formJobNumber & ";"
End Sub