hallo iedereen,
ik ben bezig me een deel van een programma die kijkt of alles is ingevuld dit is gelukt maar als ik het programma start dan loopt hij vast.
dit is de foutmelding:
De conversie van tekenreeks rb20.checked naar type Boolean is ongeldig.
objnaam is bv btnartikel
a is bv 1
ex1 is bv .text
dus dan krijg je btnartikel1.text
of hoe moet je dit anders doen?
alvast bedankt
groeten jordy
ik ben bezig me een deel van een programma die kijkt of alles is ingevuld dit is gelukt maar als ik het programma start dan loopt hij vast.
dit is de foutmelding:
De conversie van tekenreeks rb20.checked naar type Boolean is ongeldig.
Code:
Dim a As Integer
Dim plvisible
Dim obj As Object
Dim checkart As Object
obj = objnaam + a + ex1
obj2 = objnaam2 + a + ex2
obj3 = objnaam3 + a + ex3
checkart = "checkartikel" + a
a = 1
If checkartikel1.Checked = True Then
If obj3 = gelijkAan3 Then
If obj = gelijkAan Then
My.Forms.DreamMaker___Error001.Show()
a1 = True
Else
plvisible = True
a1 = False
End If
End If
End If
a = +1
If checkartikel2.Checked = True Then
If obj3 = gelijkAan3 Then
If obj = gelijkAan Then
My.Forms.DreamMaker___Error001.Show()
a2 = True
Else
plvisible = True
a2 = False
End If
End If
End If
a = +1
If checkartikel3.Checked = True Then
If obj3 = gelijkAan3 Then
If obj = gelijkAan Then
My.Forms.DreamMaker___Error001.Show()
a3 = True
Else
plvisible = True
a3 = False
End If
End If
End If
a = +1
If checkartikle4.Checked = True Then
If obj3 = gelijkAan3 Then
If obj = gelijkAan Then
My.Forms.DreamMaker___Error001.Show()
a4 = True
Else
plvisible = True
a4 = False
End If
End If
End If
a = +1
If checkartikel5.Checked = True Then
If obj3 = gelijkAan3 Then
If obj = gelijkAan Then
My.Forms.DreamMaker___Error001.Show()
a5 = True
Else
plvisible = True
a5 = False
End If
End If
End If
a = +1
If checkartikle6.Checked = True Then
If obj3 = gelijkAan3 Then
If obj = gelijkAan Then
My.Forms.DreamMaker___Error001.Show()
a6 = True
Else
plvisible = True
a6 = False
End If
End If
End If
objnaam is bv btnartikel
a is bv 1
ex1 is bv .text
dus dan krijg je btnartikel1.text
of hoe moet je dit anders doen?
alvast bedankt
groeten jordy