Cool, I was able to get the control to change the form fields to
the information pertaining to that person. Now I have to figure out how
to add a new record-set. When I hit the add new record button on the
bottom it wont let me add a new name. Ill Google that and see what I
am missing. Thanks for the help Jerry.
Before we go any further, is your search combo box a separate entity from
the name field or name fields?
The search combo box should not have a record "control source" behind it.
It should be completely blank.
As for navigation, personally, I don't use the built in navigation buttons
at the bottom
I create navigation buttons. If you want to give this a try, open the form
in design view. Then click on the menu item "view" on the menu bar. Check
"Form Header/Footer". This will add sections to the top and bottom.
I usually put my search combo and navigation stuff in the header but the
footer is fine.
Next, make sure the "Toolbox" menubar is visible.
If you drag a button to the header, you should get a wizard asking what you
would like to do. Pick the navigation feature.
I usually pick first, last, next, prev, and add new. I never do delete.
If those don't work, check your form properties and make sure that it allows
record creation. There are some properties like "Allow Additions" and such.
What version of Access are you using?
Here are the command buttons code sets in case the wizard isn't working.
Private Sub cmdFirst_Click()
On Error GoTo Err_cmdFirst_Click
DoCmd.GoToRecord , , acFirst
Exit_cmdFirst_Click:
Exit Sub
Err_cmdFirst_Click:
MsgBox Err.Description
Resume Exit_cmdFirst_Click
End Sub
Private Sub cmdPrev_Click()
On Error GoTo Err_cmdPrev_Click
DoCmd.GoToRecord , , acPrevious
Exit_cmdPrev_Click:
Exit Sub
Err_cmdPrev_Click:
MsgBox Err.Description
Resume Exit_cmdPrev_Click
End Sub
Private Sub cmdNext_Click()
On Error GoTo Err_cmdNext_Click
DoCmd.GoToRecord , , acNext
Exit_cmdNext_Click:
Exit Sub
Err_cmdNext_Click:
MsgBox Err.Description
Resume Exit_cmdNext_Click
End Sub
Private Sub cmdLast_Click()
On Error GoTo Err_cmdLast_Click
DoCmd.GoToRecord , , acLast
Exit_cmdLast_Click:
Exit Sub
Err_cmdLast_Click:
MsgBox Err.Description
Resume Exit_cmdLast_Click
End Sub
Private Sub cmdAdd_Click()
On Error GoTo Err_cmdAdd_Click
DoCmd.GoToRecord , , acNewRec
Exit_cmdAdd_Click:
Exit Sub
Err_cmdAdd_Click:
MsgBox Err.Description
Resume Exit_cmdAdd_Click
End Sub
J
-
Experience hath shewn, that even under the best forms those entrusted with
power have, in time, and by slow operations, perverted it into tyranny -
Thomas Jefferson on government
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
Order the Adobe Coldfusion Anthology now!
http://www.amazon.com/Adobe-Coldfusion-Anthology-Michael-Dinowitz/dp/1430272155/?tag=houseoffusion
Archive:
http://www.houseoffusion.com/groups/cf-community/message.cfm/messageid:325394
Subscription: http://www.houseoffusion.com/groups/cf-community/subscribe.cfm
Unsubscribe: http://www.houseoffusion.com/groups/cf-community/unsubscribe.cfm
