VB VideoVerleih - Seite 3

Seite 3 von 3 - Forum: Coding Stuff auf overclockers.at

URL: https://www.overclockers.at/coding-stuff/vb_videoverleih_67495/page_3 - zur Vollversion wechseln!

watchout schrieb am 01.03.2003 um 18:33

Zitat von Flip

ok das ganze schaut jetzt so aus

Code:

Private Sub txtArtNr_Change()

    If txtArtNr.Text = "" Then
        txtArtN.Text = ""
        txtArtT.Text = ""
        txtArtK.Text = ""
        txtArtFSK.Text = ""
        txtArtB.Text = ""
    ElseIf txtArtNr.Text <> "" Then
    
    
    Open "Artikel.dat" For Random As #1 Len = Len(artikel)
        snr = txtArtNr.Text

        Get #1, snr, artikel

        txtArtN.Text = artikel.name
        txtArtT.Text = artikel.type
        txtArtK.Text = artikel.kat
        txtArtFSK.Text = artikel.fsk
        txtArtB.Text = artikel.beschr
    Close #1
    End If

    
End Sub

und funktioniert!!

hmm, ich halte nix davon, wenn während der eingabe schon der datensatz geladen wird, weil wenn ich zb. zum datensatz 147 möcht, dann lädt er erst 1 dann 14 dann 147 -> lame, machs entweder onkeypress(enter) oder onblur (oder wie das im vb heisst) beides is ok aber "live" is lame (in dem fall

)

atrox schrieb am 01.03.2003 um 18:47

zu überdenken:
was passisert, wenn...
- jemand buchstaben eingibt ?
- eine negative zahl eingibt ?
- eine zahl > anzahl datensätze ?

du solltest ausserdem einen blick auf die val()-funktion werfen.

weiters: <> ist die negation des = operators. du brauchst also kein elseif, ein einfaches else reicht