Hallo!
Am 7.12.2011 findet das nächste Live-Meeting statt.
Welches Thema wünscht ihr euch?
LG
Josef
dim rst as dao.recordset
dim strSQL as String
strSQL = "Select ... & " _
" from ..." & _
" inner join ... ON ... " & _
" where ... AND " & FilterStringFromDateValue("FeldName", Datumsvariable) & " ..."
set rst = currentdb.openrecordset(strSQL, ....)
...
Private Sub InitFilterForm()
If m_FilterFormHandler Is Nothing Then
Set m_FilterFormHandler = New FilterFormHandlerEx
End If
With m_FilterFormHandler
Set .ListForm = Me!sfrItemList.Form.InitListForm(New ListFormHandlerEx, "q_frm" & Me.Name, m_conListMode)
.ListMode = m_conListMode
End With
InitFormFilters
End Sub
Private Sub InitFormFilters()
If m_FilterFormHandler Is Nothing Then
InitFilterForm
Exit Sub
End If
With m_FilterFormHandler
.DeleteFilters
.AddFilter cFilterControl:=Me.filtCompanyCode, _
sFieldName:="CompanyCode", _
lFieldType:=FF_FieldType.FT_Text, _
lFilterMode:=FF_FilterMode.FM_Like
.AddFilter cFilterControl:=Me.filtName, _
sFieldName:="Company", _
lFieldType:=FF_FieldType.FT_Text, _
lFilterMode:=FF_FilterMode.FM_Like + FM_WildcardRight
.AddFilter cFilterControl:=Me.filtPostCode, _
sFieldName:="PostCode", _
lFieldType:=FF_FieldType.FT_Text, _
lFilterMode:=FF_FilterMode.FM_Like
[...]
End With
End Sub
m_FilterForm.AddFilter cFilterControl:=Me!filtStartDateMin, _
sFieldName:="StartDate", _
lFieldType:=FF_FieldType.FT_Date, _
lFilterMode:=FF_FilterMode.FM_Between, _
bNotErasable:=False, _
cFilterControl2:=Me!filtStartDateMax