Antal relationer til samme tabel i en forespørgsel.

13 relationer lyder meget voldsomt, og uden at vide hvordan din db er skruet sammen vil jeg umiddelbart postulere, at db er skruet forkert sammen.

I stedet for relationer, har du så prøvet med en DlookUp i din forespørgsel?

Grunden til de mange relationer er, at det bruges som en slags digital signature,i stedet for at signere på en hardcopy. Så hvis der findes en mere enkel måde der kan gøre det samme vil jeg meget gerne have et tip.

Har du prøvet med en DLookUp?

Nej for jeg er ikke så god til det med kode.

Læg din e-mail, så sender jeg et eksempel.

Ok jajtaurus@yahoo.dk

Jeg har fået det til at virke nu (18 relationer), men det er et maga job.

Eksempel sendt.
Hvad har du gjort for at få det til at fungere?

Jeg har relateret tabellerne i databasevinduet og i forespørgslen og det virker fint nu med 22 relationer.
Jeg har kikket på din db18. Jeg skal confirmere operationen med en kommandoknap eller hvad. Det skal helst foregå automatisk, så når du indtaster en værdi skal det relaterede felt updateres, når du klikker enter, og desuden er der password på feltet du indtaster i.

Hvis du ser på eksemplet med forespørgslen skal du ikke confirme noget som helst. Det hele sker automatisk.

Hvis du benytter VBA, kan du indsætte koden i f.eks BeforeUpdate uden at bruge kommandoknap.

ok jeg kigger lige på det igen. jeg er ikke så hurtig men vender tilbage når jeg har fået det til at virke.

Det er helt OK.

Det kanjeg ikke få til at virke.
Er vi enig om at dette er koden da det er et a nomerisk felt.
Dim Stringsearch As String
Stringsearch = Me!Navn
Me!Tekst4 = DLookup("[Gade]", "Tabel2", "[Navn]='" & Stringsearch & "'")
Er "Navn" = formularnavn

Som udgangspunkt må jeg sige, at min kode er afprøvet og fungerer. En fejl er, at du skriver feltet er numerisk, men du benytter koden til et alfanumerisk felt. Du har således også dimensioneret variablen som en string. Det ser du ved, at du har anførselstegn og apostroffer omkring Stringsearch således:

'" & Stringsearch & "'"

Det skal der ikke være ved et numerisk kriterie. På kommandoknapperne i min formular, har jeg netop skrivet hvilken felttype koden skal anvendes til. Prøv denne og ret objektnavnene: 

Private Sub Kommandoknap6_Click()
Dim intsearch As Integer
intsearch = Me!KRITERIEFELT I FORMULAREN
Me!HVOR SKAL DATA ANBRINGES = DLookup("[HVILKET FELT VIL DU HENTE]", "FRA HVILKEN TABEL", "[KRITERIEFELT I FORMULAREN]=" & intsearch)
End Sub

Omsat til min db vil det se således ud:

Private Sub Kommandoknap6_Click()
'Procedüren er magen til Kommandoknap16, blot med numerisk kriterie
Dim intsearch As Integer
Me!Tekst4.Visible = True
intsearch = Me!ID
Me!Tekst4 = DLookup("[Gade]", "Tabel2", "[ID]=" & intsearch)
End Sub

Jeg tror jeg udtrykker mig forkert. Det er et alfanummerisk jeg har (både tekst og tal), så dette må være koden.
Dim Stringsearch As String
Stringsearch = Me!Navn
Me!Tekst4 = DLookup("[Gade]", "Tabel2", "[Navn]='" & Stringsearch & "'")
Er vi enig om at "Navn" er det der svarer til mit felt "Signature", og "Tekst 4" er det der skal insættes.
Og koden skal indsættes under before update?

Jeg kan ikke vide hvad dine felter hedder. 21/09-2008 23:50:36 skrev du, at det var et numerisk felt.

Mit felt "navn" er mit kriterie, som jeg kan forstå hedder "Signasture" hos dig. Og Tekst4 er korrekt det felt, der skal modtage værdien.

Men det kunne være rart at vide, hvilken fejl du får!

Det virker nu. Som sagt er jeg ikke så god til det med kode, så jeg kan nogle gange ikke se systemet.Mange tak for hjælpen, nu kan jeg udskifte mit "relationssystem" med dette. Det sparer mig en masse tid.

Tak for point.
Prøv ar lave funktionen i en forespørgsel i stedet. Der luigger et eksempel i db18. Syntaksen er således:

Udtryk1: DLookUp("[Gade]";"Tabel2";"[ID]=" & [ID])