VB VideoVerleih

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 )