All filter values can be retrieved with FilterValues.
=>
Your variant with m_CbxFilterControl.TextValue is more charming.
=> + Returns null or vbNullstring if nothing was entered.
=>
Code:
Private Sub InsertAndSelectNewProject()
Dim LastFilterValue As String
With m_CbxFilterControl.FilterValues
If .Count > 0 Then
LastFilterValue = .Item(.Count)
End If
End With
DoCmd.OpenForm FormName:="NewProject", WindowMode:=acDialog, Datamode:=acFormAdd, OpenArgs:=LastFilterValue
m_CbxFilterControl.DeactivateSearchMode
With Me.cbxSelection
.Requery
.Value = TempVars("NewProjectID").Value
TempVars("NewProjectID").Value = Null
End With
End Sub
Your variant with m_CbxFilterControl.TextValue is more charming.
Code:
DoCmd.OpenForm FormName:="NewProject", WindowMode:=acDialog, Datamode:=acFormAdd, OpenArgs:=m_CbxFilterControl.LastFilterValue
DataEntry fits because the form is called "NewProject". ;-)the form must not be DataEntry.
Last edited: