VB fout

[meeuwen]

Ik ben bezig om via 5 filters in een form een rapport uit te draaien. Nu ken ik weinig van VB, maar op internet vind je alles. Ik heb nu een formulier gevonden wat precies aan mijn eisen voldoet. Alleen daar staat in de code "and" Ik wil daar inplaats van hebben "or".
Nu heb ik and vervangen door OR, maar bij het zetten van de filter komt er een aanhalingsteken te weinig .

Dit wordt als filter in het rapport geplaatst:
[Model1] = "S3P" OR [Model2] = "S3P" OR [Model3] = "S3P
Ik kom dus aan het eind aanhalingstekens tekort.


Ik heb achter OR al getracht aanhalingstekens erbij te zetten, maar dat komen er twee x aanhalings tekens bij een krijg ik de volgende filter
[Model1] = "S3P" OR "[Model2] = "S3P" OR "[Model3] = "S3P"
Nu staan er aanhalingstekens voor [model2] en [model3]

Hieronder staat de VB code waar ipv OR dus AND stond

Private Sub Command28_Click()

Dim strSQL As String, intCounter As Integer
'Build SQL String
For intCounter = 1 To 5
If Me("Filter" & intCounter) <> "" Then
strSQL = strSQL & "[" & Me("Filter" & intCounter).Tag & "] " & " = " & Chr(34) & Me("Filter" & intCounter) & Chr(34) & " OR "
End If
Next

If strSQL <> "" Then
'Strip Last " AND "
strSQL = Left(strSQL, (Len(strSQL) - 5))
MsgBox strSQL
'Set the Filter property
Reports![Model Rapport].Filter = strSQL
Reports![Model Rapport].FilterOn = True
End If
End Sub

Wat moet ik er aan veranderen??
Alvast harstikke bedankt
Gerrit

 

[elagas]

Is het niet mogelijk om de database even te posten. Dan kan ik het beter bekijken in zijn geheel.

 

[meeuwen]

Posten database

Is het niet mogelijk om de database even te posten. Dan kan ik het beter bekijken in zijn geheel.

dat moet ik even bekjken, want hij is al behoorlijk gevuld en is nu ongeveer 50 MB groot.

 

[elagas]

dat moet ik even bekjken, want hij is al behoorlijk gevuld en is nu ongeveer 50 MB groot.

Kan je geen copy van je database maken, je tabellen leegmaken en comprimeren.
inzippen en posten.
Dan moet ie naar mijn idee een stuk kleiner zijn.

Groetjes

 

[meeuwen]

Kan je geen copy van je database maken, je tabellen leegmaken en comprimeren.
inzippen en posten.
Dan moet ie naar mijn idee een stuk kleiner zijn.

Groetjes

Heb alles wat maar kon weggegooid uit de db maar hij blijft ingepakt nog 390 kb. Dus ruim boven de 100.

Ik heb een download link op mijn site neergezet. Als je naar www.meeuwenberg.com gaat ', dan naar de links pagina.
Op de linkspagina naar beneden naar Paint Shop Pro.
Daaronde zie je een link 3D databse. Als je daar op klikt kan je hem downloaden.

 

[Tardis]

Hallo Gerrit,

wijzig deze coderegel

strSQL = Left(strSQL, (Len(strSQL) - 5))

in

strSQL = Left(strSQL, (Len(strSQL) - 4))

Groet,

Tardis

 

[meeuwen]

Gelukt !!!

Hallo Gerrit,

wijzig deze coderegel

strSQL = Left(strSQL, (Len(strSQL) - 5))

in

strSQL = Left(strSQL, (Len(strSQL) - 4))

Groet,

Tardis

Dat was het Harstikke bedankt.