VB VideoVerleih

Zitat von watchout

schei* doch aufs speichern, machs wie word:
raise_error ("possible harddisk failure")

jetzt im ernst:
die einfachste variante wird sein, das file schritt für schritt durchzugehen und nach dem schlüssel zu suchen, und dann die zeile zu ersetzen, ich weiss jetzt leider nimmer ob man mit vb auf die leichte daten mitten in ein file einfügen kann, wenn nicht dann schreibst eben den ganzen datensatz ans ende vom file (den alten löschen nicht vergessen )

gut wie geht des jetzt? also den datensatz hinten dranschreiben is ka prob. nur den bestimmten datensatz mit der nummer löschen eines.. howto?

Zitat von HaBa

Was genau ist das für eine Schule?

"F1" bietet alles was du brauchst.


@all: lasst euch bitte das Lastenheft schicken und codets ihm den Schmutz damit das lange Leiden ein Ende hat

http://www.sdv.at
edit: F1 is *****

Zitat von JC

BTW, du solltest dir angewöhnen, deine Variablen mit Präfixen zu kennzeichnen (zb strKundenNr as String oder lngVerleihNr as Long).

danke

ich hasse die ******* hilfe is so unübersichtlich ich sitz eh scho den ganzen vormittag und suche.

entweder bin ich zdeppad oder übersehs immer

edie habs gfunden

Zitat von watchout

ich finde es wirkt schon dem sinn einer schule entgegen, dass wir ihm hier helfen, komplett alles für ihn zu coden wäre eindeutig sinnlos

Eindeutig ein dabei => wirs sind komplett einer Meinung.

dürfen wir uns das projekt auf unsere referenzliste setzen ?

alright arbeite grad an einer neuen vers. des programms.

wenn ich jetzt einen artikel editieren will schreibe ich die artikel nr in ein txtfeld rein.

klicke dann einen button und die daten des vids mit der nummer werden automatisch ins dazugehörige txt feld geschrieben.



funktioniert wunderbar.

hab ich mir gedacht der user kann sich den klick auf den button ersparen und schreib den code ins change vom txtfeld der nummer

Code:

    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

geht auch super nur wenn ich das was im txtfeld der nummer drinnensteht rauslösch, krieg ich die fehlermeldung typen unverträglich und der get befehl wird markiert.

wie mach ich das das der user die nummer ins feld reinschreibt die daten ausgelesen werden und wenn er die nummer wieder rauslöscht, dass in den anderen txtfeldern auch nichts mehr drinnensteht.

und das ganze ohne einen button zu klicken.

tia

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!!

Zitat von xdfk

@sdv:


will auch haben!!
tolle ausstattung hat eure schule

spamm your friends, not my thread