title image


Smiley Re: Access Datenbank - Der Anfang
HI, hier ein 'mickriges' Beispiel;





Public Sub LeseFälligkeitenAus()



Dim DB As Database

Dim Rs As Recordset





Set DB = DBEngine(0)(0)



Set Rs = DB.OpenRecordset("Select * from [TageFälligTbl]")



If Not Rs.EOF Then



RechnungFällig = Rs.Fields("Rechnung")

Mahnung1Fällig = Rs.Fields("Mahnung 1")

Mahnung2Fällig = Rs.Fields("Mahnung 2")

Mahnung3Fällig = Rs.Fields("Mahnung 3")

BetreibungFällig = Rs.Fields("Betreibung")



Else

MsgBox "Keine Fälligkeitstage gefunden, bitte tragen Sie diese in die Tabelle; TageFälligTbl ein"



End If





Rs.Close

DB.Close







End Sub







Tschüss, hoffe geholfen! robby

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: