Delete record from Subform and Table

[venu_resoju]

all my dear friends..
Happy Diwali....

I am getting a problem with delete button....

I want to delete record from subform and Table..

Tableayroll
SubformayrollSearchQuery
Formayrollog

I am giving the code is ....

Private Sub Command58_Click()
'check existing selected record
If Not (Me.PayrollsearchQuery.Form.Recordset.EOF And Me.PayrollsearchQuery.Form.Recordset.BOF) Then
'confirm delete
If MsgBox("Are you sure you want to delete", vbYesNo) = vbYes Then
'delete now
CurrentDb.Execute "Delete * FROM Payroll" & _
"WHERE PayrollID=" & Me.PayrollsearchQuery.Form.Recordset.PayrollID & ""
'refresh data in list
Me.PayrollsearchQuery.Form.Requery
End If
End If
End Sub

but it is not working...it's saying

Run-Time Error:3131
Syntax error in FROM clause

please any body help me friends....
thanking you ...

 

[madefemere]

Hello,

May be easier :

Private Sub Command58_Click()
'check existing selected record
If Not (Me.PayrollsearchQuery.Form.Recordset.EOF And Me.PayrollsearchQuery.Form.Recordset.BOF) Then
'confirm delete
If MsgBox("Are you sure you want to delete", vbYesNo) = vbYes Then
'delete now
CurrentDb.Execute "Delete * FROM Payroll" & _
"WHERE PayrollID=" & Me.PayrollsearchQuery.Form.PayrollID
'refresh data in list
Me.PayrollsearchQuery.Form.Requery
End If
End If
End Sub

 

[burrina]

Different Way!

DoCmd.SetWarnings False
If MsgBox("Do you wish to delete this record?", vbYesNo, "Delete Confirmation") = vbYes Then
If MsgBox("Are you SURE you want to delete this record?" & vbCrLf & _
"This will permanently delete the record.", vbYesNo, "2nd Delete Confirmation") = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
End If
End If
DoCmd.SetWarnings True
Me.PayrollsearchQuery.Form.Requery

 

[venu_resoju]

thanking you friends....

same problem i am getting...

I am attaching my db here ..please help me what's wrong with me...

I am trying that Deletion on "PAYROLLOG" form

thanking you all...