Compare af felter

(hehe)

well næsten..jeg har lavet et sql træk der laver comparen..og det er den jeg ikke kan få til at spille i en procedure..
Select Distinct IT_tilmeld.bruger_init
FROM TBL_bruger RIGHT JOIN IT_tilmeld On TBL_bruger.bruger_init=IT_tilmeld.bruger_init
WHERE TBL_bruger.bruger_init = IT_tilmeld.bruger_init

I hændelser for formularen går du i Ved lukning.
øåØåDoCmd.Setwarnings False
Dim sSQL As String

sSQL = Select Distinct IT_tilmeld.bruger_init
FROM TBL_bruger RIGHT JOIN IT_tilmeld On TBL_bruger.bruger_init=IT_tilmeld.bruger_init
WHERE TBL_bruger.bruger_init = IT_tilmeld.bruger_init;
Docmd.SetWarnings True

Den laver compile fejl.. Jeg har samme problem med den jeg selv har lavet...det er sql sætningen den brokker sig over - egentligt underligt for når jeg køre den gennem en query er der ingen fejl. hændelsesproceduren brokker sig over ; men ok..hvis det er lige som det var med C, kan man jo ikke altid regne med det er HELT som den påstår

tilføjelse...hvis jeg smider sætningen i " " er det FROM...ordet FROM den tilter over....(hvem var det der påstod programmering var sjovt.)aaargh

Har du husket at rette sidste tegn, En SQL skal altid afsluttes med et semikolon.

ja...den vil ikke acceptere simicolon...hvilket undrer mig....jeg har smidt hele sql sætningen i EN lang linie, så compiler den fint...underligt...det skal man nok ikke tænke over...jeg tester den lige

den acceptere øjensynligt at jeg har sql query som en sætning som nedenstående
Private Sub bruger_init_Exit(Cancel As Integer)

DoCmd.SetWarnings False
Dim sSQL As String

    sSQL = "Select Distinct IT_tilmeld.bruger_init FROM TBL_bruger RIGHT JOIN IT_tilmeld On TBL_bruger.bruger_init=IT_tilmeld.bruger_init WHERE TBL_bruger.bruger_init = IT_tilmeld.bruger_init"
    If sSQL = False Then GoTo ErrMsg
    On Error GoTo ErrMsg
DoCmd.SetWarnings True
   
    Exit Sub
ErrMsg:
    MsgBox "No match"
    Resume Next
End Sub

Det sidste jeg mangler at ploppe på er så et check om der der blev tastet i It_tilmeld.bruger_init findes i TBL_bruger.bruger_init. Mener jeg læste at return værdien man får er true/false, men IF sætningen funger ikke så chancen for jeg tager fejl er jo åbenlys

nårh ja... der skal laves en undo af det der blev tastet ind hvis der ikke er et match

Me!bruger_init.Undo
regner jeg nu med virker her

pænt sikker på det er IF sætningen den er gal med...

Så læg if sætningen her, så skal jeg kikke på den

