Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

New to ADP

Status
Not open for further replies.

vlree

IS-IT--Management
Jan 16, 2004
31
US
I have an access .mdb file that has code in the LimitToList and OnDoubleClick events.
NotInList
Code:
Private Sub Combo52_NotInList(NewData As String, Response As Integer)
    MsgBox "Double-click this field to add an entry to the list."
    Response = acDataErrContinue
End Sub

OnDoubleClick
Code:
Private Sub Combo52_DblClick(Cancel As Integer)
On Error GoTo Err_ORGName_DblClick
    Dim ORGName As String
    
    If IsNull(Me![Combo52]) Then
        Me![Combo52].Text = ""
    Else
        ORGName = Me![Combo52]
        Me![Combo52] = Null
     End If

    DoCmd.OpenForm "frmOrgNames", , , , , acDialog, "GotoNew"
    Me![Combo52].Requery
'    If ORGName <> 0 Then Me![Combo52] = ORGName
If (IsNull(ORGName) Or ORGName <> "") Then Me![Combo52] = ORGName
      
Exit_Combo52_DblClick:
    Exit Sub

Err_ORGName_DblClick:
    MsgBox Err.Description
    Resume Exit_Combo52_DblClick
End Sub

I would like to be able to do the same thing in a .adp file I am making. If not in list double click to add new item to underlying table. I am not getting it. The .adp is very different. I would appreciate some patient soul bearing with me. While I have done quite a bit in Access this is very different. thanks.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top