VBA Not In List

[Alex Motilal]

Hello, I am using the following code in Not in List Event:

Private Sub SeedTrader_IDsup1_NotInList(NewData As String, Response As Integer)
Dim Result
Dim Msg As String
Dim CR As String

CR = Chr$(13)

If NewData = "" Then Exit Sub

Msg = "'" & NewData & "' is not in the list." & CR & CR
Msg = Msg & "Do you want to add it?"
If MsgBox(Msg, vbQuestion + vbYesNo) = vbYes Then
DoCmd.OpenForm "SeedTraderForm", , , , acAdd, acDialog, NewData
End If

Result = DLookup("[SdTrName]", "tblSeedTrader", _
"[SdTrName]='" & NewData & "'")
If IsNull(Result) Then
Response = acDataErrContinue
MsgBox "Please try again!"
Else
Response = acDataErrAdded
End If


End Sub

The Code repeats two times in a Form (In case the same Trader is also a broker or Agent). Is it possible to create a Function and refer to the control?

Regards
Alex

[ranman256]

Instead of writing all this code,
I just have the property LIMIT IN LIST =TRUE

if they want to add items, i have a small button,next to the combo box, that opens the table to add items.
they just click the refresh key on toolbar afterwards.

eliminates all this code.

[Alex Motilal]

Thanks for the reply.
However, the list not only has the name of the new trader, also some other fields which can be filled in the 'SeedTraderForm' which pops up. It works fine. But what I want is if the code can be made into a function and called for in the control so that the code need not be repeated. Since another control in the Form has an Agent. The table 'tblSeedTrader' contains several names, which can be Agents also besides a Trader.

[aytee111]

To create a function in VBA, add this inside the form's VBA module:
Private Function giveitaname(parameters here, such as NewData,...,)
....
End Function

Run it whenever you want to by:
Call giveitaname(NewData,...,)