Search results

Nevermind, I found them (they were hidden) not enough coffee....

Good morning Rob3! Where is your audit trail table and the modules you are using? Thanks!

Thanks CJ London, unfortunately I don't get a result at all. I'm wondering if the problem could be my firstday and lastday fields are derived from: Public Function FirstDayInMonth(Optional dtmdate As Variant) As Date If IsMissing(dtmdate) Then dtmdate =...

Hello all! I am creating a payments form in which I need to lookup how much a person has paid this month. I am using 2 date fields on my form to determine the first and last day of the month (firstday, lastday) I have a field on my form called PaymentsMadeToday (means as of today actually) with...

Change datevalue(TodaysDate) to date() HTH

Thank you Dave! (Not Gemma the dog):) I'm a bit confused on how to use this (my own ignorance).

Good morning all! I apologize in advance for cross posting, but I was't getting any response on the other forum. I am using this to write out an XML file (found it on the web): Dim tostate3 As AdditionalData 'Dim objOrderDetailsInfo As AdditionalData Set tostate3 =...

What worked for me, in each form or subform's before update event, put this code: Call AuditChanges(Me.ID, Me). The full module is: 'Sub AuditChanges(MyForm As Form, IDField As Control) 'Sub AuditChanges(IDField As Control, Optional frm As Object = Nothing) Sub AuditChanges(ByVal IDField As...

Oh, I didn't realize you were importing it so it's no longer live data. I'm looking for a way to link to google spreadsheets to that the data is always up to date. We have a web form that people complete to receive a free quote. In order to tap into the results, I used google integration in...

Hello, I can get to step 6 ok, but my spreadsheet is still considered a new web query not an actual spreadsheet that I could link to. What should I do? I thank you in advance. Gina

Yes! Here you go! Option Compare Database Option Explicit Private Function GetFormName(frm As Form) As String Dim strFormName As String strFormName = frm.Name On Error Resume Next 'Because form may not have a parent. strFormName = frm.Parent.Name & "-" & strFormName...

Well I'm afraid I did the happy dance a little too soon. With a great deal of help I got this to mostly work, Sub AuditChanges(ByVal IDField As Control, Optional ByVal frm As Form = Nothing) On Error GoTo AuditChanges_Err Dim C As Control, xName As String Dim cnn...

I got it working!!!! Please don't spend any more time on this. I thank you from the bottom of my heart for your willingness to help. Have a wonderful day!! Gina

Sorry - it was still too big. Here it is.

Ok, I hope this works. I stripped a bunch of stuff out. The data is bogus. The form I'm working with is First Contact. And I've tried the function on the Client Allergies subform. The module is title basAudit. My audit table is Audit Table. Login with gina pw: dev. Thank you so much.

I'm using 2013.

Thanks! You ROCK! I did see how your process works, with the audit trail in the forms. I'm using a different function and was trying to combine your myform stuff into it. But now I just have a giant rat nest. Here's my original code: Sub AuditChanges(IDField As String) On Error GoTo...

Hi, I'm so glad to have found your post. I've been banging my head with this audit trail stuff. However, I don't understand how to use this in my function. "MyForm!AuditTrail = MyForm!tbAuditTrail" Could you give me a hint? I downloaded your database and saw it in action, and would love to...

Hi I'm working on the exact same problem, with the same code. If you were able to figure it out, would you mind sharing? Thank you!! Gina

I got this to work perfectly. Please excuse if it is not indented correctly :-) Public Sub Login() On Error GoTo ErrorHandler: If IsNull([cboUser]) = True Then 'Check UserName is completed MsgBox "Username is required" ElseIf IsNull([txtPassword]) = True Then 'Check...