waarom werkt onderstaand programma niet?
Private Sub OK_Click()
If Omschrijving.Value = "" Then
MsgBox " U heeft nog geen omschrijving opgegeven", vbOKOnly, "Artikelen toevoegen"
Omschrijving.SetFocus
ElseIf Prijs.Value = "" Then
MsgBox "U heeft nog geen eenheidsprijs opgegeven!", vbOKOnly, "Artikelen toevoegen"
Prijs.SetFocus
Else
Antwoord = MsgBox("Mogen deze gegevens weggeschreven worden?", vbYesNo + vbDefaultButton2, "Artikelen toevoegen")
If Antwoord = vbYes Then
ArtikelenToevoegen.Hide
Else
Omschrijving.SetFocus
End If
End If
End Sub
Sub ArtikelToevoegen()
Pad = "D:\ElektronischeKassa\": ArtikelBestand = "ArtikelBestand"
If Dir(Pad, vbDirectory) = "" Then
MkDir Pad
Open Pad + ArtikelBestand For Random As #1 Len = Len(Artikel)
With Artikel
.Nummer = 1
.Omschrijving = "Laatst gebruikte artikelnummer"
.Eenheid = ""
.Prijs = 0
.BTWpercentage = 0
.VerkochteEenheden = 0
.OntvangenBedragen = 0
Put #1, 1, Artikel
.Nummer = 1
.Omschrijving = "Onbekend artikel"
.Eenheid = "Stuk"
.Prijs = 0
.BTWpercentage = 0
.VerkochteEenheden = 0
.OntvangenBedragen = 0
Put #1, 2, Artikel
End With
Close #1
End If
Open Pad + ArtikelBestand For Random As #1 Len = Len(Artikel)
Toevoegen = "Ja"
While Toevoegen = "Ja"
Load ArtikelenToevoegen
AantalArtikelen = LOF(1) / Len(Artikel)
Get #1, 1, Artikel
ArtikelenToevoegen.Nummer.Value = Artikel.Nummer + 1
ArtikelenToevoegen.Show
If ArtikelenToevoegen.Omschrijving.Value <> "" Then
With ArtikelenToevoegen
Artikel.Nummer = .Nummer.Value
Artikel.Omschrijving = .Omschrijving.Value
Artikel.Eenheid = .Eenheid.List(.Eenheid.ListIndex)
Artikel.Prijs = Val(.Prijs.Value)
Artikel.BTWpercentage = Val(.BTW.List(.BTW.ListIndex))
Artikel.VerkochteEenheden = 0
Artikel.OntvangenBedragen = 0
Put #1, AantalArtikelen + 1, Artikel
Get #1, 1, Artikel
Artikel.Nummer = .Nummer.Value
Put #1, 1, Artikel
End With
Else
If MsgBox("Wilt u stoppen met invoeren van nieuwe artikelen?", vbYesNo, "Artikelen toevoegen") = vbYes Then Toevoegen = "Nee"
End If
Unload ArtikelenToevoegen
Wend
Close
End Sub