Search results

Use OpenArgs parameter to pass criteria string on DoCmd.OpenReport: DoCmd.OpenReport stDocName, acPreview, WhereCondition:=BuildFilter OpenArgs:="something you want to pass" and then read it in Report_Open event sub: Dim CriteriaString as txt CriteriaString=Me.OpenArgs

OpenArgs should work, as RuralGuy suggested. You could pass both as one delimited string, then split it back in two variables in OnOpen event.

You need to set timer interval as well. In properties window for the form, on the Event tab - Timer Interval, it's in miliseconds so 1000 means 1s. Also I'd avoid spaces and special characters in object/control names, that's asking for trouble. Maybe change name of the button to...

Create a timer on the form. Then in OnTimer event: If Hour(Now) > 14 Then YourButton.Enabled = False End If Your Timer can have interval of 1 minute unless you want to be more precise then set it to 5 seconds or even 1. Up to you.

AFAIR settings for touch keyboard are in Settings->Devices->Typing (not 100% sure and can't check it right now).

Have you tried Me.YourComboBox.Requery ? Edit: sorry, didn't see a "macro builder" part. I never used it so no idea here.

If you'd like to go this way you can use DMin function. DMin("YourDateFieldName","YourDedicatedDatesTableName") Don't name your fields Date, Name etc. as those are reserved words and may cause trouble later on.

One idea: create a standard module with public function that returns your wanted date and use it in query. You can't use vba variables as query parameters but you can use functions.

Thank you guys, I got it sorted using principles from Allen Browne's website. Very helpful reading indeed.

Hi All, I got a table with records of inspections of some sort: Parts may come from different suppliers. I need to find every PartID from supplier with 4th consecutive positive InspScore but, to make it harder (at least for me) I need that 4th to be last inspections (chronologically). So in...

Your query to base the report on will be: SELECT EmpID, JobTitle FROM tblTestData WHERE StartDate<=YourSetDate AND EndDate>=YourSetDate

Maybe try Application.Quit instead of DoCmd.Quit? I read somewhere that despite those two do exactly the same, DoCmd.Quit is more for legacy purposes.

It's not error really, it's because of using default values for parameters you omitted. DatePart function looks like that: DatePart ( interval, date, [firstdayofweek], [firstweekofyear]) If you don't input [firstdayofweek] and [firstweekofyear] parameters then Access uses default ones for it...

My sample is exactly your sample. Only thing I had to do is declare WskazPlik variable as it's not in your function. Public Function Plik(TytulOkna As String, TytulPrzycisku As String, Filtr As String) As String Dim wskazMiejsce As FileDialog Dim WskazPlik As Variant Set...

Date for SQL string should be provided in format MM/DD/YYYY

Yes, that. And it works for me, I can see only accdb files and "Save as type" shows "All files (*.*)"

Why? Because MS says so here: https://msdn.microsoft.com/en-us/library/aa190813(v=office.10).aspx

You can't directly set filters on msoFileDialogSaveAs. However if you set the InitialFileName to *.accdb then dialog will force that extension. The filter will still say "All Files" but it will not show files with different extensions.

Another idea is to remotely enable special keys, something about it in this thread: http://www.utteraccess.com/forum/lofiversion/index.php/t1263110.html See TheSmileyCoder's post.

MsgBox can't use Unicode characters, only plain ascii.