MsgBox How Meny records updated

[zionsaal]

how can I create A msg box should show how many records the run sql
cmd just updated I have the set warnings off

 

[AccessVandal via AccessMonster.com]

Hi,


something like
"dim RA as Long"
"currentproject.Connection.Execute "Command String", RA"?

Can you show us the code?

 

[ruralguy via AccessMonster.com]

Look into the RecordsAffected Property of a DAO Recordset.

 

[zionsaal]

Look into the RecordsAffected Property of a DAO Recordset.



--
HTH - RuralGuy (RG for short) acXP WinXP Pro
Please post back to this forum so all may benefit.

Message posted via AccessMonster.comhttp://www.accessmonster.com/Uwe/Forums.aspx/access-forms/200706/1

the code:

Private Sub Command3_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "update master set tag = true where tag = false"
DoCmd.SetWarnings True

 

[Allen Browne]

See:
Action queries: suppressing dialogs, while knowing results
at:
http://allenbrowne.com/ser-60.html

The example shows how to execute the query and display the RecordsAffected
in the MsgBox.

 

[ruralguy via AccessMonster.com]

Try:
Private Sub Command3_Click()
With CurrentDB
.Execute "update master set tag = true where tag = false"
MsgBox "Total records affected by this operation is [" & .RecordsAffected
& "]"
End With
End Sub

Look into the RecordsAffected Property of a DAO Recordset.

[quoted text clipped - 7 lines]

Message posted via AccessMonster.comhttp://www.accessmonster.com/Uwe/Forums.aspx/access-forms/200706/1

the code:

Private Sub Command3_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "update master set tag = true where tag = false"
DoCmd.SetWarnings True

 

[John W. Vinson]

the code:

Private Sub Command3_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "update master set tag = true where tag = false"
DoCmd.SetWarnings True

Change it to:

Private Sub Command3_Click()
Dim db As DAO.Database
Dim qd As DAO.Querydef
Dim strSQL As String
On Error GoTo Proc_Error
Set db = CurrentDb
strSQL = "UPDATE Master SET Tag = True WHERE Tag = False;"
Set qd = db.CreateQuerydef("", strSQL)
qd.Execute dbFailOnError
MsgBox qd.RecordsAffected
Set qd = Nothing
Proc_Exit: Exit Sub
Proc_Error:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume Proc_Exit
End Sub

John W. Vinson [MVP]

 

[A a r o n K e m p f]

you need A c c e s s D a t a P r o j e c t s

 

[zionsaal]

you need A c c e s s D a t a P r o j e c t s






- Show quoted text -

thanks ALL!!
it works now