Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
HuijbHoe krijg ik het voor elkaar dat wanneer ik in een textbox, op een formulier, de waarde A zet, er in de query of tabel de waarde A true is?
Ik blijf hier steken;
Code:If Textbox1.Value = A Then
If TextboxHelp = "A" then
Textbox1 = true
Else
Textbox1 = False
End If
Iets specifieker.
In tabel 1 heb ik een kolom(velden) genaamd ploeg(dit is ook de textbox op het formulier) hier vul ik dus desgewenst een A of B in. Wanneer dat is gebeurt moet in tabel 2 in een kolom, dit is een ja/nee veld, een vinkje komen.
ps. Ik heb helaas geen voorbeeldbestand.
Private Sub Tekst1_BeforeUpdate(Cancel As Integer)
Dim stsql As String
Select Case Tekst1
Case "A"
stsql = "UPDATE Tabel2 SET KolomA = True WHERE keyTabel1 = keyTabel2;"
Case "B"
stsql = "UPDATE Tabel2 SET KolomB = True WHERE keyTabel1 = keyTabel2;"
Case Else
Exit Sub
End Select
DoCmd.RunSQL stsql
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.