Dialoogvenster formulier gekoppeld aan formulier

[oosterbaan S S]

Beste forumleden,

Mijn formulier orders is gekoppeld aan de query orders.
In mijn formulier orders zijn ook nog 2 subformulieren aanwezig, elk met zijn eigen query.
Nu wil ik het formulier orders laten openen d.m.v. een formulier "dialoogvenster", waarin een begindatum en einddatum wordt ingevoerd, zodat een bepaald aantal orders (records) uitgeselecteerd wordt.

In de query orders is het form. dialoogvenster via een criterium verbonden: Is Not Null And Between [Forms]![Dialoogvenster orders]![Begindatum] And [Forms]![Dialoogvenster orders]![Einddatum].

Het dialoogvenster wordt geopend via een gebeurtenisprocedure in het form.orders.
De gebeurtenisprocedure ziet er alsvolgt uit:
Private Sub Form_Open(Cancel As Integer)
' Dialoogvenster Orders openen.
' Functie IsGeladen (gedefinieerd in module Utility Functions) bepaalt of het
' desbetreffende formulier is geopend.

Dim strDocNaam As String

strDocNaam = "Dialoogvenster orders"
' Openbare variabele instellen op True zodat het Dialoogvenster Orders
' weet dat de gebeurtenis Open wordt uitgevoerd voor het rapport.
blnOpening = True

' Formulier openen.
DoCmd.OpenForm strDocNaam, , , , , acDialog

' Als het Dialoogvenster Orders niet is geladen, geen formulier
' weergeven.
' (Gebruiker heeft geklikt op knop Annuleren op het formulier.)
If IsGeladen(strDocNaam) = False Then Cancel = True

' Openbare variabele instellen op False om aan te geven dat de gebeurtenis Open
' is beëindigd.
blnOpening = False

End Sub

Nu mijn probleem:
het form. dialoogvenster is op de een of andere manier toch niet gekoppeld aan de query. Ik krijg het dialoogvenster wel in beeld maar de invoer hierin genereert niet de records. Tevens krijg ik vanuit de query steeds invoerschermpjes waarin ik de begin- en einddatum moet invoeren. Uiteindelijk volgt dan ook nog het dialoogvenster voor in voeren begin en einddatum, maar zoals gezegd... de invoer in het dialoogvenster geeft niet de records (wel de invoer in de schermpjes vanuit de query)

De situatie moet dus zo worden dat alleen het dialoogvenster voldoende is voor het form. orders en dat ik niet de invoerschermpjes vanuit de query meer ontvang.

Ik hoop dat dit lange verhaal duideloijk is. Weet iemand hoe ik dit voorelkaar krijg?

 

[Bartuls]

Hierop is zonder je mdb geen antwoord te geven.
Dit soort problemen worden veroorzaakt door kleine foutjes in tabellen, queries, formulieren etc. Die moet je allemaal kunnen zien om het probleem op te lossen.
Mijn antwoorden beginnen eentonig te worden: post je mdb en er kan naar gekeken worden. Gebruik hiervoor Winzip, niet winrar.

 

[oosterbaan S S]

Beste Bartuls,

Ik wil mijn mdb graag als bijlage toevoegen, alleen als ik hem zip zit ik nog steeds op zo,n 300 kb en dat is te groot.
Ik heb de tabellen al verkleind tot zo'n 5 records maar desondanks krijg ik hem gezipt niet kleiner.
Kan ik de mdb rechtstreeks naar je mailen?

 

[Bartuls]

Mailen doen we niet aan op het forum. Het is bedoeling dat iedereen de vragen en de antwoorden kan zien. Een antwoord op een vraag kan voor iemand anders ook de oplossing van een probleem zijn.

Probeer eerst je mdb eens te comprimeren (menu extra, databasehulpprogrammas, database comprimeren en herstellen). Dat maakt een mdb meestal flink wat kleiner.

Wat je ook kunt doen is alleen dat stukje van je mdb posten waar het probleem in zit.

 

[oosterbaan S S]

Beste Bartuls,

Ik heb mijn database helemaal "uitgekleed", maar het probleem blijft nog steeds aanwezig, dus voor allen te bekijken.
Ben erg benieuwd of de forumspecialisten er iets mee kunnen!
Bedankt alvast voor je aanwijzingen:thumb:

 

[oosterbaan S S]

Beste forumleden,

Inmiddels heb ik - met hulp - de oplossing.
1 - de invoerschermpjes vanuit de query orders zijn te voorkomen door het form. orders te koppelen aan een nieuwe query - genaamd orders_dialoog, die uit dezelfde tabellen bestaan als de query orders.
Hierin plaats ik het criterium; dus in de query orders is het criterium niet meer aanwezig. De subformulieren, in het form. orders, hebben nu "geen last" meer van het criterium, dus geen invoerschermpjes meer vanuit de subformulieren.
2- In het form. orders vul ik niets meer in bij de recordbron.
De code bij het openen wordt:
Dim strDocNaam As String

strDocNaam = "Dialoogvenster orders"
blnOpening = True

DoCmd.OpenForm strDocNaam, , , , , acDialog

If IsGeladen(strDocNaam) = False Then
Cancel = True
Else
blnOpening = False
Me.RecordSource = "qry orders_dialoog"
End If
Nu lukt de invoer in het dialoogvenster en krijg ik de gewenste records

Allen bedankt voor het meedenken.