Brevfelt og access

Du har en forespørgsel på et cvr-nr, som viser cvr, grp og e-mail adresse. Så bruger du dao openrecordset og looper igennem, mens du opbygger en streng med grp-numre. Denne streng kan du så bruge i kommandoen SendObject!~)

Hvis dette er total volapyk, som må du sige til, så jeg kan prøve at lave et eksempel...

spg: Det er noget volapyk for mig, så hvis du har mod på at lave et eksempel, så er det meget fornemt.

Noget i den her retning!~)

Public Function SendMail()
Dim db As DAO.Database
Dim r As DAO.Recordset
Dim a As String
Set db = CurrentDb
Set r = db.OpenRecordset("DinForespørgsel")
With r
.MoveFirst
a=a & ", " & ![GRP-nr]
.MoveNext
Loop Until .EOF
DoCmd.SendObject , , , ![e-mail], , , "Til " & ![cpr-nr], "Du har følgende GRP-nr: " & a, False
.Close
End Function

Ja, oss' kun noget i den retning... fordi det skal mindst være:

Public Function SendMail()
Dim db As DAO.Database
Dim r As DAO.Recordset
Dim a As String
Set db = CurrentDb
Set r = db.OpenRecordset("DinForespørgsel")
With r
Do
.MoveFirst
a=a & ", " & ![GRP-nr]
.MoveNext
Loop Until .EOF
DoCmd.SendObject , , , ![e-mail], , , "Til " & ![cpr-nr], "Du har følgende GRP-nr: " & a, False
.Close
End With
End Function

men det er også et af de tilfælde hvor den siger at mindst 1 parameter var forventet, så vi skal lige have sat parametre. Så tålmodighed, så ser jeg lige om jeg kan slå hul igennem!~)

Jeg troede jeg havde et eksempel, som jeg kunne uploade, men programmet svarer ikke. Her er koden nu...

Public Function SendMail()
Dim db As DAO.Database
Dim r As DAO.Recordset
Dim qdf As DAO.QueryDef
Dim a As String
Set db = CurrentDb
Set qdf = db.QueryDefs("QryCVR")
qdf.Parameters(0) = Forms!frmEmail![CVR-nr]
Set r = qdf.OpenRecordset
With r
Do
.MoveFirst
a = a & ", " & ![GRP-nr]
.MoveNext
Loop Until .EOF
DoCmd.SendObject , , , ![E-mail], , , "Til " & ![CVR-nr], "Du har følgende GRP-nr: " & a, False
End With
.Close
End Function

Jeg er nød til at smutte nu, så du kan jo selv prøve lidt, men jeg kigger forbi imorgen!~)

Her er resultatet!~)

www.spgprogramming.com/access/spm794626.mdb

Jeg kan da bl.a. nævne, at det ikke er optimalt, at have .movefirst inde i et loop, ups......

Tak for databasen - vi kom videre!

!~)