Update Query Need HELP

[fiero131]

Can someone help me out and show me what I am doing wrong?


usql = "Update DocumentEntry Set DocumentEntry.Status = " & Me.NStatus.Value & ", DocumentEntry.ApprovedDate = " & Me.NApprovedDate.Value & ", DocumentEntry.Comments = " & Me.NComments.Value & " Where DocumentEntry.ProjectID = " & Me.ProjectID.Value & ""


DoCmd.SetWarnings False
DoCmd.RunSQL usql
DoCmd.SetWarnings True

 

[TheAceMan1]

How are ya fiero131 . . .

Perhaps the following will do:

[blue]   Dim db As DAO.Database, SQL As String, DQ As String
   
   Set db = CurrentDb
   DQ = """"
   
   SQL = "Update DocumentEntry " & _
         "Set [Status] = " & Me.NStatus & ", " & _
             "[ApprovedDate] = #" & Me.NApprovedDate & "#, " & _
             "[Comments] = " & DQ & Me.NComments & DQ & " " & _
         "Where [ProjectID] = " & Me.ProjectID & ";"
   db.Execute SQL, dbFailOnError
   
   Set db = Nothing[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997 [blue]Worthy Reading![/blue]
Also faq181-2886 [blue]Worthy Reading![/blue]

 

[PHV]

show me what I am doing wrong
What happens ? Any error message ? Unexpected behaviour ? Computer crash ? ...

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886