BabyPowder2u
Programmer
I have a cbo subPOC if you DblClick it pulls up an add screen to allow you to enter a new POC in the POC table. The code is:
Private Sub SubPOC_DblClick(Cancel As Integer)
On Error GoTo Err_SubPOC_DblClick
Dim lngSubPOCID As Long
If IsNull(Me![SubPOC]) Then
Me![SubPOC].Text = ""
Else
lngSubPOCID = Me![SubPOC]
Me![SubPOC] = Null
End If
DoCmd.OpenForm "frmPOC_dblClk", , , , , acDialog, "GotoNew"
Me![SubPOC].Requery
If lngSubPOCID <> 0 Then Me![SubPOC] = lngSubPOCID
Forms!frmRequest_Add.SubPOC = Me![SubPOC]
Exit_SubPOC_DblClick:
Exit Sub
Err_SubPOC_DblClick:
MsgBox Err.Description
Resume Exit_SubPOC_DblClick
End Sub
What I want to do, is if a name is selected in the cbo field, to have a "rightclick" (or even dblClick that checks the value of the cbo) that pulls up a POC_Modify form with that POC selected.
Any help would be appreciated.
T
Private Sub SubPOC_DblClick(Cancel As Integer)
On Error GoTo Err_SubPOC_DblClick
Dim lngSubPOCID As Long
If IsNull(Me![SubPOC]) Then
Me![SubPOC].Text = ""
Else
lngSubPOCID = Me![SubPOC]
Me![SubPOC] = Null
End If
DoCmd.OpenForm "frmPOC_dblClk", , , , , acDialog, "GotoNew"
Me![SubPOC].Requery
If lngSubPOCID <> 0 Then Me![SubPOC] = lngSubPOCID
Forms!frmRequest_Add.SubPOC = Me![SubPOC]
Exit_SubPOC_DblClick:
Exit Sub
Err_SubPOC_DblClick:
MsgBox Err.Description
Resume Exit_SubPOC_DblClick
End Sub
What I want to do, is if a name is selected in the cbo field, to have a "rightclick" (or even dblClick that checks the value of the cbo) that pulls up a POC_Modify form with that POC selected.
Any help would be appreciated.
T