Search results

thanks all, sorted with the above.

Can i ask - how are you finding sharepoint as a back end ? i am currently trying to migrate my databases to sharepoint - 1 went with no problem as it only had 1000 records, the 2nd keeps timing out due to system resource issue - Stays at 35% for hours then quits. We want to migrate this to...

Set Index = CurrentDb.OpenRecordset("SELECT tblPoDetail.Cost, tblPoDetail.Requisition_Number " & _ "FROM tblPoDetail WHERE tblPoDetail.Requisition_Number = " & Forms!frmmain.tbRequisition_Number & ";", dbOpenSnapshot, dbReadOnly)

i have moved the back end of my database into Sharepoint, and currently got approx 90% of the funtionality. One issue i have is code that has always workedi is below is now giving me a type mismatch error 13 at the Set index code highlighted in Red. Any advise appreciated. Function...

I have been struggling with this for a couple of hours now. I have a value that is a dloopkup. the lookup works on when i am only trying to lookup based on one value, but i just cant get teh cdoe right to look at 2 values. Here are my individual Dlookups.. Can someone change this to that the...

Again, appreciate this is a old thread, but the code with a bit of tweaking does exactly what i needed. Thanks

That worked.

The Command is a bound column. Is it just a case of using the undo command ? for the 3 completed fields ? CboxSup_Code.undo ? Etc

Today's error message is error 2115. My code below looks to see if a supplier and a delivery reference have already been checked, and if so, brings back the job number in the database. I then want to code to Cancel what the user was doing and automatically open up that job number, When...

it looked like this was the problem all along. Seems to work now i have added the SqlDate(Date()) to the enddate I will still consider the other points that have been discussed.

and this code strInputBox = InputBox("Please Enter the Start Date") Startdate = SQLDate("2/1/2019") If IsDate(strInputBox) Then Startdate = SQLDate(strInputBox) Enddate = SQLDate(InputBox("Please Enter the End Date")) If Len(Enddate) < 1 Then...

with this code Dim Startdate As String Dim Enddate As String Startdate = SQLDate(InputBox("Please Enter the Start Date")) If Len(Startdate) < 1 Then Startdate = SQLDate(#1/2/2019#) 'Exit Function End If...

that gives me a type mismatch error . Startdate = CDate(SQLDate(InputBox("Please Enter the Start Date")))

Tried it, still not working. i might go down the route of inputting the date via the form, or just exiting the function if the date is empty. The date system is the UK, the query should bring back records that have been input since the 1st of February (this works if i type the date in the...

Definately does not like it on mine, is it becuase the dates are defined as strings ? Here is all the code in the function. Dim Startdate As String Dim Enddate As String Startdate = SQLDate(InputBox("Please Enter the Start Date")) If Len(Startdate) < 1 Then...

Throughout my database when running reports i regular ask for date parameters, and convert these using the code provided by Allen Browne Function SQLDate(varDate As Variant) As String 'Purpose: Return a delimited string in the date format used natively by JET SQL. 'Argument: A...

I have the following code on my Quit Button. which calls the Private sub to check for deleted Jobs. Private Sub BtnQuit_Click() On Error GoTo handler Dim LResponse As Integer DoEvents AttemptSave If Me.FilterOn = True Then Me.FilterOn = False End If If IsNull(tbJobID) Or tbJobID = ""...

I have a button that runs 4 queries, Each of the 4 queries prompt for a start and end date, so i have tried to convert the queries to code. So far it has gone well, but i am struggling to see where the the prompt should sit in my code. I assume it is after the Between clause, but inspead of...

Thanks. Could not see the box it was hidden and no border.. sorted now. Sent from my SM-G950F using Tapatalk

Sorry to hijack someone else's post but I have the issue mentioned when trying to track the changes in the option group. I am struggling to select the option group as a whole to apply a tag, any advice ? When I tag the option buttons I get error 2427. You entered a expression that has no value...