Search results

some info I had to remove, field headers still there.

Join Expression not supported error

By field Freight Unit (FU), or by Delivery Number, these fields have no duplicates

Overdue table has 10,000 (running total of orders where proof of delivery "POD" is late), open table has 663 (orders where POD isn't due), when an order has the planned end date changed to a future date, I need that record to drop off overdue report.

SELECT Overdue_POD_Report.Plant, Overdue_POD_Report.[Plant Description], Overdue_POD_Report.[Ship to Customer Name], Overdue_POD_Report.[Business Division], Overdue_POD_Report.[Division Group], Overdue_POD_Report.[Shipping Type], Overdue_POD_Report.[Order Number], Overdue_POD_Report.[Delivery...

yes, it ran through the code as expected. but still doesn't log a new entry into a textbox.

yes, nothing

That didn't work Pat, if I open the form and type in a blank textbox, it doesn't log that, but if I change data in a textbox it logs it.

Option Compare Database Option Explicit Sub TrackChanges(F As Form) Dim ctl As Control, frm As Form Dim MyField As String, MyKey As Long, MyTable As String Dim db As DAO.Database, rs As DAO.Recordset On Error Resume Next Set frm = F Set db = CurrentDb Set...

This code doesn't add a new entry in the audit table, but logs changes. Here is the code that isn't adding the new data entered into the textbox. Any help greatly appreciated. For Each ctl In .Controls ' inspect only data-bound controls Select Case ctl.ControlType...

Please disregard, I figured it out. Thanks for the link, works perfect.

wvMitchell, I cannot get the tag part down, where do I put the tag in the form and what should the tag be? Much appreciate the help.

The query is the source for other reports that I don't want to use the min shipdate.

Code to open report; Option Compare Database Option Explicit Dim RetVal As Variant Dim CloseDialog As Boolean Dim SPTotal As Currency Dim RptTotal As Currency Private Sub GroupFooter2_Format(Cancel As Integer, FormatCount As Integer) ' txtSPTotal = SPTotal End Sub Private Sub...

I have a field in the query called Shipdate. I want to use the Min date of this field in a textbox on a report. I don't want to restrict the query since it feeds other reports where I don't want to use the Min function. I keep getting the results in the report as #Error.

Pat, thank you for the tips, I'm fairly new to VBA, so I see my code was a mess. I did found the error in the below code. I think I used the code tags correctly, if not please inform me. Sub AuditTrail(frm As Form, RecordID As Control) 'Track changes to data. 'recordid identifies the pk...

Here is the code for the form, every control on the form is bound to the table named CLAIMS. Option Compare Database Option Explicit Dim RetVal As Variant Dim rs As DAO.Recordset Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal Milliseconds As LongPtr) Private Sub...

I have the update form built and working greater, no errors and updates the correct record, but if I open the form that has all bound controls and make a change in any of the controls, I get the dreaded 3251 error, Object not supported if I move to the next record.

I have a form that is linked to a table named Claims. Works great, I have an add Claim form and form to lok at unsettled and settled claims. What I want to do is create another form that will update some of the fields in the table without opening the settled, Add, or unsettled forms. This...

Worked like a champ, thanks Uncle Gismo.....