Search results

Hi As suggested by Mike Krailo your Transactions Form should look like that shown in the attached screenshot.

Hi I have taken a look at the database and have the following issues:- Field names should not have characters ~$/-!"£%^&*() Each table should have a PK which is numeric and not text A number of tables have Lookup Fields which should not be used Unable to Enforce Referential Integrity between...

Can you upload a copy of the database?

When I opened the last version you sent it was showing the 2. As long as it is now sorted then that's great. Mike has given you a good modification to the Contacts subform.

Hi I found in the version you uploaded you had a reference to 2 backend files. I removed 1 of them and then relinked to the correct BE and all now appears to be fine Remember to relink the FE to the BE

Because the Job can have multiple Contacts you need a table related to the Job where you can record Multiple Entries. See the modified BE and the FE with the addition of a Main Form to record Site a Subform to Record Jobs with a related Subform to record Contacts.

It would make more sense to say: 1 Site has a Specific Job and each Job has a Specific Contact

Need FE as well please

Can you upload a copy of your db?

On The form where you are recording the Job details you would create a Combobox to Lookup the Contact allocated for the specific Job

Hi I changed the code as suggested Private Sub cmdAddLines_Click() 10 On Error GoTo cmdAddLines_Click_Err 20 If Me.Dirty Then Me.Dirty = False 30 If DCount("[MainId]", "tblLineUnitEntries", "[MainId] = " & Me.txtMainID) <> 0 Then Me.Undo 40 If MsgBox("If These...

Hi everyone I have posted the same question on Utter Access The code I am using as as follows and I am getting the following error. Private Sub cmdAddLines_Click() 10 On Error GoTo cmdAddLines_Click_Err 20 If Me.Dirty Then Me.Dirty = False 30 If DCount("[MainId]"...

Hi June I amended the Date Construct to remove spaces.

Hi Everyone As usual it was my mistake again The initial I changed the SQL Code shown below and it now works just fine Dim strSQL As String strSQL = "UPDATE tblCurrentPastYears SET DateFrom = # " & Me.txtD _ & " # WHERE DateFrom is Null;" Debug.Print strSQL CurrentDb.Execute strSQL...

Hi June & CJ I am trying to get the date updated by using the following Code and cannot get the syntax right, Dim strSQL As String strSQL = "UPDATE tblCurentPastYears SET DateFrom = #" & 1 / 1 / [txtY] _ & " # WHERE DateFrom is Null;" Debug.Print strSQL CurrentDb.Execute strSQL...

Hi CJ Many thanks nad now you have pointed me in the right direction I will do the insert. Many thanks

Hi Everyone I have a Form which has an Unbound Control named "CurrYr" to display the Current Year 2025 using the following. =Right(Date(),4) I then want to run an Append Query using the Code as follows: INSERT INTO tblCurrentPastYears ( YearClassID, StudentID, GradeID, ClassID ) SELECT...

Hi In the attached I have imported all of the relevant objects for the process of attaching documents related to a Specific Permit for a specific Plant. The Form that opens allows you to select a Specific Plant and add all relevant details for the Permit. Then in the Subform you can locate...

Hi The attached has a good calculator of DateDiff provided by @Pat Hartman

Translation Hi David Your question is not very clear. Does the employee number, name and other fields ALREADY appear on your second form? OR Do you WANT the employee number, name and other fields to appear on your second form? Whatever your answer is, what do you want to do once you have that...