Search results

Once the team have been using for a few days with no issues, I will remove the duplicate field in the sub form.

Thanks all for the support - in the end i added 1 field from my sub form, to my main form, then added the dirty = false code. Hi Pat, good advice as always, This change was in a test version, i currently have 4 different versions (Main, Test, Admin and Archive - (And backups of each every 2...

Yes - always opens on a new record - When looking through old records - no issues due to the job number being populated. Parent and child set up correctly.

Yes

Form opens, and Input Date, Entered_By are already completed by Default. JOB ID is blank. (Showing as New on the screenshot) Nothing else is entered on the main form - When I move to the sub form - and start to enter the details - The Job ID is the link between the 2 forms -

I thought that was the case. I have tried the AttemptSave - but this does not help. If Nz(Forms!frmintake.tbjobid, "") = "" Then DoCmd.RunCommand acCmdSaveRecord End If The main form - only has 3 fields on it - TBInputdate, TBEntered_By and TBJobid. The...

Sorry for another post but recently started moving my back end over to SQL. When the DB went live this morning, the users let me know they could not add any records to the DB. I have Primary Key Set, identity specification set as yes, With increment value also set, I have relinked the Table -...

Perfect - Wish i had asked Hours ago - that took 10 seconds SQL Server Never Used ChatGPT - Did not know it could convert code.

I have the code below in a access query to update the JOb_ID fields that are blank, This is approx 600,000 rows, and takes forever to run - i have to keep stopping the query. What do i need to do to convert this, so i can run in SQL Server and not through access ? Thanks in advance. UPDATE...

Thanks ALL. Now working !!

I recently moved some of my tables into a SQL server, with a access front end, With this code the LogErrors (Allen Browne) is giving me a error code. Initially it was error 3622 -"You must use the dbSeeChanges option with OpenRecords", so i added SDSeeChanges, and now getting error 3001 at the...

This is how it is currently set - but i am trying to move to using OpenArgs as i think i could use that in a few of my forms. Thanks for the advise though.

Trying to use Openargs to filter a form using a value from a Combobox on a different form - but i just dont get how it works. This is what i have so far. Main Form Private Sub BtnFobDespatches_Click() On Error GoTo Handler Dim Stlinkcriteria As String WarningsOff Stlinkcriteria =...

To check for the update, i have a query to look for unmatched Jobs, and this is always showing me with that i have some jobs in the detail, but nothing saved in the master table. (TblIntake) SELECT tblQCIntakeDetail.Delivery_Reference, tblQCIntakeDetail.Input_Date, tblQCIntakeDetail.Enterd_By...

You are correct in implying that I am using AutoNumber, So is this something that I just need to live with ?

Need Advise please. Had this issue for some time now, trying to show the issue in the images below, when a user inputs some check data - they open up a form, and this assigns a job number - in the below the job number is 89889. the data is saved in a intake Table (tblIntake) and the detail is...

My code below - looks for the prefix "Crash" and runs any query that contains "Crash" in the name. This then runs 13 queries - so i am just looking for a way to close the queries down that are blank, and just leave the ones that i need to look into further. Any thoughts. Function Test_it()...

This was the original code that i had in the Beforeupdate event, are you saying that this way would still work ? If Nz(cboxOption, "") = "" Then MsgBox "You have to select an option !", vbExclamation + vbOKOnly, "Missing" Cancel = True ESCMessage Else On...

Just playing round with the validation code - should something like this work on the tabbed forms ? Private Sub Form_BeforeUpdate(Cancel As Integer) If Nz(cboxOption, "") = "" Then Cancel = True Else End If End Sub

Code changes to the below. If Me.NewRecord Then If Not IsNull(Me.OpenArgs) Then strOpenArgs = Split(Me.OpenArgs, ";") Me.TbJobId = strOpenArgs(0) End If End If Not sure i understand what you mean by the above, can you explain in more detail how to do this.