• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

verschil tussen 2 codes

Status
Niet open voor verdere reacties.
B

bowlingman

Gebruiker
Lid geworden
17 okt 2007
Berichten
433
Hallo,
Kan iemand voor mij eens meekijken naar de volgende 2 codes.
Het zijn 2 identieke codes maar toch is er één die niet werkt.
Ik heb ze tijdelijk in één ontwerp gezet en het rare is dat wanneer ik de bovenste code neutraliseer met quotes de onderste wel werkt en draai ik het om en de onderste neutraliseer dan werkt de bovenste niet.
Code: 
Private Sub cmbWegschrijven_Click()
Dim Rw1 As Integer, i As Integer, TB As Object
       With Sheets("EuromillionsPersoonlijk")
            Rw1 = .Range("B108").End(xlUp).Row + 1
                For Each TB In Me.Controls
                    For i = 1 To 20
                        If TB.Name = "Textbox" & i Then
                            With .Cells(Rw1, i + 2)
                                .Value = TB.Value
                            End With
                            With .Cells(Rw1, 2)
                                .Value = Calendar1.Value
                            End With
                                TB.Value = ""
                        End If
                    Next
                Next
        End With
End Sub
Private Sub cmbWegschrijven_Click()
Dim Rw1 As Integer, i As Integer, TB As Object
       With Sheets("EuromillionsPersoonlijk")
            Rw1 = .Range("B108").End(xlUp).Row + 1
                For Each TB In Me.Controls
                    For i = 1 To 20
                            If TB.Name = "TextBox" & i Then
                            With .Cells(Rw1, i + 2)
                                .Value = TB.Value
                            End With
                                With .Cells(Rw1, 2)
                                    .Value = Calendar1.Value
                                End With
                                    TB.Value = ""
                            End If
                    Next
                Next
        End With
End Sub
Grtjs.
Armand
 
Nee, er staat maar 1 button om weg te schrijven.
Er zal ergens wel een foutje in de eerste code staan, maar ik kan het niet vinden:evil:
 
bowlingman zei:
Nee, er staat maar 1 button om weg te schrijven.
Er zal ergens wel een foutje in de eerste code staan, maar ik kan het niet vinden:evil:
Klik om te vergroten...

Er kan maar 1 macrocode gekoppeld zijn aan die knop , voor de andere code heb je een knop nodig die gekoppeld is met deze code , vandaar dat deze niet werkt .

Per code heb je een knop nodig .
 
Hallo Trucker 10,

De bovenste code staat origineel achter de button en toen die niet werkte, heb ik de code uit mijn ander progje geprobeerd en die werkte wel.
Het is niet zo dat de beide codes samen worden gebruikt achter 1 button. Ik heb gewoon beide codes geprobeert en de ene werkt wel en de andere niet.
Maar met Uw antwoord, ga ik nu eens proberen om een 2° button te maken en dan de code (die dus niet werkt) hier achter te zetten.
Laat nog wel iets weten.

Grtjs.
Armand
 
Ik versta ook al niet dat er geen conflict melding komt als deze beiden in hetzelfde venster van de VbEditor staan .
 
Hallo Trucker 10
Dit is wat ik nu heb.
1 button "cmbWegschrijven" met de volgende code
Code: 
Private Sub cmbWegschrijven_Click()
Dim Rw1 As Integer, i As Integer, TB As Object
       With Sheets("EuromillionsPersoonlijk")
            Rw1 = .Range("B108").End(xlUp).Row + 1
                For Each TB In Me.Controls
                    For i = 1 To 20
                            If TB.Name = "TextBox" & i Then
                            With .Cells(Rw1, i + 2)
                                .Value = TB.Value
                            End With
                                With .Cells(Rw1, 2)
                                    .Value = Calendar1.Value
                                End With
                                    TB.Value = ""
                            End If
                    Next
                Next
        End With
End Sub
Deze werkt perfect.

En 1 button "CommandButton1" met de volgende code
Code: 
Private Sub CommandButton1_Click()
Dim Rw1 As Integer, i As Integer, TB As Object
       With Sheets("EuromillionsPersoonlijk")
            Rw1 = .Range("B108").End(xlUp).Row + 1
                For Each TB In Me.Controls
                    For i = 1 To 20
                        If TB.Name = "Textbox" & i Then
                            With .Cells(Rw1, i + 2)
                                .Value = TB.Value
                            End With
                            With .Cells(Rw1, 2)
                                .Value = Calendar1.Value
                            End With
                                TB.Value = ""
                        End If
                    Next
                Next
        End With
End Sub
En deze werkt niet.
Op zichzelf eigenlijk geen enkel probleem, vermits ik de eerste code kan gebruiken. Maar ik heb dit probleem on-line gezet, gewoon om te weten te komen of er in de tweede code alsnog ergens een piepklein foutje zit dat ik steeds over het hoofd zie.

Grtjs.
Armand
 
Hallo Trucker 10,

Op Uw reactie betreffende een conflict.
Beide codes hebben nooit samen gestaan.
Steeds heeft er één van beide met quotes gestaan, zodat er telkens maar één actief was.
Deze quotes heb ik alleen maar verwijderd om de codes in mijn eerste bericht hier te plaatsen.

Grtjs.
Armand
 
Als je op > ontwikkelaars > ontwerpmodus klikt kan je de buttons koppelen ( controleren )
 

Bijlagen

  • cmb.xlsm
    19,8 KB · Weergaven: 25
Via een jpg ;)
 

Bijlagen

  • cmb.jpg
    cmb.jpg
    100,8 KB · Weergaven: 43
Oeps, ben niet duidelijk genoeg geweest.
Mijn buttons staan op een form en daar had ik al nagezien of de naamgeving juist was of niet.
Tevens heb ik de "Subs" in de code toegevoegd door op de buttons te dubbelklikken, zodat daar ook al geen fout in kost staan.
 
Zonder bestandje waar de fout zich voordoet is het kijken in een glazen bol .
In je eerste quote lees ik >> Private Sub cmbWegschrijven_Click()
<< twee maal in je volgende quote is het al gewijzigd >> Private Sub CommandButton1_Click()
<< en bovenstaande uit de eerste .
Vandaar dat ik dan in de richting van de koppeling denk .

Met een dummy bestandje waar de fout zich voordoet kan ik kijken .
 
Kan je mij nog eens zeggen hoe ik een bestandje groter dan 100 kb kan uploaden.
'T is al een tijdje geleden dat ik dit nog gedaan heb
 
Hier kan je mijn bestandje ophalen
http://www.mijnbestand.nl/Bestand-3T6E7SEEXGZL.xlsm

Op de knop "Trekkingen Inbrengen" klikken om het frm te openen.
Met de knop "OK" worden de gegevens wel weggeschreven.
Met de knop "CommanButton1" (welke er maar tijdelijk is bijgeplaatst) lukt het niet en zoals ik kan zien zijn de codes identiek.

Grtjs.
Armand
 
Uw texBox benaming was niet correct, kijk naar de rode B :

Code: 
Private Sub CommandButton1_Click()
Dim Rw1 As Integer, i As Integer, TB As Object
       With Sheets("EuromillionsPersoonlijk")
            Rw1 = .Range("B108").End(xlUp).Row + 1
                For Each TB In Me.Controls
                    For i = 1 To 20
                        If TB.Name = "Text[B][/B][COLOR="#FF0000"]B[/COLOR]ox" & i Then
                            With .Cells(Rw1, i + 2)
                                .Value = TB.Value
                            End With
                            With .Cells(Rw1, 2)
                                .Value = Calendar1.Value
                            End With
                                TB.Value = ""
                        End If
                    Next
                Next
        End With
End Sub
 
Bedankt Trucker 10 en Cobbe,

Werkt nu perfect.
Had de code wel 10 tallen keren nagezien en toch dit foutje niet opgemerkt:eek:

Grtjs.
Armand
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan