Excel og SQL

Så vidt jeg lige kan se, så har du ikke sat rs til at være noget (du har kun dim'et den som et recordset). Dvs. der mangler en sætning med

Set rs ...

Det er ikke lige min stærke side, at lave det her fra Excel, men det skal vist være noget i retning af:

Set rs = conn.Execute(strSQL)

Så fik jeg en Type mismatch ud af det!

Type mismatch betyder normalt, at du prøver at sammenligne numeriske felter med alfanumeriske.

Ligger problemet i SQL-strengen? Er [CPR nr] en streng eller et tal?

en streng

Den måde som du har lavet SQL strengen på, fortæller du faktisk at [CPR nr] er en streng. Passer det? Hvis ikke skal du i stedet prøve med:

strSQL = "SELECT * FROM [EKKO] WHERE [CPR nr] = " & Cprnr

Ok, så glem lige min sidste kommentar.

Jeg ved ikke om parentesen er et problem (kan ikke lige se hvorfor, men man ved jo aldrig). Prøv evt. med:

strSQL = "SELECT * FROM [EKKO] WHERE [CPR nr] = '" & Cprnr & "'"

Excel er ikke lige min boldgade, men normalt checker man om en streng indeholder Null (tom streng) således:

If rs([CPR nr]).Value <> "" Then

og ikke:

If rs([CPR nr]).Value <> "' '" Then

Men don't blame Me. Jeg har ikke forstand på det.

Ja mugs du har ret men det første har jeg prøvet - uden held! ...og det med parenteserne fungerer desværre heller ikke :0(

Er der ikke noget galt her:

('" & Cprnr & "')

sammenlignet med dette:

If rs([CPR nr]).Value <> "' '" Then

Er gnyfferne sat korrekt?

steensommer > kan du fortælle hvilken linie programmet stopper i?

mugs > :0)

Nej men at vende dem har heller ikke hjulpet (det var blot et forsøg)

Conn.Execute (strSQL) - den første

Hvilken værdi har cprnr?

Eller endnu bedre hvilken værdi har strSQL?

Undskyld forsinkelsen - jeg skulle lige prøve at ændre til følgende:
Den fejler også men når dog ned til sidste rs.Open med fejlen:    "Der er en syntaksfejl i INSERT INTO-sætningen.

'Dim conn As ADODB.Connection
'Set conn = New ADODB.Connection
Dim Conn As String
'conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Dim rs As ADODB.Recordset
Dim strSQL As String
Dim Cprnr As String
Cprnr = Me.CPR.Text


    'conn.Open "\\server\faelles\Lotte og Susanne\Registre\Patientregisteret.mdb"
    Conn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=\\server\faelles\Lotte og Susanne\Registre\Patientregisteret.mdb;"

    strSQL = "SELECT * FROM [EKKO] WHERE [CPR nr] = ('" & Cprnr & "')"
   
    Set rs = New ADODB.Recordset
    rs.Open strSQL, Conn, adOpenForwardOnly, adLockReadOnly, adCmdText

If rs.EOF = False Then
    Me.FNavn.Text = rs([Fornavn]).Value
    Me.ENavn.Text = rs([Efternavn]).Value
    Me.Adr.Text = rs([Adresse]).Value
    Me.PostBy.Text = rs([Postnr og bynavn]).Value
    Me.Tlf.Text = rs([Telefon]).Value
    Me.El.Text = rs([Egen læge]).Value
    Me.ElAdr.Text = rs([Lægens adresse]).Value
    Me.ElPostBy.Text = rs([Lægens postnr og by]).Value
    Me.Sygehus.Text = rs([Henvisende sygehus]).Value
    Me.Dato.Text = rs([Indkaldelse dato]).Value
    Me.Kl.Text = rs([Klokkeslæt]).Value
Else
    Set rs = Nothing
   
    strSQL = "INSERT INTO EKKO[Cpr nr] Values  '" & Cprnr & "'"
    Set rs = New ADODB.Recordset
    rs.Open strSQL, Conn, adOpenForwardOnly, adCmdText
   
End If

Set rs = Nothing

Mangler måske mellemrum mellem EKKO og [Cpr nr]

Det er da rigtigt men den laver samme fejl

Hvad er det præcist at sætningen skal gøre? Hvad er Values for en karl?

Nåh ja. Hvad med:

strSQL = "INSERT INTO EKKO ([Cpr nr]) Values ('" & Cprnr & "')"

det der skal ske er følgende:

Først skal der checkes om Cpr-feltet i Access er tomt! Hvis det er IKKE er tilfældet skal resten af userformen udfyldes med data fra Access. Hvis Cpr-feltet er tomt skal Cpr indsættes!

steensommer > Kommer der stadig fejl med det sidste forslag?

Nej sjap  Det hjalp inkl at fjerne Cpr-feltets Primær-nøgle. Det var dejling. Tak for hjælpen. Svar så får du point :0)

Det var så lidt :0)