Deleting Records 1

[WarrenB]

Is it possible to delete records via a macro or via vba coding? If so how is this achieved?

Thanks =================
Warren Brown
wazzer@btinternet.com
=================

 

[benwah]

you can use an SQL statement via VBA. Assign a string variable the SQL statement and then use the command:

DoCmd.RunSQL (SQLstring)

hope this helps
wah

 

[WarrenB]

My experience of Access is very limited, can you be more specific please?

Thanks =================
Warren Brown
wazzer@btinternet.com
=================

 

[benwah]

Here is an example of a simple one i have used. If you have any questions about any part of the code let me know. Access help file will help shed some light on a few things.


the '+ _ ' in the SQL part allows you to continue the code onto the next line. Helps make things look a little neeter in VBA.

bol
wah



Dim strSQL As String ' Holds SQL statement

If (MsgBox("You can not undo this action. Press OK to proceed with the deletion.", vbOKCancel, "Delete Employee&quot) = 1 Then 'Confirms deletion

strSQL = "" + _
"DELETE * " + _
"FROM tblEmployeeDetails " + _
"WHERE ([tblEmployeeDetails].[EmpID] = [Forms]![Main]![MainSubForm].[Form]!EmpID)"

DoCmd.SetWarnings (False) 'Turns the pesky warnings off
DoCmd.RunSQL (strSQL)
DoCmd.SetWarnings (True) 'Turns the pesky warnings on