Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Und wo ist dann die Suchabfrage? (oT)
Autor: Holger
Datum: 17.06.02 11:30
Dim mdbHandy As Database Dim dyT As Recordset Dim mSQL As String Dim mZuAb As Integer Private Sub bsSpeichern_Click() Set dyT = mdbHandy.OpenRecordset("teile", dbOpenDynaset) dyT.Edit If InStr(tfZuAb.Text, "-") Then dyT!bestand = dyT!bestand - Val(tfZuAb.Text) MsgBox "-" Else dyT!bestand = dyT!bestand + Val(tfZuAb.Text) MsgBox "+" End If dyT.Update End Sub Private Sub Form_Load() Set mdbHandy = OpenDatabase(".handy.mdb") mZuAb = Val(tfZuAb.Text) End Sub Private Sub tfTeileNr_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 przsuchen Case 48 To 57, 8 Case Else KeyAscii = 0 End Select End Sub Private Sub przsuchen() mSQL = "SELECT * FROM Teile WHERE TeileNr ='" & Val(tfTeileNr.Text) & "'" Set dyT = mdbHandy.OpenRecordset(mSQL, dbOpenDynaset) bfBezeichnung.Caption = dyT!bezeichnung bfBestand.Caption = dyT!bestand End Sub Private Sub bsEnde_Click() End End Sub Das ist jetzt die komplette Codierung *g*

Frage	64	Holger	17.06.02 11:17
Re: Frage	193	Dieter	17.06.02 11:25
Re: Frage	23	Holger	17.06.02 11:27
Und wo ist dann die Suchabfrage? (oT)	176	Dieter	17.06.02 11:29
Re: Und wo ist dann die Suchabfrage? (oT)	31	Holger	17.06.02 11:30
Re: Und wo ist dann die Suchabfrage? (oT)	189	Dieter	17.06.02 11:33
Tausend Dank !	24	Holger	17.06.02 11:37

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen