Question about auto-fill

[Guest]

I have a table with user information. I have tables for work histroy, Next of
Kin, and fitness information. On the input forms for the history, Next of Kin
and fitness I have them set up to auto-fill the User information off what
User ID is selected from a Combo box. What I would like to have happen is
when i use the combo box to select the user it will auto-fill all the
information on that form from the repective table. Also if when you select a
User ID from the combo box and there is no information in the table for them
will come up with blanks and when they fill in the information will save that
as a new user. Hope this makes sense and any help would be great!

 

[Guest]

If I understand your question correctly, this is an example of how you use a
Combo Box to pull up a specific record for a bound form and allow the user to
enter the data if it is a new entry:

Private Sub cboMActivity_AfterUpdate()
Dim rst As Recordset
'Find the Master Activity Selected

Set rst = Me.RecordsetClone
rst.FindFirst "[MActivity] = '" & Me.cboMActivity & "'"
Me.Bookmark = rst.Bookmark
rst.Close
Set rst = Nothing

End Sub

Private Sub cboMActivity_NotInList(NewData As String, Response As Integer)
'Show Error if an invalid Master Activity is entered
If MsgBox(Me.cboMActivity.Text & " Does not Exist " & vbNewLine _
& "Do you want to add it", _
vbInformation + vbYesNo, "Not Found") = vbYes Then
CurrentDb.Execute ("INSERT INTO tblMasterActivity (mactivity) " _
& "VALUES ('" & NewData & "');"), dbFailOnError
Response = acDataErrAdded
Else
Me.cboMActivity.Undo
Response = acDataErrContinue
End If
End Sub