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
