Thanks Ken.
I have posted the following code;
Private Sub Command53_Click()
Dim strMessage As String
Dim Rs As DAO.Recordset
Set Rs = CurrentDb().QueryDef("ClaimDuplicateQry").OpenRecordset
If Rs.RecordCount < 1 Then
strMessage = "Not Previously Audited"
Else
strMessage = "Previously...
Thanks for the reply.
I have now successfully attached the code, but have been presented with the following:
Compile Error: Method or Data member not found
I am running the database on Access 97 - might that be the problem?
Thanks for the reply.
I have entered the snippet as follows:
Private Sub Command53_Click()
Dim strMessage As String
Set Rs = CurrentDb().QueryDef("ClaimDuplicateQry").OpenRecordset
If Rs.RecordCount < 1 Then
strMessage = "Not Previously Audited"
Else
strMessage = "Previously Audited"
End...
I have built an audit database using MS Access where users enter various items of data & a record is saved for review later.
At the offset, the auditor enters the reference for the file being audited, and presses a "Check History" button. This runs a query against the audit table to check if...
I have written a query that extracts values from a form and returns a value to a table.
What I want it to do is where the extracted value is greater than zero, to return a value of 1 to the table, else simply return a value of 0.
I have tried using the following field criteria without success...
No.
It is an audit database so it is primarily interested in what hasn't been done (the zeros). "Yes" and "n/a" signify either a tasks completion or it's irrelevance to the case in question.
This allows me to add the number of questions, per sub catagory, and give a % score.
EG:
10...
Normal to return the same value to the db, but I kinda wanted the combo to show them as different selections.
Guess I may have to chalk it up as a "feature"!
Thanks anyway :)
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.