Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Kasregister  (gelezen 10778 keer)

0 leden en 1 gast bekijken dit topic.

Offline Diezel

  • Oplosser
  • ****
  • Berichten: 508
  • Geslacht: Man
  • Meedenker - Initiatief nemen - Helpen oplossen...
Re: Kasregister
« Reactie #15 Gepost op: 18 november 2013, 11:49:05 »
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
OS: Windows 10 Home - 64 bit
Processor:  Intel(R) Core(TM) I7 - 4770 CPU 3,40 GHZ
SSD - RAM: 500 GB, 16 GB
SOFTWAREPAKKET: Office 2007

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Kasregister
« Reactie #16 Gepost op: 19 november 2013, 05:45:50 »
frmVerkopenADO_Recordset krijgt een recordsource bij het openen van het formulier.
Daar hoef je op frmOrderlijst niets voor te doen.
Je opent gewoon het formulier en je zorgt ervoor dat je naar het bewuste record gaat.

    DoCmd.OpenForm "frmVerkopenADO_Recordset", acNormal

    DoCmd.GoToRecord acDataForm, "frmVerkopenADO_Recordset", acGoTo, Keuzelijst4.Column(0)
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Diezel

  • Oplosser
  • ****
  • Berichten: 508
  • Geslacht: Man
  • Meedenker - Initiatief nemen - Helpen oplossen...
Re: Kasregister
« Reactie #17 Gepost op: 19 november 2013, 23:09:59 »
Hoi Dizzl,

In bijlage de voorlopige resultaten in ADO. Momenteel loopt het programma lekker. Zelfs als de database leeg is kan men direct opstarten met een nieuw record. Zie in bijlage.

Vriendelijke groet,

Diezel.
OS: Windows 10 Home - 64 bit
Processor:  Intel(R) Core(TM) I7 - 4770 CPU 3,40 GHZ
SSD - RAM: 500 GB, 16 GB
SOFTWAREPAKKET: Office 2007

Offline Diezel

  • Oplosser
  • ****
  • Berichten: 508
  • Geslacht: Man
  • Meedenker - Initiatief nemen - Helpen oplossen...
Re: Kasregister
« Reactie #18 Gepost op: 01 oktober 2016, 20:17:23 »
Dag oplossers,

Hier een bijdrage van een werkende basis kasregister. Indien jullie opmerkingen hebben voor verbetering en of toevoegingen graag jullie commentaar. Het overzicht blijft behouden ook alsook werk je met een kaartmenu van 500 artikelen en of producten.

Zie net dat ik alweer tegen het probleem loop om eerste record toe te voegen. In tabel tblVerkopen lukt dit.


tblVerkopen heeft een relatie met tblVerkooplijnen, en zolang ik geen 1ste record toevoeg in tblVerkooplijnen kan ik formulier niet gebruiken(opstarten) om gegevens toe te voegen.


Vriendelijke groeten,

Diezel
OS: Windows 10 Home - 64 bit
Processor:  Intel(R) Core(TM) I7 - 4770 CPU 3,40 GHZ
SSD - RAM: 500 GB, 16 GB
SOFTWAREPAKKET: Office 2007

 


www.combell.com