Hoi Dizzl,
Alvast bedankt voor de mooie uitwerking in ADO.
Waar ik een héél weekend op vastloop is het volgende:
Vanuit formulier orderlijst terug naar formulier frmVerkopenADO_Recordset loopt het mis om bonNr gefilterd te krijgen. Ik loop vast in ADO om in formulier orderlijst dit naar behoren uit te werken.Weet jij een oplossing hiervoor? frmVerkopenADO_Recordset neemt blijkbaar de waarde niet over van de keuzelijst in frmOrders.
Ik heb in frmOrder het volgende gezet:
Private Sub Keuzelijst4_Click()
DoCmd.OpenForm "frmVerkopenADO_Recordset", acNormal
DoCmd.Maximize
DoCmd.GoToControl "BonNr"
Forms!frmVerkopenADO_Recordset!BonNr = Keuzelijst4.Column(0)
Forms!frmVerkopenADO_Recordset!BonNr.SetFocus
DoCmd.Close acForm, "frmOrderlijst"
End Sub
Hij neemt wel het bonnr over van de keuzelijst maar het record is niet op het bonNr gefilterd.
Toevoeging op 18/11/2013 16:56
Private Sub Keuzelijst4_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
'Gebruik een ADO connectie met DAO werkt dit niet
Set cn = CurrentProject.AccessConnection
'Maak een nieuwe instantie van de ADO Recordset class
'en stel de eigenschappen in
Set rs = New ADODB.Recordset
With rs
Set .ActiveConnection = cn
.Source = "SELECT * FROM tblVerkopen"
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
End With
'Stel de recordset in als bron voor het formulier
Set Me.Recordset = rs
DoCmd.OpenForm "frmVerkopenADO_Recordset", acNormal
DoCmd.Maximize
DoCmd.GoToControl "BonNr"
'Me.Filter = "BonNr Like '10'"
rs.Filter = "BonNr=" & Keuzelijst4.Column(0) & ""
Me.FilterOn = True
'Stel elke textbox in op een veld uit de recordset
Forms!frmVerkopenADO_Recordset!BonNr = rs("BonNr")
Forms!frmVerkopenADO_Recordset!Datum = rs("Datum")
Forms!frmVerkopenADO_Recordset!Tijd = rs("tijd")
Forms!frmVerkopenADO_Recordset!VerkoopOpm = rs("VerkoopOpm")
Forms!frmVerkopenADO_Recordset!Betaald = rs("Betaald")
DoCmd.Close acForm, "frmOrderlijst"
'Geheugen Opkuisen
Set rs = Nothing
Set cn = Nothing
End Sub
Zo zou het ok moeten zijn voor die filter. Zie Bijlage.
Nu nog een oplossing vinden om de betaalgegevens onafhankelijk te laten invullen met ADO.
Vriendelijke groet,
Diezel