[VB & Access]

[Verwijderd]

Ik ben bezig met een opdracht voor school om een facturering systeem te maken

Ik ben nu bezig in Access met een stuk VB code om factuur nummers en totaal bedragen van de goede maand te maken per klant, Ik heb in mijn formulier een selectie box gemaakt alle maanden er in deze moet je selecteren om de facturen van die maand te maken. Nu heb ik het probleem als ik eerst bijv mand 6 gedaan heb sluit het formulier af en kijk in de tabel dan word alles goed gedaan als ik maand 7 selecteer en voer hem uit dan komen er nieuwe records in de tabel met als nog maand 6

Hier onder is mijn code geen idee waar het aan ligt

Visual Basic .NET:

Option Compare Database

Private Sub Form_Load()
Selecteer_jaar.Value = Null
Selecteer_maand.Value = Null
End Sub


Private Sub Maak_facturen_Click()


    Dim RecordSetKlanten As New ADODB.RecordSet
    Dim connectionKlanten As ADODB.connection
    Dim RecordSetFactuurGegevens As New ADODB.RecordSet
    Dim connectionFactuurGegevens As ADODB.connection
    Dim Klantnummervar
    Dim Totaaltotaal
    Dim Totaalvar
    Dim Betaald
    Dim Datum
    Totaaltotaal = 0
    Betaald = "Nee"
    Datum = Date
    Set cnn = CurrentProject.connection
    
    DoCmd.SetWarnings False
    
    RecordSetKlanten.Open "SELECT * FROM Klanten", cnn, 3, 1
    Do While Not RecordSetKlanten.EOF
      
      Klantnummervar = RecordSetKlanten.Fields(0)
       
        ' AND Jaar = (" & Selecteer_jaar & ")
        RecordSetFactuurGegevens.Open "SELECT * FROM Factuurgegevens WHERE Klantnummer = (" & Klantnummervar & ")AND Maand = ('" & Selecteer_maand & "')", cnn, 2, 1
        
        Do While Not RecordSetFactuurGegevens.EOF
        
        Totaalvar = RecordSetFactuurGegevens.Fields(9)
        Totaaltotaal = Totaalvar + Totaaltotaal
        
        RecordSetFactuurGegevens.MoveNext
    Loop
    DoCmd.RunSQL "INSERT into Facturen (Klantnummer,Betaald,Datum,Maand,Jaar,Totaal) VALUES ('" & Klantnummervar & "',  '" & Betaald & "', '" & Datum & "', '" & Selecteer_maand & "', '" & Selecteer_jaar & "', '" & Totaaltotaal & "')"
    RecordSetFactuurGegevens.Close
    Set connectionFactuurGegevens = Nothing
    Set RecordSetFactuurGegevens = Nothing
    Totaaltotaal = 0
    RecordSetKlanten.MoveNext
    Loop
     
     
    RecordSetKlanten.Close
    Set connectionKlanten = Nothing
    Set RecordSetKlanten = Nothing


End Sub

[whoami]

Hoi,

Wat is het probleem precies ? Je zet hier een tekst neer, die ik moeilijk kan begrijpen (begrijpelijk als er geen punten, leestekens, etc... in staan).
En dan zet je hier ook een lap code neer met een vage omschrijving van het probleem.

Het is de bedoeling dat, als je iets programmeert, en het werkt niet zoals je het wil, of zoals je verwacht, dat je dan zelf je code eerst eens debugged. Voer eens de code regel per regel uit, en zie wat er waar mis gaat.
Het is niet de bedoeling dat wij hier in P&W jouw code gaan debuggen. Debuggen is iets wat je zelf moet kunnen.
Succes.