Archief - VBA vraag: Keuzerondjes in Access

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.

AsEeL

Legacy Member
Hoi ik zit met een probleempje ivm keuzerondjes en selectievakjes.
Ik heb een groepsvak gemaakt als volgt.

O Contant
O Cheque
O Overschrijving
O Banccontact

En daaronder een knop OK
Nu wil ik als gebruiker 1 van de 4 mogelijkheden selecteren (wat geen probleem is) maar dan als ik op OK druk ( CmdButten_Click() ) moet hij zien welk keuzerondje actief is en die waarde wegschrijven naar mijn onderliggende tabel. ( Dim rstverkopen as New ADODB.recordset)
Nu wat is de eigenschap of methode om na te gaan of een keuzerondje is geselecteerd?

Vb

If Keuzerondje1.IsSelected(zelf uitgevonden) then
!Betalingswijze = "Contant"
End if

Wa moet ik nu gebruiken want kan het maar nie vinden?

Hopelijk verstaat mij iemand

menlor

Legacy Member
ge moet met case werken

prolly iets als
select case groepsvak
case 1
!Betalingswijze = "Contant"
case 2
!Betalingswijze = "Cheque"
case 3
...
case 4
....
end select

uw 1 zal het eerste keuzerondje zijn da ge hebt aangemaakt enzovoort

AsEeL

Legacy Member
Nee da ist nie echt want em weet nog altijd nie welk aangeduid is

AsEeL

Legacy Member
Kheb het gevonden

Ge moet gewoon de waarde vragen van uw kader :D

If Kader25.Value = 1 Then
!Betaalwijze = "Contant"
End If
If Kader25.Value = 2 Then
!Betaalwijze = "Cheque"
End If
If Kader25.Value = 3 Then
!Betaalwijze = "Bancontact"
End If
If Kader25.Value = 4 Then
!Betaalwijze = "Overschrijving"
End If

menlor

Legacy Member
hier werkt het
eb het snel gemaakt

(bij formulier1 )

http://members.lycos.nl/menlor/db1.mdb

Private Sub Knop10_Click()
Dim betalingswijze As String
Select Case Kader0
Case 1
betalingswijze = "Contant"
Case 2
betalingswijze = "cheque"
Case 3
betalingswijze = "bankcontact"
Case 4
betalingswijze = "overschrijving"
End Select
lblvak = betalingswijze

End Sub

en bah vba suckt, vb.net is zo veel toffer
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan