Kan for og efternavn sættes sammen i VBA / SQL

Hvad med

SQL1 = "SELECT Kontaktpersoner.Fornavn + ' ' + Kontaktpersoner.Efternavn"

Db 48?

SELECT fornavn,efternavn FROM tabelnavn;
--------------------------------------------------

SQL = "SELECT fornavn,efternavn FROM tabelnavn"
set rs = myConn.execute(SQL)
(myConn skal så bare ændres til din database connection streng.)

response.write rs("fornavn") & "<br>"
response.write rs("efternavn") & "<br>"

Forsat god weekend.

sql engine er lige så vba 'legal expression' krævende som udviklingssystemet overfor dig per2edb

Prøv lige at portere dette til immediate vinduet!
?"SELECT Kontaktpersoner.Fornavn & "" "" & " & " " & "Kontaktpersoner.Efternavn"

Antager at det med " From Kontaktpersoner" enten ikke optræder i dit setop, eller at du blot her sætter fokus på det der fejler.

Inden andre kommer efter mig - dette fyldestgørende:
?"SELECT Kontaktpersoner.Fornavn & "" "" & " & "Kontaktpersoner.Efternavn"

You say you have tried

SQL1 = "SELECT Kontaktpersoner.Fornavn" & " " & "Kontaktpersoner.Efternavn"

but you don't say how you are executing the SQL which is necessary to get the result.

If your using Docmd.runsql then you wont get a result because it only works with action queries http://msdn.microsoft.com/en-us/library/office/ff194626.aspx

You could use dlookup which you would obviously need to execute twice to get both name parts. Otherwise create a recordset selecting both fields at the same time


and your SQL needs to include the table your data is in.

Antagelse:
Tabel = tblNavne
Fornavnfelt = fldFornavn
Efternavnfelt = fldEfternavn

Public Sub test()
  Dim strSQL As String
  Dim rst As New ADODB.Recordset
 
  strSQL = "SELECT [fldFornavn] & ' ' & [fldfldEfternavn] AS fldNavn FROM tblNavne;"
  rst.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockOptimistic
 
  While Not rst.EOF
    MsgBox Nz(rst!fldNavn, "Ukendt navn")
    rst.MoveNext
  Wend

End Sub

Jeg kom lige til at lave en fejl - fldfldEfternavn skal selvfølgelig være fldEfternavn

Thor Østergård's løsning virker:

SQL1 = "SELECT Kontaktpersoner.Fornavn + ' ' + Kontaktpersoner.Efternavn"

PAS PÅ:

Jeg havde forinden mit spørgsmål prøvet det samme, men jeg havde et mellemnavn flettet ind. Det viser sig at et tomt mellemnavn ødelægger kaldet - Pas på!

HUSK Nz altså f.eks. Nz(Kontaktpersoner.Fornavn)

Thor vil du lave det så du får point

Du skal have point