Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Poste mal ein wenig Code (oT)
Autor: Cyrano
Datum: 12.03.02 08:02
Guten Morgen, hier ein bisserl Code aus meinem Programm! Das ist der Code von dem Command-Button, der die Suche auslösen soll: Private Sub cmdShowAKUNR_Click() 'aktiver Index Tabelle_stamm.Index = "AKUNR" 'Suchroutine Tabelle_stamm.Seek "=", txtAKUNR.Text If Not Tabelle_stamm.NoMatch Then lblAName1.Caption = Tabelle_stamm("AName1") lblAName2.Caption = Tabelle_stamm("AName2") lblAName3.Caption = Tabelle_stamm("AName3") lblAName4.Caption = Tabelle_stamm("AName4") lblAStrasse.Caption = Tabelle_stamm("AStrasse") lblALK.Caption = Tabelle_stamm("ALK") + "-" lblAPLZ.Caption = Tabelle_stamm("APLZ") lblAOrt.Caption = Tabelle_stamm("AOrt") Else MsgBox ("Kein Datensatz gefunden!"), vbCritical End If End Sub Das hier bedarf, glaube ich keiner Erklärung! *gg* Private Sub Form_Load() 'Stammdatenbank öffnen dbFile_stamm = App.Path + "stamm.mdb" Set db_stamm = Workspaces(0).OpenDatabase(dbFile_stamm, False, False) Set Tabelle_stamm = db_stamm.OpenRecordset("tbl_Stamm") 'Prospektdatenbank öffnen dbFile_prospekt = App.Path + "prospekte.mdb" Set db_prospekt = Workspaces(0).OpenDatabase(dbFile_prospekt, False, False) Set Tabelle_prospekt = db_prospekt.OpenRecordset("tbl_Prospekte") 'Statistikdatenbank öffnen dbFile_statistik = App.Path + "statistik.mdb" Set db_statistik = Workspaces(0).OpenDatabase(dbFile_statistik, False, False) Set Tabelle_statistik = db_statistik.OpenRecordset("Statistik") End Sub Und hier dein Code: Public Function FeldInhalt(Feld As Field) As Variant If IsNull(Feld.Value) Then If Feld.Type = dbInteger Or Feld.Type = dbLong Then FeldInhalt = 0 ElseIf Feld.Type = dbBoolean Then FeldInhalt = False Else FeldInhalt = "" End If Else FeldInhalt = Feld.Value End If End Function Vielen Dank für deine Hilfe! Grüße, Cyrano

Problem mit 'NULL'	69	Cyrano	11.03.02 17:03
Re: Problem mit 'NULL'	42	Tux12Fun	11.03.02 17:45
Re: Problem mit 'NULL'	292	Dieter	11.03.02 17:51
Danke!!!	36	Cyrano	11.03.02 18:41
Re: Problem mit 'NULL'	37	Cyrano	11.03.02 19:41
Poste mal ein wenig Code (oT)	199	Dieter	11.03.02 19:55
Re: Poste mal ein wenig Code (oT)	35	Cyrano	12.03.02 08:02
So sollte es gehen	465	Dieter	12.03.02 10:25
Re: So sollte es gehen	36	Cyrano	12.03.02 10:30
Re: So sollte es gehen	204	Dieter	12.03.02 10:37
Re: So sollte es gehen	38	Cyrano	12.03.02 10:42
FeldInhalt - nicht FensterInhalt	219	Dieter	12.03.02 10:52
Heureka	40	Cyrano	12.03.02 11:02

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