Het woord "Waarborg" opsporen in een zin van het veld

[willyv28]

Met If Then wil ik het woord "Waarborg" uitsorteren ergens in het veld Commentaar.
Het veld commentaar zal er bijv. zo uit zien: Paaltjesstraat 47 Kooigem - Waarborg flessen 10 Kg.
Het woord waarborg gaat steeds na het teken - staan.
Graag een beetje hulp.
Willy.

 

[OctaFish]

Waarom met IF ... THEN ? Ben je daar een functie voor aan het bouwen? Waarom niet gewoon filteren in een query?

 

[willyv28]

Het gaat om het formulier Facturatie.
Als de factuur is afgedrukt heb ik een knop "Factuur opslaan in PDF".
Via Gebeurtenis procedure sla ik ze op in diverse folders o.a.:
De factuur opslaan in PDF per nummer.
De factuur opslaan in PDF per adres.
De factuur opslaan in PDF klant 27.
Hierbij wil ik de factuur ook opslaan in PDF waarvan het veld "Commentaar" ergens het woord waarborg voorkomt en deze opslaat onder folder " Factuur opslaan waarborg.
Enkel die ene zin kan ik niet formuleren om dat woord op te sporen, de rest voor omzetting naar PDF en opslaan dat heb ik.

Zie hieronder.

Opslaan_cmdReportOpslaan:
strReportName = "FactuurS2"
strDocName = "FactuurS2"
strWhere = "[Factuurnummer]=" & Me!Factuurnummer
DoCmd.OpenReport strDocName, acPreview, "", strWhere, acHidden

If Klantnummer = 14 Then
folder = CurrentProject.Path & "\Faktuur_opslaan_GewMijVolksh\"
DoCmd.OutputTo acOutputReport, strDocName, acFormatPDF, folder & Me![Commentaar] & " - BJ 1314 - Fact.nr." & Factuurnummer & " .pdf"

Else: folder = CurrentProject.Path & "\Factuur_opslaan_per_adres\"
DoCmd.OutputTo acOutputReport, strDocName, acFormatPDF, folder & Me![Commentaar] & " - BJ 1314 - Fact.nr." & Factuurnummer & " .pdf"

End If


folder = CurrentProject.Path & "\Facturen_opslaan_2013-2014\"
DoCmd.OutputTo acOutputReport, strDocName, acFormatPDF, folder & Me!Factuurnummer & " " & Bedrijf & " " & [Commentaar] & " .pdf"

DoCmd.Close acReport, strDocName

DoCmd.GoToRecord , , acNext

Me.Klantnummer.SetFocus

Err_cmdReportOpslaan_Click:
'MsgBox Err.Description
'Resume Exit_cmdReportOpslaan_Click

End Sub

 

[OctaFish]

Doe ons een lol en maak de code op met de CODE knop, want dit is zo onleesbaar als code.

 

[OctaFish]

En om je een beetje op weg te zetten: je kunt met de functie INSTR controleren of een bepaalde tekst in een bepaald veld voorkomt. Als dat zo is levert Instr een getal op dat >0 is. En daar kun je dus een IF..END IF op bouwen.

 

[willyv28]

Michel bedankt, na een beetje zoek en testen is het gelukt. Willy.