Auto Fill

[Phoenyxsgirl]

I also tried going back to the original code ..

Private Sub Combo15_AfterUpdate()
Dim sAppID As String
sAppID = Me.Combo15
Me.AppID.SetFocus
DoCmd.FindRecord sAppID, acAnywhere, , acSearchAll


End Sub

It shows the first line in yellow highlight and it has .SetFocus in blue highlight stating that "Compile Error: Method or Data Member not found"

[Toyman]

I also tried going back to the original code ..

Private Sub Combo15_AfterUpdate()
Dim sAppID As String
sAppID = Me.Combo15
Me.AppID.SetFocus
DoCmd.FindRecord sAppID, acAnywhere, , acSearchAll
End Sub

It shows the first line in yellow highlight and it has .SetFocus in blue highlight stating that "Compile Error: Method or Data Member not found"

Can you zip a sample of your db and post it here.

[Phoenyxsgirl]

would it be ok for me to do that without containing the data in it? and how would I do it? lol

[Toyman]

would it be ok for me to do that without containing the data in it? and how would I do it? lol

No data is fine. You might put in about five "dummy" data so I can use it for test

[Phoenyxsgirl]

I cannot find winzip on this computer. I'm not having the best of luck! Is there any other way I can attach it? its not very big. Only 1.21 MB

[Toyman]

I cannot find winzip on this computer. I'm not having the best of luck! Is there any other way I can attach it? its not very big. Only 1.21 MB

send it to :
LEMSystems@yahoo.com

[Phoenyxsgirl]

Thank you. It is sent with a record entered as necessary to show how the data relates.

[Toyman]

Thank you. It is sent with a record entered as necessary to show how the data relates.

just send the file back to you

This is the code I placed in the combo box. The combo box is unbound and takes on the Appid list from your table. I created the actuall AppID form in the form. The Appid field is locked. The code is placed in the after update event of the combo box

Dim sAppID As String
Dim msgbx As String
Dim X As Integer
sAppID = Me.Combo17 'the veriable sAppID takes on the balue from the combo box
X = DCount("*", "Participants", "appid = '" & sAppID & "'") 'It then checks the table to see if the AppID exist
If X > 0 Then 'if the AppID exit, then the code runs the "FindRecord" command to find the record associated with the AppId and displays it
Me.AppID.SetFocus
DoCmd.FindRecord sAppID, acAnywhere, , acSearchAll
Else
'if it does not exist, it will ask whether you want to create a new record with the new AppId
msgbx = MsgBox("The AppID does not exist. Do you want to create a new record with the AppID?", vbYesNo, "No Record Found")
If msgbx = vbYes Then 'if you select yes, then the code brings up a new record and inputs the new AppID to the record
DoCmd.GoToRecord acDataForm, "participants", acNewRec
Me.AppID.Value = sAppID
Me.Refresh
Me.Combo17.Requery 'After the new record is created the code requeries the combo box to add the new appid to the list
Me.First_Name.SetFocus 'it then set focus in the first field for the user to add the rest of the record
End If
End If

[Phoenyxsgirl]

holy cow O.O thank you. I would like to ask you some questions about the code if you don't mind.

What is the "Me." and what do the ' do throughout the code? I'm assuming they just allow you to enter a description of sorts so that it explains what the code you just typed is doing.

[Toyman]

holy cow O.O thank you. I would like to ask you some questions about the code if you don't mind.

What is the "Me." and what do the ' do throughout the code? I'm assuming they just allow you to enter a description of sorts so that it explains what the code you just typed is doing.

The single quote denotes a description. Any words after it will not run as codes. "Me" refers to the current database object. You can only use "Me" if the code is being run in the same form in which the code is contained. If you are running the code from another db object, you would need something like this in place of "Me": "Forms!YourFormName!YourFormObjectName"

[Phoenyxsgirl]

You have no idea how much you have helped! Thank you thank you thank you!!!!

Now when I try to copy this to the other forms and duplicate it, does it rely on the added text box in the form header? And how does it?

[Toyman]

You have no idea how much you have helped! Thank you thank you thank you!!!!

Now when I try to copy this to the other forms and duplicate it, does it rely on the added text box in the form header? And how does it?

I added the AppID to display the actual AppID associated with the record. Whereas the combo box is unbound and is not associated with the actual record. All the combo box do is to hold values for the code. The code sets its focus to the AppID field and use the findrecord funtion to find the AppID that matches the selected AppID.

[Phoenyxsgirl]

Will this work with a subform when I want to edit the subform records but not the original record?

[Toyman]

Will this work with a subform when I want to edit the subform records but not the original record?

This will work in a sub form. Just do the same set up in the sub form