Re: Feld automatisch weiterzählen
Verfasst: Sa, 31.01.2009 00:15
Hallo Du!
Dein Code ist schwere Kost
Bin selbst kein Profi, aber vielleicht kann ich Dir ja eine Anregung geben; habe hier im Forum mal einen Code gefunden der eine Rechnugsnummer generiert die immer eins weiter geschaltet wird.
Die Daten werden in einer externen Datei gespeichert:
Vielleicht bringt es Dich weiter!?
Viele Ideen findest Du auch unter:
http://www.dannenhoefer.de/faqstarbasic/index.html
Viel Erfolg!
Oktobaer
Dein Code ist schwere Kost
Bin selbst kein Profi, aber vielleicht kann ich Dir ja eine Anregung geben; habe hier im Forum mal einen Code gefunden der eine Rechnugsnummer generiert die immer eins weiter geschaltet wird.
Die Daten werden in einer externen Datei gespeichert:
Code: Alles auswählen
function GetAndSetNumber as string
dim f as Integer
dim rechnungsdatei as string
dim renummer as string
rechnungsdatei="c:/re.txt"
if FileExists("file:///"&rechnungsdatei) then
f = FreeFile()
Open "file:///"&rechnungsdatei for Input as #f
Line Input #f, renummer
close #f
f = FreeFile()
Open "file:///"&rechnungsdatei for output as #f
Print #f, val(renummer)+1
close #f
else
renummer=0
endif
GetAndSetNumber=renummer
end function
Viele Ideen findest Du auch unter:
http://www.dannenhoefer.de/faqstarbasic/index.html
Viel Erfolg!
Oktobaer