Recent content by mcalpine

Perfect. thank you very much for your help...... You are a star.....

Hi, I was looking to see if there was an easy way to create a user front end desktop application for a small access database. I have three users on different computers i would like them to input or amend data within one table of the access database. Any help would be greatly appreciated...

Hi, Not sure how to carry this task out......sorry for being stupid...

Hi, I have found the code to open up in a form, please see code below. Docmd.Openform "Form Name" but when i click on a specific record it opens up the first record and not the record that i clicked on to view.

Hi, I was looking for a little help. I have created a Datasheet Form which when opens shows lots of records. I was looking to see if there was a way that if i clicked on a specific field name within a record it would open a new form with all the information of that record only. Any help...

Hi Bob, Perfect. You are a star......worked first time....... Can i ask possible another stupid question.... Is there any way that i could give users access to input data into a specific form of the database only. i do not want to give them access to the admin side of the database, just a...

Here is the code with the underscores that works with Assigned text within the Status Field Private Sub Form_BeforeUpdate(Cancel As Integer) If Me.Engineer_Assigned = "Assigned" Then Me.[Date__Assigned] = Date Me.[Time_Assigned] = Time() Else Me.[Date__Assigned] = Null...

Hi Bob, Managed to get it working. Me being Stupid. I had spaced between my Field Names which was automatically filled in by underscores in access. I had to amend your code by adding underscore in-between my field names. I am looking for another bit of help if possible with the code that you...

Hi, As soon as i added the () they just Disappear ?

Complete code within VB Private Sub Form_BeforeUpdate(Cancel As Integer) If Me.Status = "Assigned" Then Me.[Date Assigned] = Date Me.[Time Assigned] = Time() Else Me.[Date Assigned] = Null Me.[Time Assigned] = Null End If MsgBox "Code Ran" End Sub

now showing runtime error 2465. Cannot find the 'I' field referred to in your expression. when selecting Debug, the text highlighted in yellow is - Me.[Date Assigned] = Date

no, I just pasted in the text that you gave me into the text box. do you want me to paste the text into the Event Procedure within the Before UpDate?

No. not getting box "Code Ran" Still not Automatically inserting date or time? I have copied the code as shown below into before update event. If Me.Status= "Assigned" then Me.[Date Assigned] = Date() Me.[Time Assigned] = Time() Else Me.[Date Assigned] = Null Me.[Time Assigned] =...

Hi, I have copied and paste the code you provided into the Before Update Were would i find the Edited/Added? Thanks M

Hi, I have copied the code that you mentioned, but this does not seem to automatically update the time or date. It is possible something that i am doing wrong........ Thanks M