Search results

Ok, if I load the form by it self then it works ok. Problems stems when opening form from another related form. In my related form I have a field fldWISerial and it has on-click event: DoCmd.OpenForm "frmWorkInstruction", , , "fldWISerial= '" & Me.fldWISerial & "'". So then, following...

Here are all declarations: Private Sub Form_Current() Dim strLastAudit As String Dim strAudit Dim strDR As String Dim strLastDR As String strAudit = Me.LastAudit strLastAudit = Nz(DMax("fldDateClosed", "tblIQA", "fldDocID = " & fldDocID)) strDR = Nz(Me.LastReview) strLastDR =...

I'm getting following error: Line of code: strLastAudit = Nz(DMax("fldDateClosed", "tblIQA", "fldDocID = " & fldDocID)) I've also tried the following: strLastAudit = Nz(DMax("fldDateClosed", "tblIQA", "fldDocID = '" & fldDocID & "'")) fldDocID is a PK in tblIQA, an auto number. Any ideas?

Hey there, thanks for reply. I'm on version 1909 of Win 10 Enterprise. Not sure if this version has that bug. OS Build - 18363.2037 Unfortunately, I cannot update windows as my organization does that, so I'm stuck with this for now I guess.

Hello! I have a database which I manually split. It contains no tables. Portal.accdb Next, I have a back-end file with all tables Portal_be.accdb Obviously tables are linked, everything works fine when using the application. These files are hosted on a server file folder. Next, I took...

Hello everyone! I'm having some problems with my combo box selection. I need to select an item from drop-down combo box and depending on the selection perform an action. In this example, a simple message box with yes or no. Private Sub cboReview_AfterUpdate() DoCmd.Save...

Ok, this is weird. I was playing around with the code, rewrote it again just as above and now it works :unsure: Anyone know why?

Me.fldFolder = \Document Reviews\Document Reviews\2022\DR-22-007 WordDocs.name = CC177-T3-429-4.05-03.docx

Oh, I'm sorry, Can't find the field '|1' referred to in your expression.

I get the run time error 2465 with this code: docxFile = Me.fldFolder & "\" & Left([WordDocs.Name], 25) WordDocs.Name is a filename with .docx extension I'm guessing i've got syntax wrong? Anyone know how to fix it?

Never mind, figured it out. It's supposed to be: Private Sub fldSerial_Click() DoCmd.OpenForm "frmDocRevDetail", , , "[fldSerial]='" & (Me.MaxOffldSerial) & "'" End Sub

I'm having issues figuring out how to fix this bit of code: Private Sub fldSerial_Click() DoCmd.OpenForm "frmDocRevDetail", , , "[fldSerial]=" & MaxOffldSerial End Sub MaxOffldSerial contains a hyphen. It looks something like this: DR-22-001. When I click on the field, it opens the...

Hey, thanks again! I found the problem. For some reason I didn't have nxtInspection dimentioned as date in my code. Now everything works!

My apologies, that was me. Still something is up with syntax

Hey, thanks for help! Any idea why I'm getting syntax error in nested if ? Even if I just type if it immediately turns red as you can see

It returns what ever the value of fldIQADue is (a date such as 2025-11-08)

Hi all, This is my continuation of previous thread. I figured this could be it's own thread since it's a follow-up question. I would like to use date value returned in my code and check if the month of that date is also present in another recordset which I use to activate/deactivate certain...

Now that I have this working, my next question is how do I check to see if selected month is active, as in, there is a checkmark next to it from separate subform? For example with this line of code: Do While Not rstLP.EOF rstLP.Edit nxtInspection = rstLP!fldIQADue...

Thanks so much!

I've got the code to do what I want it to do, but I need to add more loops. When I add another loop right after another, I get the error 3420 "Object Invalid or no longer set" on "Do While Not rstLP.EOF" line Function MakeSched() Dim db As DAO.Database Dim rstHP As DAO.Recordset Dim rstLP As...