msconfig

Status
Niet open voor verdere reacties.

Jacq v d Heuvel

Gebruiker
Lid geworden
10 feb 2009
Berichten
8
In msconfig vind ik een overzicht van aspecten welke doorlopen worden bij het opstarten:
naar mijn mening is dat allemaal niet nodig en daarom wil ik er aantal "uit" vinken, maar ik versta de afkortingen niet die er staan.
Kan iemand mij een overzicht met verklaring van de afkortingen bezorgen
Hartelijk dank computer-collega's
 
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
 
Geen idee waarom het niet werkt maar:

a) staat je topic in de verkeerde sectie
b) staat je vraag in die van iemand anders die een totaal andere vraag heeft
c) topic stamt uit 2009

Graag je eigen vraag aanmaken en in de juiste sectie :)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan