Waardes controleren uit de Userform

[Magistro]

Hey Hallo,

Ik ben bezig met een bestandje te maken dat gegevens wegschrijft in een database mbv userforms.

Door op de knop “invoeren” te klikken kun je, zoals je al kunt raden, gegevens invoeren.
Door op de knop “aanpassen” te klikken kun je gegevens die al in de database staan aanpassen.
Je kunt de gewenste velden aanpassen door in de eerste 2 dropdownlisten een combinatie te maken van veldnaam en datum. Deze 2 worden dan samengevoegd in de textbox “tbxSamenvoeging”, hierdoor ontstaat een uniek nummer. Met behulp van dit unieke nummer wordt vervolgens gezocht naar de bijbehorende waarden en die worden dan weer in de juiste textboxen gezet.

Mijn probleem is dat zodra je een combinatie invult die nog niet in de database voorkomt, de hele boel vastloopt en een foutmelding geeft. Dit is uiteraard logisch, maar ik kom er niet uit hoe ik ervoor moet zorgen dat ie kijkt in de lijst met samenvoegingen (in het tabblad “Database” in kolom F) en pas als die samenvoeging die in “tbxSamenvoeging” wordt gecreeerd voorkomt in de lijst samenvoegingen in het databasetabblad, verder gaat met het proces. En als die combinatie niet voorkomt moet ie een messagebox weergeven waarin wordt vermeld dat de gemaakte combinatie niet voorkomt.

Bovenstaande is mijn eerste probleem. Het tweede probleem komt op hetzelfde neer maar speelt zich af in het formulier “Invoeren”. Hierin wil ik voorkomen dat er een dubbele waarde wordt neergezet. Dus dat men niet 2x hetzelfde veld kan invoeren met dezelfde datum. Ook hier moet weer een messagebox tevoorschijn komen als dit gebeuren gaat.

Ik hoop dat ik duidelijk heb geweest en dat iemand me verder kan helpen.

Ik heb voor de duidelijkheid het bestandje toegevoegd.

Alvast bedankt voor de moeite :thumb:

Magistro

 

[snb]

Begin met het wieden van code

Private Sub Userform_Initialize()
  Application.EnableEvents=false
  tbxDatum.Value = Date
  tbxStuks.Value = 0
  tbxGewicht.Value = 0

  sq = Sheets("Variabelen").Range("Var_Veldnamen")
  cbxVeldnaam.List = sq
  Application.EnableEvents=True
End Sub

 

[Magistro]

Begin met het wieden van code

Bedankt Snb, een opschoning van de code kan natuurlijk nooit kwaad.
Ik ben dan ook geen echte programmeur, ik hobby maar wat aan, dus voor mij geldt: werkt het, dan werkt het

 

[snb]

Wellicht kun je hier nog wel het een en ander opsteken.

 

[Magistro]

Hey,

Ik heb het probleem van het aanpassen opgelost door de volgende regel toe te voegen:

On Error GoTo

...<Rest van de code>...

Exit Sub

CombinatieBestaatNiet:
    MsgBox "De opgegeven combinatie van veld en datum komt niet voor in de Database!"

Nu is mijn enige probleem nog het invoeren, is er iemand die me hier mee kan helpen?
Ik ga in ieder geval door met klooien

Mvg,
Magistro

 

[Magistro]

Iemand enig idee hoe ik dit tweede probleem nog kan oplossen? :thumb: