Dim så hele formularen ved det.

Det er en henvisning der mangler.
Kan sende dig en tom db, hvor det virker.
Vh Henrik13

Har du checket dine referencer? (Tools->References fra VBA-editoren) Hvis der står MISSING eller MANGLER foran en af de afkrydsede referencer, så det her fejlen er.

Hvor stiller Access sig, når den siger Compile error?

Du skal have en reference tim Miscrosoft DAO 3.x Object Library for at det virker.

Glem lige den sidste kommentar :o(

Jeg tror at det er nogle helt andre referencer, som fejler.

Prøv dette:


    Dim KUNDE As String, LokationsID As Long, By As String
   
    KUNDE = Forms!frmKundeOprettelse!KUNDE_NAVN
    LokationsID = Forms!frmKundeOprettelse!txtLokation_ID
    By = Forms!frmKundeOprettelse!By

Hvis KUNDE_NAVN og txtLokation_ID i virkeligheden er med mellemrum skal det se således ud:
    Dim KUNDE As String, LokationsID As Long, By As String
   
    KUNDE = Forms!frmKundeOprettelse![KUNDE NAVN]
    LokationsID = Forms!frmKundeOprettelse![txtLokation ID]
    By = Forms!frmKundeOprettelse!By

Hej henrik

Vil du sende den til tni@mail.sonofon.dk
mvh TNI

Det virker ordret når jeg køre det i en privat sub.

jeg skal bare bruge "kunde", "by" og " LokationsID" 3 andre steder.

mvh TNI

ER sendt

Det var ikke lige det jeg havde tænkt mig.

Det skal kun gælde for hele den form jeg er inde i.

mvh TNI

hej thomas
Nej den er god nok med strengen

Ok, jeg aner ikke hvor din fejl er (du svarede aldrig på hvor Access markere fejlen)

Men hvis du vil have din DIM til at fungere på hele koden, så skal den skrives øverst oppe i kode-vinduet (Option Compare Database, som du selv havde gjort)

Resten skal så stå i en procedure (f.eks. Form_Load):
Private Sub Form_Load
    KUNDE = Forms!frmKundeOprettelse!KUNDE_NAVN
    LokationsID = Forms!frmKundeOprettelse!txtLokation_ID
    By = Forms!frmKundeOprettelse!By
End sub

Sådan her er det såment.

Option Compare Database

Public Sub KundeVærdi()
    Dim KUNDE As String, LokationsID As Long, By As String
   
    KUNDE = Form_frmKundeOprettelse.KUNDE_NAVN
    LokationsID = Form_frmKundeOprettelse.txtLokation_ID
    By = Form_frmKundeOprettelse.By
   
End Sub

TNI

Derved kan KUNDE, LokationsID og By da ikke ses af andre hændelser!!!

næ!!

Jeg har lavet det et sted!!!

ok, det var bare ikke det, du spurgte om - og det var derfor heller ikke det som vi svarede på!