invoer mag maar een keer voorkomen in de keuzelijst

[Liesssaa]

Hallo
Ik heb een vraagje, Ik heb een keuzelijst met invoervak gemaakt. Het probleem is echter dat een invoer meerdere keren kan voor komen dit wil ik juist niet hebben.
Wat ik met de lijst wil bereiken is dat men een keuze kan maken uit de lijst of een nieuw item kan toevoegen. Maar ik wil voorkomen dat er dubbelen in komen te staan.
Weet iemand hoe ik dit het beste kan doen?!
Hulpeloos

 

[ReneDirks]

Goedemiddag maar weer
Als RowSource van de combobox instellen = "SELECT DISTINCT id, naam FROM TBL_Namen"

Uiteraard zijn ID en Naam en TBL_namen maar verzonnen namen

Als je dan ook nog een 'nieuw' wilt kunnen toevoegen kun je de RowSource als volgt instellen:
"SELECT -1, 'Nieuw' FROM TBL_Namen UNION SELECT DISTINCT id, naam FROM TBL_Namen"

 

[Liesssaa]

Waar staan id, naam voor..
want ik wil zeg maar de organisatie uit de tabel persoonsgegevens halen en de mogelijkheid om een nieuwe toe te voegen. ik heb bij rowsource het volgende neer gezet maar dat werkt niet:\
SELECT -1, 'Nieuw' FROM TBL_persoonsgegevens UNION SELECT DISTINCT organisatie FROM TBL_ persoonsgegevens

 

[ReneDirks]

Sorry, was de rest van de middag weg centjes verdienen.
Ik had je een voorbeeld gegeven met twee kolommen, in jouw geval dus 1:

SELECT 'Nieuw' FROM TBL_persoonsgegevens UNION SELECT DISTINCT organisatie FROM TBL_ persoonsgegevens

 

[Liesssaa]

Haha maakt niet uit dat moet ook gebeuren!!
maar uh het werkt niet :s
snap er geen bal van ik zet dat regeltje er precies zo neer en dan zegt hij dat de code niet bestaat :s

 

[ReneDirks]

Waar treedt de fout precies op?

 

[Liesssaa]

in de recordbron. hij zegt dat deze niet bestaat..


Option Compare Database

Private Sub Eerste_record_Click()
On Error GoTo Err_Eerste_record_Click


DoCmd.GoToRecord , , acFirst

Exit_Eerste_record_Click:
Exit Sub

Err_Eerste_record_Click:
MsgBox Err.Description
Resume Exit_Eerste_record_Click

End Sub

Private Sub email2_AfterUpdate()
UpdateEmailField
End Sub

Private Sub UpdateEmailField()

If IsNull(Me.Email2) Then
Me.Email2openen = Null
Else
Me.Email2openen = "E-mail sturen#mailto: " & Me.Email2.Hyperlink.TextToDisplay


End If
End Sub

Private Sub Form_Current()
UpdateEmailField
End Sub

Private Sub Vorig_record_Click()
On Error GoTo Err_Vorig_record_Click


DoCmd.GoToRecord , , acPrevious

Exit_Vorig_record_Click:
Exit Sub

Err_Vorig_record_Click:
MsgBox Err.Description
Resume Exit_Vorig_record_Click

End Sub
Private Sub Knop244_Click()
On Error GoTo Err_Knop244_Click


DoCmd.GoToRecord , , acNext

Exit_Knop244_Click:
Exit Sub

Err_Knop244_Click:
MsgBox Err.Description
Resume Exit_Knop244_Click

End Sub
Private Sub Laatste_record_Click()
On Error GoTo Err_Laatste_record_Click


DoCmd.GoToRecord , , acLast

Exit_Laatste_record_Click:
Exit Sub

Err_Laatste_record_Click:
MsgBox Err.Description
Resume Exit_Laatste_record_Click

End Sub

Private Sub Organisatie_BeforeUpdate(Cancel As Integer)
SELECT 'Nieuw' FROM TBL_persoonsgegevens UNION SELECT DISTINCT organisatie FROM TBL_ persoonsgegevens
End Sub

Private Sub Record_zoeken_Click()
On Error GoTo Err_Record_zoeken_Click


Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Record_zoeken_Click:
Exit Sub

