• 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.

userform probleem

  • Onderwerp starter Onderwerp starter Ben
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.
Ben

Ben

Gebruiker
Lid geworden
16 aug 2013
Berichten
163
Hallo allemaal,
Ik ben bezig met een userform en ik loop tegen een probleem.
Het probleem is dat ik het userform heb gemaakt om leden toe te voegen, de leden gaan dan in blad ledenbestand dit zijn de gegevens van de leden.
Nu had ik graag dat het userform wordt geopend in blad contributie door middel knop lid toevoegen deze staat ook in blad contributie en dat de ingevulde gegevens naar het blad ledenbestand gaan.

Ben er al een tijdje mee bezig maar het lukt me niet de knop en userform in het blad contributie te plaatsen, zie de bijlage.
Hartelijk dank voor een eventuele oplossing.
Met een vriendelijke groet:
Ben
 

Bijlagen

heb ik in gezocht maar dat gaat me een petje te ver.
het userform wat ik gemaakt heb heeft ook al een dag geduurd ben nu effe door het dolle heen, :o
groetjes Ben
 
Even naar gekeken maar gauw weer gesloten.
Code zonder inspringpunten ga ik niet uitzoeken.
Corrigeer dat eerst.
 
Hoi Snb en Edmoor,
de bijlage in snb snelkoppeling zitten 2 x bestanden die geven wel info hoe en wat, in bestand listopject hier komt het op de manier hoe het bij mij is en in bestand database, deze geeft ook wel een oplossing echter de achtergrond kan ik niet vinden. het excel bestand opent wel met een userform maar de rest is verborgen.
Het antwoord van Edmoor is wel kortaf, dacht dat er misschien toch wel wat verder uitleg kan worden gegeven.
Mijn oplossing is nu dat ik de kolommen van leden bestand verberg en deze koppel ik dan met blad ledenbestand.
In blad contributie wordt nu de gegevens van blad ledenbestand weergegeven allen ID Naam.
Dit werkt ook maar het is wel omstandig, ik dacht het userform werkt, om dus de gegevens naar blad ledenbestand te exporteren dacht ik dat lukt wel dus niet. Het antwoord "code zonder inspringpunten ga ik niet uitzoeken", kun je me dit even toelichten hoe en waar ik dan die inspringpunten kan vinden.
Dim id As Integer, i As Integer, j As Integer, flag As Boolean
Sub GetData()
If IsNumeric(Contacten.TextBox1.Value) Then
flag = False
i = 0
id = Contacten.TextBox1.Value
Do While Cells(i + 1, 1).Value <> ""
If Cells(i + 1, 1).Value = id Then
flag = True
For j = 2 To 6
Contacten.Controls("TextBox" & j).Value = Cells(i + 1, j).Value
Next j
End If
i = i + 1
Loop
If flag = False Then
For j = 2 To 6
Contacten.Controls("TextBox" & j).Value = ""
Next j
End If
Else
ClearForm
End If
End Sub
Sub ClearForm()
For j = 1 To 6
Contacten.Controls("TextBox" & j).Value = ""
Next j
End Sub
Sub EditAdd()
Dim emptyRow As Long
If Contacten.TextBox1.Value <> "" Then
flag = False
i = 0
id = Contacten.TextBox1.Value
emptyRow = WorksheetFunction.CountA(Range("=A:A")) + 1
Do While Cells(i + 1, 1).Value <> ""
If Cells(i + 1, 1).Value = id Then
flag = True
For j = 2 To 6
Cells(i + 1, j).Value = Contacten.Controls("TextBox" & j).Value
Next j
End If
i = i + 1
Loop
If flag = False Then
For j = 1 To 6
Cells(emptyRow, j).Value = Contacten.Controls("TextBox" & j).Value
Next j
End If
End If
End Sub
Klik om te vergroten...

met een vriendelijk groet, Ben
 
Jouw code, maar dan nu met inspringen :
Code: 
Dim id As Integer, i As Integer, j As Integer, flag As Boolean
Sub GetData()
    If IsNumeric(Contacten.TextBox1.Value) Then
        flag = False
        i = 0
        id = Contacten.TextBox1.Value
        Do While Cells(i + 1, 1).Value <> ""
            If Cells(i + 1, 1).Value = id Then
                flag = True
                For j = 2 To 6
                    Contacten.Controls("TextBox" & j).Value = Cells(i + 1, j).Value
                Next j
            End If
            i = i + 1
        Loop
        If flag = False Then
            For j = 2 To 6
                Contacten.Controls("TextBox" & j).Value = ""
            Next j
        End If
    Else
        ClearForm
    End If
End Sub
Sub ClearForm()
    For j = 1 To 6
        Contacten.Controls("TextBox" & j).Value = ""
    Next j
End Sub
Sub EditAdd()
    Dim emptyRow As Long
    If Contacten.TextBox1.Value <> "" Then
        flag = False
        i = 0
        id = Contacten.TextBox1.Value
        emptyRow = WorksheetFunction.CountA(Range("=A:A")) + 1
        Do While Cells(i + 1, 1).Value <> ""
            If Cells(i + 1, 1).Value = id Then
                flag = True
                For j = 2 To 6
                    Cells(i + 1, j).Value = Contacten.Controls("TextBox" & j).Value
                Next j
            End If
            i = i + 1
        Loop
        If flag = False Then
            For j = 1 To 6
                Cells(emptyRow, j).Value = Contacten.Controls("TextBox" & j).Value
            Next j
        End If
    End If
End Sub
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan