title image


Smiley Re: In Tabelle Einträge gem. zweiter Tabelle ändern?
Heui, habe kürzlich sowas geschireben;













Sub Pass2()





Dim AktuelleDB As Database

Dim r, r2 As Recordset

Dim SQLAbfrage, SQLAbfrage2 As String

Dim Gefunden, NichtGefunden As Long









Set AktuelleDB = DBEngine(0)(0)



SQLAbfrage = "SELECT [Lieferant], [Feld22] from [Artikel];"



Set r = AktuelleDB.OpenRecordset(SQLAbfrage)



Do While Not r.EOF







If Not IsNull(r.Fields("Lieferant")) And Trim(r.Fields("Lieferant")) "" Then



SQLAbfrage2 = "Select * from [LieferantenTbl];"

Set r2 = AktuelleDB.OpenRecordset(SQLAbfrage2)





Do While Not r2.EOF



If Trim(UpperCase(Left(r.Fields("Lieferant"), Len(Trim(r2.Fields("Lieferant")))))) = Trim(UpperCase(r2.Fields("Lieferant"))) Then

r.Edit

r.Fields("Feld22") = r2.Fields("Nummer")

r.Update

Gefunden = Gefunden + 1

GoTo Sprung:

' Else

' NichtGefunden = NichtGefunden + 1

End If



r2.MoveNext



Loop





Sprung:

r2.Close





End If



r.MoveNext



Loop





r.Close





MsgBox "Gefunden: " + Str(Gefunden)

MsgBox "Nicht gefunden = " + Str(NichtGefunden)









End Sub























Tschüss v robby

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: