Code:
Public Function Audit_Trail()
On Error GoTo Err_Audit_Trail
Dim MyForm As Form
Dim ctl As Control
Dim sUser As String
Set MyForm = Screen.ActiveForm
'If new record, record it in audit trail
flower88
Last Activity: Oct 26 '10, 12:29 AM
Joined: Jun 16 '10
Location:
-
What's wrong with my Audit Trail code?
I have this code to keep track of the changes in a form. It is suppose to tell me what was changed, when, and by whom. I have this code as a module
... -
Thanks. And I was aware of the possibility of having people with the same first and last name. I'm using the company name as a third variable. So now it looks like so:
And...Code:If DCount("*", "contacts", "[First_Name] = '" & Me.First_Name & "' AND [Last_Name] ='" & Me.Last_Name & "' AND [Company] ='" & Me.Company & "'") > 0 Then -
What's wrong with my DCount Function?
Hello,
I'm trying to get rid of duplicate entries for contacts. So in my contact entry form when the save buttom is clicked I want to use the DCount function to see if there are duplicates. Here is the code I'm trying to use
...Code:If DCount("*", "contacts", [First_Name] = '" & _ Me.First_Name "' & [Last_Name] ='" & _ me.Last_Name " ') >0 Then MsgBox "contact -
Alright, thanks, now I know :-DLeave a comment:
-
Is it possible to set a Pivot Chart axis as hyperlink?
Hello,
I am wondering if it is possible to set a Pivot Chart category axis as a hyperlink. I don't know if that is the best way but this is what I want to do: Lets say I have the invoice number in the x-axis and the total amount in the y-axis. I want to be able to click on the invoice number to open a form with the invoice details.
If this even possible to do? -
Thank you beacon,
I don't have CardScan in my computer so I can't really do much with it.
But to solve my proble, someone exported the CardScan data into an excel file and I linked that file to a table in Access and created a query. From that query, I'm pulling out information.
I see the inconvenience of doing this, but I can't do much without the CardScan software.
Thank you for your suggestion. If I...Leave a comment:
-
Is it possible to link Access to a customized program?
Hello,
I don't have much experience with Access, but I was wondering if it possible to link data stored in a program like CardScan to Microsoft Access?
If so, is there a command or extension I need to be using to achieve this?
The idea I have is to call stored data CardScan to a MS Access form.
Thanks in advance! -
OldBirdman thanks a lot! It worked. I was so close, but not really lol,
thanks!Leave a comment:
-
How can I add the next consecutive letter?
Hello,
I have a database that tracks revisions. A new record gets assigned letter "A" but if you want to make changes to the same record, that would be a new revision so you need to write the letter "B".
I want the revision letter to be automaticaly assigned after I ask the user if they want to create a new revision. I created a true/false select case box or statement.
My problem... -
Well, I just wanted ideas on how to get started doing this. I thought about having two tables, one with just the quote number and another with all the information and liking them. But i came to the conclusion that it wasn't gonna work when creating the reports on only the last updated quotes.
Anyway, I'll close this thread.
Thanks thoLeave a comment:
-
How could I Track record changes?
Hello,
I'm trying to build a database where I can track changes or revisions made to a quote. The idea is that everytime a quote is made sometimes it needs to be updated so when this happens a letter is assigned to it that indicates the update. For example "A" would be the first entry, "B" would be the second update and so on. Also, I need to be able to print a report using only the latest update for each quote.... -
How should I use recordset with conditionals?
I'm trying to show combinations of my data on a query called Sales by using a form and 3 combo boxes. But when there are no combinations I want the form to show a message saying no combinations found.
I was told I should look up what RECORDSET is otherwise I wouldn't get it. So I didn't but I'm still not getting anywhere. I'm new to this but willing to learn.
Combo boxes:
companycell, companyflux, companyribbon
... -
Thanks for the suggestion.Leave a comment:
-
Here it is
...Code:Private Sub Findbtm_Click() Dim rs1 As DAO.Recordset Dim rs2 As DAO.Recordset 'Attach recordsets to queries Set rs1 = CurrentDb.OpenRecordset("SELECT * FROM [Flux Information] WHERE [Company Name]" & "='" & [Companyflux] & "'", dbOpenSnapshot) Set rs2 = CurrentDb.OpenRecordset("SELECT * FROM [Ribbon Information] WHERE [Ribbon Company]"Leave a comment:
-
Actually, I figured out what was wrong. I had the expression like [forms].[sales].[firstflux] in the query criteria.
Now, it is not doing what I want it to do. How do I make it display only the combination I am looking for?
I'm about to quit this, I don't know what to do. Please help.Leave a comment:
-
Hello again,
I did what you said. I used the recordset code you gave me but now it is giving me this error:
"Run-time error '3061'
Too few parameters. Expected 3"
Any ideas what might be wrong?
Thanks for your time!...Leave a comment:
-
could you tell me a little bit more about how to do the recordset?
Thanks a lot for the help...Leave a comment:
-
oh, and it doesn't work because it is not finding the record unless I make the two boxes unknown either from the begining or when it asks me to find combinationsLeave a comment:
-
The code is suppose to evaluate if the combination chose by the user from 2 drop-down menus exist in the records (I'm using a query to show the records). If it does exits, then it will open up the a query called 'sales'. If it doesn't exist then it will show a message asking if the user wants to find combinations. It'll also ask what variable wants to left unknown. After that, the code finds the combination if there isn't one, it'll ask to add a...Leave a comment:
-
Nested IF statements not working
Hello,
I'm working on a search form. I have 3 combo boxes and I want to find combinations on a query to later show it in a report. Perhaps this is too complicated but I don't know how else to do it. I thought this code worked at first, but then a realized it wasn't really working. I know something is up with the if statements but I don't know how to fix it.
...Code:Private Sub Findbtm_Click() If Me.CompanyCell.Value = ""
No activity results to display
Leave a comment: