I have an dbase (attached) that I'd like some help with.....if someone is willing to look at it.
When it opens, it opens to a small form. You enter the data, (you're free to enter any), then I'm trying to do the following.
I have a button that launches me to another form, where I've stored several registration dates. At the end of each of those records is a button. I want that button to export that record to the subform in the main
Registration form. I'm just not sure how to do it. Any help would be appreciated.
Thanks in advance....
Full Version: Zipped File
I used san Appedn query.
See the attached
Edited by: HiTechCoach on Mon Oct 8 19:03:52 EDT 2007.
CODE
Private Sub Command10_Click()
Dim strSQL As String
strSQL = "INSERT INTO RegConTable ( Items, Description, [Date], Price, Comment, Button, [Key] ) "
strSQL = strSQL & " SELECT ConfTable.Items, ConfTable.Description, ConfTable.Date, ConfTable.Price, ConfTable.Comment, ConfTable.Button, " & Forms!RegForm.Key & " AS K "
strSQL = strSQL & " FROM ConfTable WHERE (((ConfTable.Items)=""" & Me.Items & """ ));"
CurrentDb.Execute strSQL
Forms!RegForm.RegConForm.Form.Requery
End Sub
Dim strSQL As String
strSQL = "INSERT INTO RegConTable ( Items, Description, [Date], Price, Comment, Button, [Key] ) "
strSQL = strSQL & " SELECT ConfTable.Items, ConfTable.Description, ConfTable.Date, ConfTable.Price, ConfTable.Comment, ConfTable.Button, " & Forms!RegForm.Key & " AS K "
strSQL = strSQL & " FROM ConfTable WHERE (((ConfTable.Items)=""" & Me.Items & """ ));"
CurrentDb.Execute strSQL
Forms!RegForm.RegConForm.Form.Requery
End Sub
See the attached
Edited by: HiTechCoach on Mon Oct 8 19:03:52 EDT 2007.
Boyd -
I am glad to know that I am not the only one with typing skills after a trip to the wine cellar...
I trust you know that I am just trying to have a bit of fun at both our expenses...
Jack
I am glad to know that I am not the only one with typing skills after a trip to the wine cellar...
QUOTE
I used san Appedn query.
I trust you know that I am just trying to have a bit of fun at both our expenses...
Jack
I have a that new dyslexic keyboard! 
Thanks so much. It worked perfectly. I really appreciate the help. I wasn't sure how to handle the subform.
The Forms!RegForm.RegConForm.Form.Requery explains it.
Thanks again.
The Forms!RegForm.RegConForm.Form.Requery explains it.
Thanks again.
You're welcome!
Glad we could assist.
I could not of done it with my spell checker, Jack!
Glad we could assist.
I could not of done it with my spell checker, Jack!
Now why can't I think of a cool answer like that? 
Jack
Jack
This is a "lo-fi" version of our main content. To view the full version with more information, formatting and images, please click here.