Advertisement
Advertisement
| 07.15.2008 at 07:30AM PDT, ID: 23566193 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: |
Private Sub cmbEdit_Click()
On Error GoTo Err_cmbEdit_Click
If Me.lstSetupHistory.Column(4) = True Then
DoCmd.OpenForm "frmSetupLogsheet", , , "ChangeoverEntry=" & lstSetupHistory, acFormEdit
Else
DoCmd.OpenForm "frmSetupLogsheetAnnealing", , , "ChangeoverEntry=" & lstSetupHistory, acFormEdit
End If
DoCmd.Close acForm, "frmSetupHistory"
Exit_cmbEdit_Click:
Exit Sub
Err_cmbEdit_Click:
MsgBox Err.Description
Resume Exit_cmbEdit_Click
End Sub
|