fout melding

[jordyvk]

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.

  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

 

[evertVB]

Heb je een compile fout of een run-time error?

 

[jordyvk]

als ik hem start(als hij bezig is)

en dit is ook nog een deel van de code

   Private obj As Object
    Private obj2 As Object
    Private obj3 As Object
    Private ex1 As String
    Private ex2 As String
    Private ex3
    Private plvisible
    Private objnaam As String
    Private objnaam2 As String
    Private objnaam3 As String
    Private gelijkAan As Object
    Private gelijkAan2 As Object
    Private gelijkAan3 As Object
    Private a As Integer
    Private b As Integer

 

[evertVB]

        Private objnaam As String
        ...
        Private ex1 As String
        ...
        Dim a As Integer
        ...
        Dim obj As Object
        ...
        obj = objnaam + a + ex1
        ...
        a = 1

Dit is de merkwaardigste code die ik ooit heb gezien.
Wat wil je hiermee precies bereiken?

Hier is een voorbeeld van hele simpele code, die controleert of er drie artikelen zijn ingevuld.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim blnArtikel1Ingevuld As Boolean
        Dim blnArtikel2Ingevuld As Boolean
        Dim blnArtikel3Ingevuld As Boolean

        blnArtikel1Ingevuld = False
        blnArtikel2Ingevuld = False
        blnArtikel3Ingevuld = False

        If TextBox1.Text = "Kokosnoot" Then
            blnArtikel1Ingevuld = True
        End If
        If TextBox2.Text = "Markeerstift" Then
            blnArtikel2Ingevuld = True
        End If
        If TextBox3.Text = "Appeltaart" Then
            blnArtikel3Ingevuld = True
        End If

        If blnArtikel1Ingevuld And blnArtikel2Ingevuld And blnArtikel3Ingevuld Then
            MsgBox("Alles is ingevuld!!")
        Else
            MsgBox("Nog niet alles is ingevuld!!")
        End If
    End Sub

Begrijp je deze code?

 

[evertVB]

PS
Om dit werkend te krijgen moet je eerst een button en drie textboxen op je form zetten.

PS

Heb je een compile fout of een run-time error?

Met een compile error wordt bedoeld, dat visual basic de door jou ingevoerde code niet kan compileren - m.a.w. de code die je hebt ingevoerd voldoet niet aan de verplichte VB syntax.
Met een runtime error wordt bedoeld, dat je code al wel gecompileerd is, maar dat er een andere fout optreedt als de code daadwerkelijk loopt.

Het is handig om te beseffen - en om in je topic te vermelden - met welke van de twee je te maken hebt.

 

[jordyvk]

ja die code begrijp ik.

daar had ik zelf ook op gekomen...;p
maar mij gaat het ik wil een soort van sjabloon aanmaken die hij elke keer raadpleegt en die dan invult. het gaat namelijk over heel veel artikels die hij met controleren en veel mogelijkheden.

het gaat over een runtime error
voor de rest is alles goed. maar ja...

alvast bedankt

groeten jordy

 

[evertVB]

Anders:
De artikelen die allemaal ingevuld moeten worden stop je in een database tabel ARTIKELEN.

Die krijgt velden
ARTIKELNR
ARTIKELOMS
INGEVULD_J_N

Dan zet je op je form een listbox, die gevuld wordt vanuit die database tabel

En iedere keer als de gebruiker met die listbox een artikel selecteert, dan zet je voor dat artikel INGEVULD_J_N op J
(default staan ze op N)

En als je je check wilt doen vuur je een query af:

SELECT COUNT(*) FROM ARTIKELEN WHERE INGEVULD_J_N = "N"

en als daar iets anders uitkomt dan 0 dan geef je je foutmelding.

Zoiets?

 

[jordyvk]

oké bedankt ;p

ik zal het proberen.

groeten jordy