Hello
My form module hasseveral procedures. The procedues all have the same
"SET" statements,like the set frm and set rs that's shown in the cmdSave
and cmdDelete below:
Is it possible to recreatesomething like a variable that the all
procedures can refer to it, so the SET Statement does not need to be
repeated in each sub?
I have tried to place them out side the procedure, but ended up with
error.
Phucon
Private SubcmdSave_Click()
On Error GoToErrorHandler
Set frm = Form_frmAllStaff
Set rs = CurrentDb.OpenRecordset("tblAllStaff",dbOpenDynaset)
With rs
.FindFirst "[Sid] = " &frm!lstBox.Column(0)
If Not rs.NoMatch Then
.Edit
!An = Me.txtDAn
!Re = Me.txtDRe
!Ex = Me.txtDEx
!Rn = Me.txtDRn
.Update
.Requery
End If
End With
ExitProcedure:
rs.Close
Exit Sub
ErrorHandler:
MsgBox "Err = " & Err &vbCrLf & Err.Description
Resume ExitProcedure
Resume
End Sub
Private SubcmdDelelte_Click()
On Error GoToErrorHandler
Set frm = Form_frmAllStaff
Set rs = CurrentDb.OpenRecordset("tblAllStaff",dbOpenDynaset)
With rs
.FindFirst "[Sid] = " &frm!lstBox.Column(0)
If Not rs.NoMatch Then
.Delete
.
.
.
End If
End With
ExitProcedure:
rs.Close
Exit Sub
ErrorHandler:
MsgBox "Err = " & Err &vbCrLf & Err.Description
Resume ExitProcedure
Resume
End Sub
[Non-text portions of this message have been removed]
Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (1) |
Tidak ada komentar:
Posting Komentar