Err_Record_zoeken_Click:
MsgBox Err.Description
Resume Exit_Record_zoeken_Click

End Sub
Private Sub vernieuwen_Click()
On Error GoTo Err_vernieuwen_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_vernieuwen_Click:
Exit Sub

Err_vernieuwen_Click:
MsgBox Err.Description
Resume Exit_vernieuwen_Click

End Sub
Private Sub Rapport_afdrukken_Click()
On Error GoTo Err_Rapport_afdrukken_Click

Dim stDocName As String

stDocName = "Rapport1"
DoCmd.OpenReport stDocName, acNormal

Exit_Rapport_afdrukken_Click:
Exit Sub

Err_Rapport_afdrukken_Click:
MsgBox Err.Description
Resume Exit_Rapport_afdrukken_Click

End Sub
Private Sub Verwijderen_Click()
On Error GoTo Err_Verwijderen_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Verwijderen_Click:
Exit Sub

Err_Verwijderen_Click:
MsgBox Err.Description
Resume Exit_Verwijderen_Click

End Sub
Private Sub Nieuw_record_Click()
On Error GoTo Err_Nieuw_record_Click


DoCmd.GoToRecord , , acNewRec

Exit_Nieuw_record_Click:
Exit Sub

Err_Nieuw_record_Click:
MsgBox Err.Description
Resume Exit_Nieuw_record_Click

End Sub

Private Sub Wisselknop277_Click()

End Sub
Private Sub Knop278_Click()
On Error GoTo Err_Knop278_Click


DoCmd.Close

Exit_Knop278_Click:
Exit Sub

Err_Knop278_Click:
MsgBox Err.Description
Resume Exit_Knop278_Click

End Sub
Private Sub Sluiten_Click()
On Error GoTo Err_Sluiten_Click


DoCmd.Close

Exit_Sluiten_Click:
Exit Sub

Err_Sluiten_Click:
MsgBox Err.Description
Resume Exit_Sluiten_Click

End Sub

 

[ReneDirks]

Private Sub Organisatie_BeforeUpdate(Cancel As Integer)
SELECT 'Nieuw' FROM TBL_persoonsgegevens UNION SELECT DISTINCT organisatie FROM TBL_ persoonsgegevens
End Sub

Deze klopt niet (daar komt waarschijnlijk ook je fout vandaan met je email formulier.
Haal dit maar helemaal weg. Als je kijkt bij de eigenschappen van de combobox dan staat daar RowsSource (Rijbron)

Je zou eventueel ook in de _Load event van het formulier dit kunnen zetten:

Private Sub Form_Load()
 me.cmbNaam.Rowsource = "SELECT 'Nieuw' FROM TBL_persoonsgegevens UNION SELECT DISTINCT organisatie FROM TBL_ persoonsgegevens"
End Sub

 

[Liesssaa]

Private Sub Form_Load()
me.cmbNaam.Rowsource = "SELECT 'Nieuw' FROM TBL_persoonsgegevens UNION SELECT DISTINCT organisatie FROM TBL_ persoonsgegevens"
End Sub

Naam klopt niet kan dat?

 

[ReneDirks]

Om dat jouw control geen cmbNaam heet, dat was maar een 'ter illustratie' naam.

 

[Liesssaa]

ohw haha woeps. sorry ben er niet helemaal bij vandaag., griepje aan het vatten..
Heb nu persoonsgegevens ipv naam ingevuld maar dat wil hem ook niet worden. of heb ik het nu weer fout.:S

 

[ReneDirks]

Ik kan uit de code niet zien hoe je combobox heet, waarschijnlijk zoiets als
Keuzelijst met invoervak10 of zo.
Beterschap alvast lol. Had je m'n mail nog gezien?

 

[Liesssaa]

gehehe waar kan ik dat precies vindne .
nee geen mail gezien?!

 

[ReneDirks]

Even op je combobox klikken, dan staat het bij eigenschappen/Overig/naam

 

[ReneDirks]

nee geen mail gezien?!

naar hotmail gestuurd, zal wel tussen de hoeveelheid spam zitten lol

 

[Liesssaa]

hmm vaag ik heb nu organisatie gedaan want dat staat daar als naam maar krijg nog steeds foutmelding .
dat zou kunnen die gooi ik eigenlijk altijd gelijk weg..