Recent content by arnelgp

it would yes it would, but only when no table/query, form (bound), report is open. if the BE is used by another user, it won't get backup. it will only get backup by the last user of your app upon closing.

point 1 on markk's post #6 is correct. the backup must took place when the BE is not in used. that is what my code actually do. it check first if the BE is free and back it up. otherwise no backup is created.

you can use DMax() domain function to retrieve the Importing_Date: If DMax("Importing_Date", "LinkedTableName") = Date() Then If Msgbox ("Import data is ready with todays date click yes to continue or no to abort import.",vbInformation+vbYesNo) vbYes Then ' code goes here for your...

for automatic backup whenever the front-end is closed, you will need a startup, hidden form that when closed will do the backup. copy this to a module: Function IsBackendInUse() As Boolean Dim strBackendPath As String Dim intFileNum As Integer strBackendPath = BackEndPath()...

what do your check does? check number of records? check all field contents of a record are same on the other table?

you can using Replace() function or use RegExp.

i think this is very: SELECT TotalSales, EventID, SchoolID FROM ( SELECT TotalSales, EventID, SchoolID, (SELECT COUNT(*) FROM YourQuery AS t WHERE t.SchoolID = YourQuery.SchoolID AND t.EventID > YourQuery.EventID) AS Rank FROM YourQuery ) AS Ranked...

you have accumulated vast knowledge that you forgotten about the commandbar object.

you should have Quotes on DLookup. are you using semicolon (;) as list separator instead of a comma: cboCompanyNo Default Value =Dlookup("D_CompanyNo", "Dflt_TBL")

mr.jason, i tried your html. only question is whenever i select a date from the calendar, the calendar closes. can you make it stay for as long as the form is open? also i save the scripts and stylesheet to table (long text) so the calendar is available offline.

Just adding Top 1 on the second Select statement will do: SELECT YourQuery.TotalSales, YourQuery.EventID, YourQuery.SchoolID FROM YourQuery Where EventID = (Select Top 1 T.EventID From YourQuery As T Where T.SchoolID = YourQuery.SchoolID Order By T.EventID DESC) UNION SELECT TOP 1...

you may also try: SELECT YourQuery.TotalSales, YourQuery.EventID, YourQuery.SchoolID FROM YourQuery Where EventID = (Select Top 1 T.EventID From YourQuery As T Where T.SchoolID = YourQuery.SchoolID Order By T.EventID DESC) UNION SELECT YourQuery.TotalSales, YourQuery.EventID...

added underscore and circle as well.

you may also elect to show boxes (rectangles) instead of underscore characters. the catch is, you can only show "boxes" in Print preview view of the report (boxes will be printed to the printer/pdf). see this demo.

my windows 11 version