New user
Beiträge: 2
| Hallo Karl,
Danke damit funktioniert`s ! An die naheliegenste Lösung habe ich natürlich nicht gedacht. Kam mir irgendwie komisch vor, eine Abfrage zuzumachen, nur weil man einen neuen Parameter als Kriterium eintragen will... Aber offensichtlich ist DoCmd.Close hier tatsächlich die Profi-Lösung.
Viele Grüße
Volker
So schaut´s jetzt in meiner Anwendung aus:
Private Sub cboKundenID_AfterUpdate()
Me.Requery
Call qryOpen
If qryOpen = True Then
DoCmd.Close acQuery, "qryWORDSerie"
DoCmd.OpenQuery "qryWORDSerie"
Else
DoCmd.OpenQuery "qryWORDSerie"
End If
End Sub
mit dem Modul qryOpen:
Public Function qryOpen() As Boolean
qryOpen = False
If SysCmd(acSysCmdGetObjectState, acQuery, "qryWORDSerie") = 1 Then
qryOpen = True
End If
End Function
|
