Reset page numbers for each group in a report

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

Use NotInList Event to Add a Record to Combo Box

Some time we would like to add new items into Combo Box while it does not previously exists.
There are several’s 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."
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("Customers", dbOpenDynaset)
'Ask the user to input a new Customer ID.
Msg = "Please enter a unique 5-character" & vbCr & "Customer ID."
NewID = InputBox(Msg)
Rs.FindFirst BuildCriteria("CustomerID", dbText, NewID)
' If the NewID already exists, ask for another new unique
' CustomerID
Do Until Rs.NoMatch
NewID = InputBox("Customer ID " & NewID & " already exists." & _ vbCr & vbCr & Msg, NewID & " Already Exists")
Rs.FindFirst BuildCriteria("CustomerID", dbText, NewID)
'Create a new record.
'Assign the NewID to the CustomerID field.
Rs![CustomerID] = NewID
' Assign the NewData argument to the CompanyName field.
Rs![CompanyName] = NewData
' Save the record.
' Set Response argument to indicate that new data is being added.
Response = acDataErrAdded
End If
Exit Sub

'An unexpected error occurred, display the normal error message.
MsgBox Err.Description
'Set the Response argument to suppress an error message and undo
Response = acDataErrContinue
End Sub

Read More