Search results

does your users have folders, like: C:\Users\accounts_2\OneDrive - PM\NIS-IRN if they don't you can create the folder first. copy this code on a module: Sub ForceMkDir(ByVal path$) Dim file$, var As Variant Dim i% var = Split(path, "\") On Error Resume Next For i = 0 To...

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

on your first recordset loop, you are checking for AnnoMin and AnnoMax. on your loop you get to rs.EOF, but on the next loop of recordset you forgot to reset again the recordset to the first record (rs.MoveFirst). therefore, your code will immediately stop on the second loop since rs.EOF is True.

just tested it using the Legacy webbrowser and created new database on Windows 11 and Office 2024 x64, and still it works!

i don't know if those entities on your diagram are individual queries, but you can first create, on each table, aggregate by product code and just link the result via this product code. you build small Total queries first, then join them on common product code.

i still retain the code that closes the pop-up (just in case). then instead of "gotfocus" or "click" event of the "theValue" textbox, i overlayed the textbox with a Transparent command button. so Click and Gotfocus works on the command button. I also fix the Tab orders of the controls. and now i...