Advertisement
Advertisement
| 05.15.2008 at 12:17AM PDT, ID: 23404184 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: |
Private Sub Category_AfterUpdate()
Product = Null
Product.Requery
Product = Me.Product.ItemData(0)
If Me.Product.ItemData(0) Then
MsgBox "Process Exist, Select One of the list"
Else
MsgBox "No process Exist,Please Enter a new one"
Process
End If
End Sub
Private Sub Process()
DoCmd.OpenForm "tblProcess2", , , , acFormAdd
'/* Not Working
'If Me.NewRecord Then
' Forms![tblprocess2].DataEntry = True
'Else
' Forms![tblprocess2].Filter = "[CboSubSector] = " & Me.[Category]
' Forms![tblprocess2].FilterOn = True
'End If
'*/
End Sub
|