Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Excel Zellen nach Access exportieren per VBA
Autor: Prian0815
Datum: 15.11.05 14:29
probiers mal so: Do While ActiveSheet.Range("A6").Offset(i, 0) <> "" Sheets("Space Segment").Activate Range("A6").Activate hident = ActiveCell.Offset(i, 15).Value stSQL = "SELECT COUNT (*) AS hAnz FROM Deine Tabelle " _ & "HAVING (((DeineTabelle.ident) Like '" & hident & "'));" Set rs = New ADODB.Recordset rs.Open stSQL, con, adOpenStatic, adLockOptimistic hAnz = 0 hAnz = rs!hAnz ' Anzahl der gefundenen Identnummern ermitteln If hAnz = 0 Then'neuen Satz hinzufügen DBS.AddNew DBS!sat = ActiveCell.Offset(i, 0).Value DBS!band = ActiveCell.Offset(i, 1).Value DBS!beam = ActiveCell.Offset(i, 2).Value DBS!pre = ActiveCell.Offset(i, 14).Value DBS!ident = ActiveCell.Offset(i, 15).Value DBS.Update else hier womöglich bestehenden Satz bis auf Ident updaten endif i = i + 1 Loop Gruß Armin P.S.: always look on the bright side of Life!

Excel Zellen nach Access exportieren per VBA	966	rkn	15.11.05 12:20
Re: Excel Zellen nach Access exportieren per VBA	405	Prian0815	15.11.05 14:29

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