Indsætte beskrivelse foran autoinsæt i en rapport..

Hvis email kun skal være en oplysning, kan du benytte en etiket fra værktøjskassen og blot skrive "Email" i etiketten.

freeman > Jeg er lige stået op efter en nattevagt, så kaffen har åbenbart ikke været stærk nok. Ovennævnte virker, men en noget mere elegant løsning er:

= "Email: " & DLookUp("[Email]";"Firmaoplysninger") 48888845

Det vil den ikke, det kommer frem med "ugyldig syntaks"

Det fungerer her. Nedennævnte er en kopi af en tilsvarende kode i en Access97 db:

Dim Stringsearch As String
Stringsearch = Me!Navn
Me!Tekst4 = "Email: " & DLookup("[Gade]", "Tabel2", "[Navn]='" & Stringsearch & "'")

Og koden returnerer flg i feltet Tekst4:

Email: Nørregade 25

Selvom Email ag adresse ikke har noget med hinanden at gøre.

Den ugyldige syntaks skyldes vel det nr, som kommer lige efter. Skal det ikke vær en del af kriteriet i DLookup-funktioen?

Enten skal det se således ud:

= "Email: " & DLookUp("[Email]";"Firmaoplysninger") & 48888845

eller noget i denne retning:

= "Email: " & DLookUp("[Email]";"Firmaoplysninger"; "Tlf = " & 48888845

Eller sådan, hvis Tlf er tekst:

= "Email: " & DLookUp("[Email]";"Firmaoplysninger"; "Tlf = '" & 48888845 & "'"

Eller hvis Tlfnr. er data, henter denne kode Tlfnr. fra Tabel2, hvor dette svarer til det foregående kriterie:

Stringsearch = Me.Navn
Me!Tekst4 = "E-mail: " & DLookup("[Gade]", "Tabel2", "[Navn]='" & Stringsearch & "'") & ", Tlf.: " & DLookup("[Tlf]", "[Tabel2]")

Og sådan kan vi jo blive ved. Det arbejdende folk vil nu drage ud i verdenen og tjene til livets ophold. God weekend :o)

Og så fik jeg ikke det hele med, sådan:

Stringsearch = Me.Navn
Me!Tekst4 = "E-mail: " & DLookup("[Gade]", "Tabel2", "[Navn]='" & Stringsearch & "'") & ", Tlf.: " & DLookup("[Tlf]", "[Tabel2]", "[Navn]='" & Stringsearch & "'")