Learn to share

      You can customize Ms Access 2007 ribbon by adding Zoom feature in table [USysRibbons] with the following code : <group id="grpZoom" label="Zoom" visible="true"> <splitButton idMso="PrintPreviewZoomMenu" size="large"/> <toggleButton idMso="ZoomFitToWindow" size="large"/> <toggleButton idMso="ZoomOnePage" size="large"/> <toggleButton idMso="PrintPreviewZoomTwoPages" size="large"/> </group> You can also see original post at rptsoftware  

    Some time we would like to add new items into Combo Box while it does not previously exists. There are severals ways to do that : 1. Using Code to Add a Record to a Table:  With this you need to set LimitToList property of the combo box  to Yes and writing into its  OnNotInList event as below Private Sub CustomerID_NotInList(NewData As String, _             Response As Integer) Dim Db As DAO.Database Dim Rs As DAO.Recordset Dim Msg As String Dim NewID As String On Error GoTo Err_CustomerID_NotInList     If NewData = "" Then Exit Sub     Msg = "'" & NewData & "' is not in the list." & vbCr & vbCr & "Do you want to add it?"     If MsgBox(Msg, vbQuestion + vbYesNo) = vbNo Then         Response = acDataErrContinue         MsgBox "Please try again."     Else  ...

Sometime you would need to reset page numbering on your Ms Reporting on each group. To do so it's needed to add a few line of code in the sub as sample below: Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer) 'Set page number to 1 when a new group starts. Page = 1 End Sub And then  Set the   ForceNewPage   property of the Country Footer section to   After Section . To do this, follow these steps: In Design view, right-click   The Group Footer , and then click  Properties . In the  Section: GroupFooter1  dialog box, click the  Format  tab. In the  Force New Page  box, click  After Section , and then close the  Section: GroupFooter1  dialog box. See Original post at  841779   Or 209215