har prøvet nogle stykker... den skal lave et check på hvis der ikke returneres en værdi fra TBL_bruger.bruger_init...
If sSQL = " " Then GoTo ErrMsg
If sSql = 0 Then GoTo ErrMsg (den giver typemismatch...for det er jo ikke tal..still..den er prøvet...
If sSql = false Then..........
If sSql not..... der laver den om på sætningen med det samme og skriver If not sSql..så den har jeg lidt opgivet

I 10:39 Slår du advarsler til, men hvor har du slået dem fra.

flere steder faktisk..(hvis det er tilladt...)
DoCmd.SetWarnings False
Dim sSQL As String

    sSQL = "Select Distinct IT_tilmeld.bruger_init FROM TBL_bruger RIGHT JOIN IT_tilmeld On TBL_bruger.bruger_init=IT_tilmeld.bruger_init WHERE TBL_bruger.bruger_init = IT_tilmeld.bruger_init"
    If sSQL = " " Then GoTo ErrMsg
    On Error GoTo ErrMsg
    DoCmd.SetWarnings True
    Exit Sub
ErrMsg:
    DoCmd.SetWarnings True
    Me!bruger_init.Undo
    MsgBox "No match"
    Resume Next

End Sub

hov...kun et sted slå jeg dem til...

I 10:39 Der skal du slå advarsler til inden if.  ellers ser du jo ikke fejlen.

fra..mener jeg

så der står
DoCmd.SetWarnings True
If sSQL = " " Then GoTo ErrMsg

Du mangler exit if eller end if eller begge

If sSQL = " " Then GoTo ErrMsg
    On Error GoTo ErrMsg
    DoCmd.SetWarnings True
End if

Du havner i "On Error GoTo ErrMsg" Derfor får du ikke at vide End if mangler. Eller fløt  DoCmd.SetWarnings True
forand if sætningen

Den compiler med fejlen
End If whithout Block If ??

If sSQL = " " Then GoTo ErrMsg
    On Error GoTo ErrMsg
    DoCmd.SetWarnings True
End if  'Det er denne end if du mangler.
End sub

nix... det har jeg forsøgt...
skal jeg paste koden ind ingen..som den ser ud nu?

Ja

Private Sub bruger_init_Exit(Cancel As Integer)

DoCmd.SetWarnings False
Dim sSQL As String
    test = Null
    sSQL = "Select Distinct IT_tilmeld.bruger_init FROM TBL_bruger RIGHT JOIN IT_tilmeld On TBL_bruger.bruger_init=IT_tilmeld.bruger_init WHERE TBL_bruger.bruger_init = IT_tilmeld.bruger_init"
    DoCmd.SetWarnings True
    If sSQL = test Then GoTo ErrMsg
        DoCmd.SetWarnings True
    End If
    End Sub
ErrMsg:
    DoCmd.SetWarnings True
    Me!bruger_init.Undo
    MsgBox "No match"
    Resume Next

End Sub

jeg sætter lige point tallet op... du skal klart ha flere point for den hjælp her...

Jeg får det ud af det, at du tester i if sætningen om dataerne er = null, er de det skal de gå til errmsg: Men hvad skal der ellers ske

Har du iøvrigt erklæret din DAO.

hvis GoTo flyttes et hak ned..compiler den fint...
Hvis data er null skal den undo det der blev tastet i det aktuelle felt i formularen.
hvis ikke det er null, skulle det gerne betyde at brugeren ER oprettet i TBL_bruger og så bare fortsætte...det er for at forhindre at man taster noget ind der ikke findes.. der bliver udfyldt nogle felter auto, hvis brugeren findes...og de skulle gerne udfyldes hvergang, så en bruger skal kunne findes ud fra det der tastes i bruger_init

det du kan se, er det der er skrevet..så... det har jeg nok ikke...

Gå i et modul
Gå i Tools
Gå i refarancer
Vælg højeste DAO jeg kører Dao 3,6 men lavere kan udemærket bruges.

der er en Active X Data Objects 2.1 lib
OLE Automation
Ms Acess 9.0 Object lib
VB for applications

Den hedder:
Microsoft DAO 3,6 objekt library
og den skal du ind og krydse af.

ok...den er på nu....ingen forskel dog

Tak for poient.
Har du genstarted access.

Det har jeg lige gjort... men jeg kan stadig få lov til at taste noget ind der ikke findes i den anden tabel

Ok. Det er ganske vist et tillægs spørgsmål, men det er din trækning af relationer den er galt med, er du intereseret i noget matriale om det så læg din E-mail adresse. Jeg kan også prøve at finde den konkrete side på internetted.

Det tror jeg også..det er ihvertfald den jeg kigger på....
min adr er bladerunner@fiction.dk

Her adressen på internetted:
http://www.hedeskov.dk/netpublikationer/udv-database/kap2/kapitel2.htm
Men den er tung, og det er kun det nederste du skal bruge.