Memo veld vullen met e-mail adressen

• 

  Fred

  17-01-2012 19:19

  Ik wil graag vanuit een kolom met e-mailadressen een memoveld vullen, ik gebruik hierbij onderstaande code.

  Probleem is, hij blijft op het eerste record hangen rs.MoveNext werkt niet wie kan mij helpen?

  BVD

  Fred

  Private Sub Knop15_Click()

  Dim naar As String

  Dim db As Database

  Dim rs As Recordset

  With Me.Recordset

  Set db = CurrentDb()

  Set rs = db.OpenRecordset(“mail-lijst-extern”)

  AantalRecords = rs.RecordCount

  aan = rs.Fields(0)

  For A = 1 To AantalRecords

  .Edit

  !naar = aan & “;” & !naar

  .Update

  rs.MoveNext

  Next A

  End With

  End Sub
• 

  JaapTon

  17-01-2012 22:32

  Fred,

  rs.MoveNext werkt wel ,alleen je benoemt maar één keer de variabele aan ;-)

  Probeer deze code:

  Dim db As Database

  Dim rs As Recordset

  On Error GoTo Foutje

  Set db = CurrentDb()

  Set rs = db.OpenRecordset(“mail-lijst-extern”)

  AantalRecords = rs.RecordCount

  For A = 1 To AantalRecords

  aan = rs.Fields(1)

  Me!naar = Me!naar & aan & “;”

  rs.MoveNext

  Next A

  Exit Sub

  Foutje:

  MsgBox “Foutje: ” & Err

  Exit Sub
• 

  Fred

  18-01-2012 20:15

  JaapTon,

  Mag ik u bedanken !!!

  de code werkt prima , nogmaals bedankt!

  Fred
• 

  JaapTon

  18-01-2012 23:17

  Graag gedaan!

  Succes.