query output empty

[Eddy Maas]

Hoi,

ik moet een controle inbouwen om ervoor te zorgen dat een bepaalde actie in vba niet plaats zal vinden in access als de output van een bepaalde query geen records laat zien. Weet iemand hiervoor een oplossing ?

Gr,

Eddy Maas

 

[WinteE]

Betreffende query uitvoeren, vervolgens :


If Not rs.eof Then
actie uitvoeren
End If

 

[zRowix]

of d.m.v. dCount kijken of er een resultaat komt.

 

[Eddy Maas]

Hoi,

Bedankt voor jullie reactie. Ik heb een poging gedaan om dit te verken in de code maar het lukt me niet.
In het formulier heb ik een knop gemaakt waaran ik een actie wil laten uitvoeren. Deze actie is het printen van een dokument(4x)
Echter als er geen data is print hij dit toch.

Zou iemand mij hiermee verder kunnen helpen ?

De volgende code staat nu achter deze procedure :

Private Sub Knop4_Click()
On Error GoTo Err_Knop4_Click
Dim stDocName As String
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Zijn de CMR dokumenten geprint?" ' Definieert bericht.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Definieert knoppen.
Title = "BELANGRIJK !!!!" ' Definieert titel.

stDocName = "CMR"
DoCmd.OpenReport stDocName, acNormal
DoCmd.OpenReport stDocName, acNormal
DoCmd.OpenReport stDocName, acNormal
DoCmd.OpenReport stDocName, acNormal
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' Gebruiker koos Ja.
DoCmd.RunMacro "cmr printing succeed" ' Voert bepaalde handeling uit.
Else ' Gebruiker koos Nee.
MyString = "Nee" ' Voert bepaalde handeling uit.
End If

Exit_Knop4_Click:
Exit Sub

Err_Knop4_Click:
MsgBox Err.Description
Resume Exit_Knop4_Click

End Sub

 

[zRowix]

kijk eens naar een standaard sjabloon bijvoorbeeld servicebeurten dan moet je ff kijken bij de "no data" trigger dan kom je er wel uit moet je alleen je code iets aanpassen want anders zul je 4 x een melding krijgen