Search results

you need to replace <error number> with the error number. (Without the inverted brackets)

Use the On Error command. First simulate the case where the database does not exist so that you can write down the error number then try this out: Private Sub cmdOpenTime_Click() Dim accapp As Access.Application Set accapp = New Access.Application On Error GoTo ErrorHandler...

Yea I missed something out. I have made changes to that post so it might work now. Really hard to test when not having a compiler handy :)

This work? Dim queryString As String queryString = "" If Not IsNull(Me.keyword) Then queryString = queryString & "[Item Description] Like '" & "*" & Me.keyword & "*'" & " AND " End If If Not IsNull(Me.HRCombo) Then queryString = queryString & "[HR...

Does my code work? I have been unable to test it so am writing from memory lol. My mistake with the LIKE statement. Try this out StrA = "[Item Description] Like '" & "%" & Me.keyword & "%'" That should return Item Description that contains the keyword.

Me.Filter = StrA & " AND " & StrB & " AND " & StrC & " AND " & StrD Sorry your filter line was wrong too, replace with this

Also it sounds like you're expecting to return multiple records from the queries? If so you're probably better off using a report instead of a form.

Try this out. I dont have MS Access handy so I couldn't test it. Dim StrA as String, StrB as String, StrC as String, StrD as String StrA = "" StrB = "" StrC = "" StrD = "" If Not isNull(Me.Keyword) then StrA = "[Item Description] Like '" & Me.Keyword & "'" End If If Not isNull(Me.HRCombo)...

So you have a form that contains a Tab Control? If so, use the following code in the On Load event to open to tab 14 Me.tabControl = 14 note: replace tabControl with the name of your tab control

Yea it's been a slow recovery. City center just starting to thrive now. Job prospects for programmers is excellent here haha.

Be sure to consider visiting Abel Tasman, Wanaka, and Queenstown if you make it to the South Island. Best places in NZ in my opinion if your looking for a mix of scenery and a tourist feel. I hope you enjoy your visit!

The first link worked great thanks!

Access version: 2013 Hey all Didn't really know whether to put this one in Report forum or Query forum as it kinda applies to both but is regarding a query for the filter property of a report so put it here :) This is a fairly weird issue that has had me stumped most of the morning. I have an...

Okay ive come up with easier to read code but still not working. Though this code executes and the Report is created but with no entries. Private Sub CreateReport_Click() Dim DocName As String DocName = "AllCustomers" DoCmd.OpenReport DocName, acPreview, , "TypeOfWorkServicing=...

Private Sub CreateReport_Click() Dim Serv As String Dim Manu As String Dim Boil As String Dim Steam As String Dim Hot As String Serv = "[TypeOfWorkServicing] = '" & Me!Servicing & "'" Manu = "[TypeOfWorkManufacturing] = '" & Me!Manufacturing & "'" Boil = "[TypeOfWorkBoilers] = '" &...

Aha! nevermind, I figured it out. I used a Do until end of file loop instead to search through all records and set text21 value to the LastUpdate when the ProductName matches the user selection. Works exactly how it should now. Thanks very much with the help, would have taken alot longer to...

ahh nevermind, re-read over your comment and see what you mean now. So how do I go about comparing Me.ProductName to every entry in that particular field of the Product table? Thanks for the help.

Thanks Lagbolt, works perfectly now.

Sorry here's the code again, spaced slightly better Private Sub Form_BeforeUpdate(Cancel As Integer) Dim CurrentDate As Date Dim UndoneAction As Boolean Dim SelectedProduct As String Dim ProductName As String Dim ProductDate As Date Dim varDateDiff As Integer Dim dbs As DAO.Database Dim Product...

Gday all, having issues storing dates as variables. The intent of this beforeUpdate() function is to check the 'latest update' field of the Product table and if the latest update of the product was over 2 weeks prior then undoChange. The problem is that this is only working for some of the...