I have a form for looking up records. There is a text field on the form to put in a number that can be found in the table (tbl_data) field named 8DNumber which is a number field.
A subform in datasheet view is on the form to show the results of the search with the linked fields being 8DNumber...
That is a good idea about the message box... I think I will do that... as far as connecting to their computer... they are in Viet Nam... and I am not a network admin so this probably will be difficult. Maybe I can catch them tonight (their morning) over Skype for business and have them allow me...
The printout is
UPDATE tbl_users SET Version = 'v018' WHERE ID = 1
ID = 1 is my login
I tested the users login that is having the issue on my computer and their login works and their version number is already correct because I haven't published any updates in weeks.
I asked them to send me a...
This is the whole block of code
Private Sub Form_Open(Cancel As Integer)
Dim dbs As DAO.Database
Dim FEVersion As Variant
Set dbs = CurrentDb
If Credentials.AccessLvlID = 0 Then
DoCmd.OpenForm "frm_loginform"
Cancel = 1
End If
If Credentials.UserId =...
I don't have an issue on my computer... it is happening to one of my users overseas. I have no idea what version of office they have or what version of windows they are using. Terrible language barrier and always 24 hours delay in getting answers
Sorry to post again in this long thread but Microsoft has done something to access that is causing this line to throw the 3144 Syntax error in UPDATE statement error
DoCmd.RunSQL "UPDATE tbl_users SET Version = '" & FEVersion & "' WHERE ID = " & Credentials.UserId
What is wrong with the syntax...
Have you tried removing that?
Does it crash as you described if you open the database by holding down the SHIFT key and clicking the DB? That should bypass the AutoExec and any other code.
Sorry about that Colin... I didn't know you had given him code already and the code I posted is from my database (I found it somewhere else) for a form I am working on.
use this
Option Compare Database
Option Explicit
Private Sub NameOfYourDeleteButton_Click()
Dim strSQL As String
strSQL = "DELETE NameOfTable.* FROM NameOfTable WHERE (((NameOfTable.NameOfPrimaryKeyField)=" & Me.NameOfPrimaryKeyField.Value & "));"
CurrentDb.Execute strSQL...
Indeed... the users will name the attachments the same all the time i.e. IMG 1.jpg, IMG 2.jpg etc. which is the reason for the folder creations the way they are. I also do not want to delete any attachments ever unless a record needs to be deleted for whatever reason. I have reports that access...