VBiB/ACCB.net - Visual Basic in België | .net Ineta User Group  
Hoofdmenu

Advertenties

Het Computer Winkeltje HCW


Evenementen

Forum

Plaats nieuw bericht   Plaats Reactie
Vorige onderwerp Printervriendelijke versie Log in om je privé berichten te bekijken Volgende onderwerp
Auteur Bericht
Luc001Offline
Onderwerp: Rapport afdrukken.  BerichtGeplaatst: 18 jun 2010 - 08:41
Senior Developer


Geregistreerd op: 18-jun-2007
Berichten: 209

Status: Offline
Dag allen,

Ik heb een rapport met groepen gemaakt en dat werkt prima via de rapporten.

Het zou natuurlijk veel leuker zijn om via een formulier dit rapport te tonen en zelfs te selecteren. Daarom heb ik op een formulier een button en een textbox geplaatst.

Er zijn echter enkele problemen:

1) Als ik een selectie maak krijg ik een messagebox om deze parameter
te herhalen en indien ik annuleer krijg ik een fout melding.

2) Als ik geen selectie maak wil ik een messagebox tonen maar krijg
onmiddllijk een fout melding.

Het enige wat werkt is, als ik een volledige selectie opvraag.
Hier is de code:

Visual Basic code:
Private Sub Command0_Click()

If Text5.Value = "volledig" Then
DoCmd.OpenReport "Reeks", acViewPreview
ElseIf Text5.Value = "" Then
MsgBox "Selecteer eerst een reeks"
Text5.SetFocus
Else
DoCmd.OpenReport "Reeks", acViewPreview, , "[Reeks]=" & Text5.Value
End If



End Sub


Bedankt op voorhand.

_________________
Groetjes,

Luc


Laatst aangepast door Luc001 op 18 jun 2010 - 15:07, in totaal 1 keer bewerkt
 
 Bekijk gebruikers profiel Stuur privé bericht  
Reageer met quote Naar boven
Luc001Offline
Onderwerp: Re: Rapport afdrukken.  BerichtGeplaatst: 18 jun 2010 - 15:06
Senior Developer


Geregistreerd op: 18-jun-2007
Berichten: 209

Status: Offline
Dag allen,

Ik heb reeds een oplossing gevonden voor mijn vragen..

Ik gebruik een knop om de parameterwaardenbox te openen en daar de selectie uit te voeren.
Indien ik deze selectie toch annuleer doet de code On Error.... zijn werk.
Dit is nu mijn code:

Code:
On Error Resume Next
DoCmd.OpenReport "Reeks", acViewPreview, , "[Reeks]=[Reeks Selecteren]=true"
On Error GoTo 0


Mag als solved beschouwd worden.

_________________
Groetjes,

Luc
 
 Bekijk gebruikers profiel Stuur privé bericht  
Reageer met quote Naar boven
Berichten van afgelopen:     
Ga naar:  
Tijden zijn in GMT + 1 uur
Plaats nieuw bericht   Plaats Reactie
Vorige onderwerp Printervriendelijke versie Log in om je privé berichten te bekijken Volgende onderwerp
PNphpBB2 © 2003-2007 
 

 
Postnuke - ADODB Database - PHP 4/5 - pnPhpBB2 - Hosting bij Openminds
Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno 21-12-2000)
vbib.be gestart op 1/03/06 (extra vanaf 1/09: vbnet.be en vbdotnet.be)
VBiB is gerelateerd met wintips.be

Nieuwsbrief RSS Feed: backend.php