Query

  • Onderwerp starter Onderwerp starter css
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

css

Gebruiker
Lid geworden
6 mrt 2005
Berichten
19
Ik heb een stukje onderstaande code en ben heel slecht in SQL...in deze code laat de query alleen de velden zien waar iets in staat. Ik wil dat het ook de lege velden laat zien..ik weet dat het in:

If IsNull(Me.cboDatum.Value) Then
strDatum = " Like '*' "

staat, maar hoe wijzig ik dit zodat deze ook de lege velden laat zien al ik niets heb ingevoerd in het formulierveld?


Private Sub cmdOK_Click()
On Error GoTo cmdOK_Click_err
Dim db As DAO.database
Dim qdf As DAO.QueryDef
Dim strDatum As String
Dim strMonteur As String
Dim strJaar As String
Dim strSQL As String

Set db = CurrentDb
If Not QueryExists("qryOverzicht") Then
Set qdf = db.CreateQueryDef("qryOverzicht")
Else
Set qdf = db.QueryDefs("qryOverzicht")
End If


If IsNull(Me.cboDatum.Value) Then
strDatum = " Like '*' "
Else
strDatum = "=#" & Me.cboDatum.Value & "# "
End If
If IsNull(Me.cboMonteur.Value) Then
strMonteur = " Like '*' "
Else
strMonteur = "='" & Me.cboMonteur.Value & "' "
End If
If IsNull(Me.cboJaar.Value) Then
strJaar = " Like '*'"
Else
strJaar = "=" & Me.cboJaar.Value & " "
End If
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan