Supportnet / Forum / Datenbanken

guten tag: wir verwalten ca. 100,000 potentielle kundenadressen in einer access-datenbank unter office professional 97 die einzelnen SPALTEN enthalten daten wie name, adresse, ort, branche, kontaktperson etc. wir müssen nun einzelne spaltenINHALTE in ANDERE spalten übertragen - also beispielsweise den inhalt der spalte "privatname" in die spalte "kundenkontaktperson", wobei einzelne datensätze die entsprechenden informationen bereits enthalten (es wäre also keine lösung, die spalte einfach umzubenennen!) kann jemand helfen? herzlichen dank... ich schmeisse gerne eine kiste basler läggerli oder ein kistchen echt kubanischer zigarren 8-) renatus der eidgenössisch am berg zweifelnde

Hallo Renatus,

„privatname“ soll in „kundenkontaktpersonen“; wenn schon ein Eintrag in Kundenkontaktperson ist, kann dann auch noch ein Eintrag in „privatname“ vorhanden sein ?
Wenn ja, welcher Wert soll dann übernommen werden ?

Möchtest du die Werte wirklich in der Tabelle ändern, oder dir nur in einem Auswertungsformular bzw. Bericht wie beschrieben anzeigen lassen und die Werte in der Tabelle bestehen lassen, wie bisher ?

Antwort folgt nach Beantwortung der Rückfragen.

Gruß

Oliver

Hallo Renatus,
spontan würde ich sagen in einer Funktion mit einem Recordset:

function Beispiel()
  dim Db as Database
  dim Rs as recordset

  set Db = currentDb
  set Rs = Db.openrecordset("DeineTabelle")

  '-- daten vorhanden?
  if Rs.Recordcount > 0 then
    '-- gehe zu erstem satz
    Rs.movefirst

    '-- solange bis ende
    while not Rs.eof
      '-- zielspalte prüfen ob gefüllt      
      '-- hier nur auf NULL andere prüfungen möglich
      if isnull(Rs!kundenkontaktperson) then
        '-- wenn gefüllt -> nichts tun
      else
        '-- wert übertagen
        Rs.Edit
        Rs!kundenkontaktperson = Rs!privatname
        Rs.update
      end if

      '-- nächster satz
      Rs.movenext
    wend
  end if

  Rs.close
  set Rs = nothing
  set Db = nothing

end function

Gruß
Mick

• .exe datei entpacken
• Access - Lagersystem First in First out
• verschieben von controls zur laufzeit