Recent content by andymartin3186

Many thanks for your help (y)

Got it! Dim Filename As String Dim FilePath As String Filename = "Quotation" & " " & "M" & Format(Me.JobID, "00000") FilePath = "C:\Users\Andy\Desktop\" & Filename & ".pdf" DoCmd.OutputTo acOutputReport, "Quotation", acFormatPDF, FilePath, , , ...

I've decided to use VBA to do this rather than macros Dim Filename As String Dim FilePath As String Filename = "Quotation" & " " & Me.JobID FilePath = "C:\Users\Andy\Desktop\" & Filename & ".pdf" DoCmd.OutputTo acOutputReport, "Quotation", acFormatPDF, FilePath, ...

Just as a side note if I leave the output file field blank, it saves correctly after asking me where to save.

Apologies Could you elaborate what you mean with that? I'm reasonably new to Access

Hi Guys I've tried to create a macro based on another users post from 2020. I want to click a button on my job form, which saves the single report matching the current displayed jobID and saves it as a PDF on the desktop. I would also like the filename formatted as Quotation M00000 where the...

I tried changing the subform to Allow Additions Yes and that stops the error for now and the box is blank. It would be nice for it to show £0.00 when the other box is blank but not sure how to do it

Why doesnt the parts total box display an error but the box which points to parts total does? The other box just has =[Job Subform].[Form]![PartsTotal] and this is the one which shows #error. I don't know how to add an IsNull statement to this as its just referencing the other box?

This is the code I put into the box for the line total. Does the code need to go into the other box which is showing the error? Currently this box just points to the other control

Quick question and probably one that is easily fixed Parts total at the bottom is a calculation from sum of line totals. If no parts are added to a job this box is empty. A box on the main screen also refers to this and gives an #error until a part is added. How do I change the error to £0.00?

Just to show you how it now looks, I've added tab pages to make it more neat so the components section of a job is on its own page. Working fantastic. Really grateful for all your help.

Hi June That was really helpful ive amended this and prefer it without warnings. I might do the same when deleting a line but may be useful to prevent accidental deletes

Many thanks, this worked brilliantly. The code I used at the end was Dim intPartID As Integer Dim intJobID As Integer intPartID = Me.PartID intJobID = Forms![Job Form]![JobNumber] strsql = "INSERT INTO JobParts (PartID, JobID) Values ( " & intPartID & ", " & intJobID & ")" Debug.Print strsql...

Update - I've done all the work to add the 2nd subform. I just need the code now to put into the button so when I choose a component from the components table it adds its partID as a record to the jobparts table using the current jobID

Hi everyone, I've attached a few screenshots of the existing design, and also the last one which is how I filter to look up my jobs. When I look up my jobs I can type into any one of the top boxes and it filters on this keyword, I can then open the job by clicking the button. I would like to do...