By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,480 Members | 2,953 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,480 IT Pros & Developers. It's quick & easy.

Appending an unbound text field to multiple rows on a table.

P: n/a
please forgive any ignorance or illogical approaches, i am but a humble
beginner.

I have written a form (F_Auditorscorecards_Entry) for data entry that
writes to a table (T_tempAuditorScorecards). this table contains 14
records, 1 per auditor. these scorecards are to be filled out monthly,
and only once per month. the main form contains only bound controls.
attached at the bottom of the form is a subform
(F_AuditorScorecard_button) containing two unbound controls and a
command button. these are named text1 and text5, and command0. what i
would like to happen is for a user to enter the data into the temp
table once a month in F_Auditorscorecards_Entry, and then using
F_Auditorscorecards_button type their username (text1) and the month
and year (text5) for which they are entering data. they would then
click the "Commit all records" button (command0) and have all records
currently in T_tempAuditorScorecards as well as their username and the
date they entered appended to T_AuditorScorecards_history, which is
identical in format to T_tempAuditorScorecards, but has a record for
each auditor for each month. below you will find the bare bones code i
have written for the command0 button, which is where i assume this
would go.. note there is no attempt in the current code to append
anything anywhere, only to get to the point where one could do so.
everything i have attempted to this point has failed. any help would
be greatly appreciated.

If IsNull(Me!Text1) Or IsNull(Me!Text5) Then
MsgBox "You must enter both fields", vbOKOnly, "Missing Data"
Else
If Me!Text1.value <"ngonzalez" Then
MsgBox "You do not have access to this action", vbOKOnly, "Forms
Permissions"
Else
Select Case MsgBox("Are you ready to commit all records?", 4,
"Forms Permissions")
Case vbYes
MsgBox "working", vbOKOnly, "working"
Case vbNo
Cancel = True
Case Else
MsgBox "not working", vbOKOnly, "not working"
End Select
End If
End If

Jan 16 '07 #1
Share this question for a faster answer!
Share on Google+

This discussion thread is closed

Replies have been disabled for this discussion.