CBlog(handziuk)

DoCmd.OpenForm "Name of Form" 

Public multiInstanceDic As Dictionary

'returns the window handle (long)
Public Function OpenNewDynamicDataSheetInstance(queryForRecordSource As String, Optional inputCaption As String) As Long
    
    If multiInstanceDic Is Nothing Then
        Set multiInstanceDic = New Dictionary
    End If
    
    Dim frm As Form
    Set frm = New Form_DynamicDatasheet
    frm.Caption = inputCaption
    frm.SetRecordSource queryForRecordSource
    multiInstanceDic.Add frm.Hwnd, frm   'required to keep form alive after function exits
    frm.SetFocus
    
    OpenNewDynamicDataSheetInstance = frm.Hwnd
End Function

Public Function GetDynamicDataSheetInstance(frmHandle As Long) As Form_DynamicDatasheet
    Set GetDynamicDataSheetInstance = multiInstanceDic(frmHandle)
End Function

Dim createdWindowHandle As Long
createdWindowHandle = Windows.OpenNewDynamicDataSheetInstance("ViewForRecordsource", "My Caption Text")

Dim dDataSht As Form_DynamicDatasheet
Set dDataSht = Windows.GetDynamicDataSheetInstance(createdWindowHandle)
dDataSht.SomeProperty = "set to this"

Private Sub Form_Unload(Cancel As Integer)
    If Not MultiFormInstance.multiInstanceDic Is Nothing Then
        If MultiFormInstance.multiInstanceDic.Exists(Me.Hwnd) Then
            MultiFormInstance.multiInstanceDic.Remove Me.Hwnd
        End If
    End If
End Sub

    If Not Windows.multiInstanceDic Is Nothing Then
        'kill all the dynamic datasheets
        Dim key As Variant
        For Each key In Windows.multiInstanceDic.Keys
            Set Windows.multiInstanceDic(key) = Nothing
        Next key
    End If

1. AutoExec macro (a macro literally named AutoExec which runs as the first thing that happens when your app starts)
   
2. Default form

Things get funky and they step on each other when you have both of these set.

You can use the AutoExec macro by creating anew macro and naming it AutoExec. Then paste this code in there. It is just the RunCode macro which calls a function (it has to be a function not a sub. A sub will not work) from some static module (not a class module).

<?xml version="1.0" encoding="UTF-16" standalone="no"?>
<UserInterfaceMacros xmlns="http://schemas.microsoft.com/office/accessservices/2009/11/application">
	<UserInterfaceMacro MinimumClientDesignVersion="14.0.0000.0000">
		<Statements>
			<Action Name="RunCode">
				<Argument Name="FunctionName">
DoThisOnStartup()
				</Argument>
			</Action>
		</Statements>
	</UserInterfaceMacro>
</UserInterfaceMacros>

This is the code I typically run on startup. You can substitute ACCDE for ADE or MDE (whatever you are using). Note that you cannot just use the Applicaiton.IsCompiled property because that just indicates whether or not the code is in a temporarily compiled state, not the saved file type.

Public Function DoThisOnStartup()
    Dim fso As New FileSystemObject
    Dim ErrorValue As String
    'only do this stuff if the file is compiled
    On Error GoTo DoThisOnStartup_Error

    If fso.GetExtensionName(CurrentProject.FullName) = "ACCDE" Then
    
        'MsgBox CurrentProject.FullName
        
        'hide the navigation pane
        ErrorValue = "DoCmd.SelectObject acForm, , True"
        DoCmd.SelectObject acForm, , True

        On Error GoTo DoThisOnStartup_Error
        DoCmd.NavigateTo "acNavigationCategoryObjectType": DoCmd.RunCommand acCmdWindowHide
        
        DoCmd.NavigateTo "acNavigationCategoryObjectType" ', "Forms"
        
        'incase they unhide it
        ErrorValue = "DoCmd.LockNavigationPane True"
        DoCmd.LockNavigationPane True

       ' CommandBars.ExecuteMso "MinimizeRibbon"  ' another, less robust way to hide the ribbon
        If Application.CommandBars("Ribbon").Height >= 150 Then
            SendKeys "^{F1}"
        End If

    End If

    VeryifyBackendIsInPlace

Exit_DoThisOnStartup:
    DoCmd.OpenForm "Dashboard"
   On Error GoTo 0
   Exit Function

DoThisOnStartup_Error:
    ' logging if you can
       Resume Next  ' continue trying to start up
    
End Function

1. Open git bash
2. cd to the directory where you want to put your repo. (mkdir if you need to)
3. git clone <your repo url on GitHub>
4. add all your files/do work 
5. git add .
6. git commit - commits all your changes
1. This will open up a vim editor. Add whatever comment you want for this commit.
2. Press Esc to get out of Insert Mode (press a to get back into edit mode)
   
3. :w to save your comment
   
4. :q to exit the vim editor
7. git push- pushes that commit up to the repo

Another good to know

Revert changes git checkout -- .

<name of="" control="">|<value for="" that="" control="">||<another control="" name="">|<value for="" that="" control="">...</value></another>

Function PopulateWithOpenArgs(ctrls As Controls, OArgs As String) As Dictionary
    Dim controlValues As New Dictionary
    Dim controlsValuesArr() As String, i As Integer
    Dim ctrlValPair() As String
    controlsValuesArr = Split(OArgs, "||")
    On Error Resume Next
    For i = LBound(controlsValuesArr) To UBound(controlsValuesArr)
        ctrlValPair = Split(controlsValuesArr(i), "|")
        If UBound(ctrlValPair) >= 1 Then
            controlValues.Add ctrlValPair(0), ctrlValPair(1)
        End If
    Next i
   
    Dim ctrlName
    For Each ctrlName In controlValues.Keys
        ctrls(ctrlName) = controlValues(ctrlName)
    Next ctrlName
    
    Set PopulateWithOpenArgs = controlValues
   
End Function

Dim rptOpenArgs As String
Dim whereClause As String
rptOpenArgs = "txtDateSubmitted|" & txtDateSubmittedInput & "||txtSubmitterName|" & txtSubmitterNameInput
whereClause = set to whatever value...
DoCmd.OpenReport "Rpt_MonthlyPayments", acViewPreview, , whereClause, OpenArgs:=rptOpenArgs

Private Sub Report_Load()
    PopulateWithOpenArgs Me.Controls, Me.OpenArgs
End Sub