title image


Smiley Re: Kopieren per Knopfdruck???
hi





ich hab das bei mir so gelößt:



ich hab ein formular "Darsteller"(natürlich hinterliegt da eine tabelle) das wird durch ein Memofeld "gefüttert".

es werden nur einträge im memofeld in die tabelle gespeichert wenn der eintrag NICHT einen eintrag in der tabelle enthält.

mußt du vielleicht noch anpassen ...aber es funktioniert sehr gut.

hier die sql:



Private Sub Uebernahme_Click()

Dim DB As Database, rs As Recordset

Dim TeilStuecke() As String, intIndex As Long, Tmp As String, Aufnehmen As Boolean

Set DB = CurrentDb

Set rs = DB.OpenRecordset("Tab Darsteller", dbopendynaset)

Tmp = Me!Eingabe

TeilStuecke = Split(Tmp, ",")

For intIndex = LBound(TeilStuecke) To UBound(TeilStuecke)

Tmp = TeilStuecke(intIndex)

If Tmp "" Then

' Darsteller suchen:

If rs.EOF Then

Aufnehmen = True

Else

rs.FindFirst "Darsteller ='" & Tmp & "'"

Aufnehmen = rs.NoMatch

End If

If Aufnehmen Then

' nicht gefunden, neu aufnehmen

rs.AddNew

rs!Darsteller = Trim(Tmp)

rs.Update

End If

End If

Next

Me!Eingabe = Null

Me!Darsteller.Requery

Me!Darsteller = Me.Darsteller.ItemData(0)

rs.Close

DB.Close

End Sub




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: