Begræns cbo rækkekilde i fortløbende form

Rækkekilden i din kombinationsboks for Subform skal se nogenlunde således ud :

  SELECT [Tabel].[Value]
  FROM Tabel
  WHERE ((([Tabel].[Value])<>Formularer!Form1!Kombinationsboks4));

I ovennævnte eksempel er der 2 Formularer :

  Form1
  SubForm1

Begge kombinationsbokse ( i Form1 og SubForm1 ) får sine værdier fra Tabel

Komboboksen i subformen skal ikke afgrænse på en værdi fra en komboboks i hovedformularen, men på (selvsamme) komboboks i subformen, der er fortløbende. Formålet er, at der ikke må indtastes dublerede værdier.

SELECT [Tabel].[Value]
  FROM Tabel
  WHERE ((([Tabel].[Value])<>Kombinationsboks4));

Dvs. i samme formular .... nogenlunde således :

Kombinationsboks2 =

SELECT Tabel.Value
FROM Tabel
WHERE (((Tabel.Value)<>[Formularer]![Form]![Kombinationsboks1]));

Kombilationsboks3 =

SELECT Tabel.Value
FROM Tabel
WHERE (((Tabel.Value)<>[Formularer]![Form]![Kombinationsboks1] And (Tabel.Value)<>[Formularer]![Form]![Kombinationsboks2]));

Med denne rækkekilde returneres ingen værdier - uanset om jeg i WHERE udtrykket medtager <>Forms!frmNavn!cboNavn eller blot <>cboNavn

Og du har valgt ( aktivt ) cboNavn først ?

Mit svar skrev jeg inden jeg så din 18:04-besked ;o). Men jeg skal kun anvende én komboboks i min form. Ikke 2. Er det muligt.

Det er vist ikke muligt ...

Så, hvis man fx i en frmMain angiver oplysninger om et projekt i og i frmSub vil tildele personer til projektet, og ikke vil give bruger mulighed for at vælge samme PersonID to gange fra en komboboks, så kan det ikke lade sig gøre via afgrænsning i komboboks rækkekilde? Ejheller med VBA?

Du har vel kun eksempelvis PersonID een gang i Komboboksen ?

Jeg må stoppe for i dag ... håber du finder en løsning ...

"det skal ikke være muligt at vælge den samme værdi (fx et PersonID) flere gange i subformen."

I Så fald kan du bruge funktionen DCount. I combo'ens BeforeUpdate kan du indsætte flg.:

Dim a As Byte
a = Me.Personid
If DCount("*", "Tabel1", "[Personid] =" & a) > 0 Then
MsgBox "Der er allerede poster med denne værdi."
Me.Undo
End If

Tabelnavnet kan du blot udskifte med det aktuelle navn på tabellen eller forespørgslen

Udmærket med DCount. Dog får jeg ikke mulighed for at indtaste den første post i komboboksen, da udtrykket er > 0. Hvilket kriterium skal jeg anvende ved indtastning af den første post i formen?

Du skriver i dit spørgsmål:

"det skal ikke være muligt at vælge den samme værdi (fx et PersonID) flere gange i subformen."


Og videre i din sidste kommentar:

"da udtrykket er > 0"

Så er det jo fordi posten eksisterer i forvejen.

Men selv med 0 poster i postkilden (ved første indtastning) - afspilles flg i BeforeUpdate():
MsgBox "Der er allerede poster med denne værdi."
Me.Undo

Må jeg se din kode.

Private Sub cboValue_BeforeUpdate(Cancel As Integer)

Dim a As Integer

a = Me.cboValue
If DCount("*", "TabRus", "[RusID] =" & a) > 0 Then
MsgBox "Der er allerede poster med denne værdi."
Me.Undo
End If

End Sub

- TabRus og RusID er rækkekilde til cboValue

Koden ser korrekt ud.

Du skriver, at der er tale om en underformular. Er du sikker på, at du ikke forsøger at oprette posten i en tabel der fungerer som postkilde til den formular, der er parent til underformularen.

I mit eksempel, hvor jeg har testet DCount, er komboboksen i en form, der ikke er en subform til en main (senere er det dog meningen, at koden skal bruges i en komboboks i en subform). Er problemet ikke, at a ikke har nogen værdi på det tidspunkt, hvor koden afspilles, så kriteriet bortfalder?

Prøv at oprette en post direkte i tabellen. Afprøv herefter koden i formularen.

Uanset hvilken værdi jeg vælger på kombobosken får jeg:
MsgBox "Der er allerede poster med denne værdi."
Me.Undo
- også med eksempeldata indtastet i tabellen

Kan du sende din db til:

mugs(a)mail.dk

som en zip fil

Db er modtaget.

Combo'en slår op i en tabel med et autonummereringsfelt, d.v.s at når der vælges en værdi eksisterer denne i forvejen. Samtidig er combo'ens egenskab 2BegrænsTilListe" sat til ja, så der er ikke mulighed for at vælge andre værdier end dem, der eksisterer i forvejen. derfor vil koden træde i kraft.

Koden er korrekt, men db er forkert skruet sammen.