oosterbaan S S
Gebruiker
- Lid geworden
- 13 mrt 2005
- Berichten
- 128
Hallo
Een formulier wordt via een dialoogvenster, waarin de begin- en einddatum moet worden ingevoerd van de recordset, geopend.
In dit formulier bevind zich een keuzelijst die als een zoeklijst is ingesteld. Hiermee kunnen records in het formulier worden gevonden.
Het vba –na bijwerken- ziet er zo uit:
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Ordernaam] = '" & Me![Keuzelijst met invoervak295] & "'"
If rs.NoMatch Then
msgbox "Geen gegevens gevonden. Project bevindt zich in een afwijkend jaar dan de huidige recordset!" _
& vbCrLf & "Sluit het formulier af en bepaal de correcte periode via het dialoogvenster!", vbInformation, "naam"
Else
Me.Bookmark = rs.Bookmark
End If
Set rs = Nothing
Zoals hierboven is weergegeven geeft de recordset alle records weer in de keuzelijst en niet de recordset die is bepaald via het dialoogvenster van het formulier.
Nu heb ik geprobeerd om de query, die is verbonden met het dialoogvenster, ook te gebruiken voor de keuzelijst, maar dan krijg ik de meldingen dat ik de begin- en einddatum moet invoeren (wat natuurlijk logisch is). Dat is dus niet de bedoeling.
Hoe krijg ik het nu voorelkaar dat de keuze(zoek)lijst dezelfde recordset ontvangt als de recordset van het betreffende formulier.
Een formulier wordt via een dialoogvenster, waarin de begin- en einddatum moet worden ingevoerd van de recordset, geopend.
In dit formulier bevind zich een keuzelijst die als een zoeklijst is ingesteld. Hiermee kunnen records in het formulier worden gevonden.
Het vba –na bijwerken- ziet er zo uit:
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Ordernaam] = '" & Me![Keuzelijst met invoervak295] & "'"
If rs.NoMatch Then
msgbox "Geen gegevens gevonden. Project bevindt zich in een afwijkend jaar dan de huidige recordset!" _
& vbCrLf & "Sluit het formulier af en bepaal de correcte periode via het dialoogvenster!", vbInformation, "naam"
Else
Me.Bookmark = rs.Bookmark
End If
Set rs = Nothing
Zoals hierboven is weergegeven geeft de recordset alle records weer in de keuzelijst en niet de recordset die is bepaald via het dialoogvenster van het formulier.
Nu heb ik geprobeerd om de query, die is verbonden met het dialoogvenster, ook te gebruiken voor de keuzelijst, maar dan krijg ik de meldingen dat ik de begin- en einddatum moet invoeren (wat natuurlijk logisch is). Dat is dus niet de bedoeling.
Hoe krijg ik het nu voorelkaar dat de keuze(zoek)lijst dezelfde recordset ontvangt als de recordset van het betreffende formulier.