'OnPromptingControl Event
Const strDBConn = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\AnyDoc\CAPTUREit\CompanyID.mdb;Persist
Security Info=False"
Set objConn = CreateObject("ADODB.CONNECTION")
Set objRS = CreateObject("ADODB.recordset")
objConn.ConnectionString = strDBConn
objConn.Open
with PromptingControlDialog
.Title = "Select Division"
.Line(1).AddValue("Corporate")
.Line(1).AddValue("International")
.Line(2).Hidden = True
.Line(3).Hidden = True
.DoModal()
If .ModalResult = vbOK Then
strTemp = .Line(1).Value
.ClearAllLists
.Line(1).Value = strTemp
.Line(1).ReadOnly = True
.Line(2).Hidden = False
.Line(3).Hidden = True
If .Line(1).Value = "Corporate" Then
.Title = "Select Corporate Department Number"
objRS.Open "SELECT * FROM CORPORATE", objConn
Do While objRS.EOF = False
.Line(2).AddValue(objRS.Fields("CorpID"))
objRS.MoveNext
Loop
Else
.Title = "Select International Department Number"
objRS.Open "SELECT * FROM INTERNATIONAL", objConn
Do While objRS.EOF = False
.Line(2).AddValue(objRS.Fields("IntID"))
objRS.MoveNext
Loop
End If
.DoModal()
If .ModalResult = vbOK Then
strTemp = .Line(1).Value
strTemp2 = .Line(2).Value
.ClearAllLists
.Line(1).Value = strTemp
.Line(1).ReadOnly = True
.Line(2).Value = strTemp2
.Line(2).ReadOnly = True
.Line(3).Hidden = False
.Title = "Select Cost Center Number"
.Line(3).AddValue("12345")
.Line(3).AddValue("43212")
.Line(3).AddValue("67890")
.Line(3).AddValue("78990")
.Line(3).AddValue("90900")
.Line(3).AddValue("90240")
.DoModal()
End If
End If
End with