Database naar userform

[verluc]

Wil gegevens overbrengen van mijn database (sheet Data), naar mijn userform om eventueel wijzigingen aan te brengen.
Dit gebeurt met volgende code :

UserForm1.Textbox0.Text = Sheets("Data").Cells(5, 2).Value
UserForm1.TextBox1.Text = Sheets("Data").Cells(5, 3).Value
UserForm1.TextBox3.Text = Sheets("Data").Cells(5, 5).Value
UserForm1.TextBox8.Text = Sheets("Data").Cells(5, 4).Value
UserForm1.TextBox12.Text = Sheets("Data").Cells(5, 6).Value
enz......

Op deze wijze komen de gegevens van rij 5 van mijn database in de userform.
Vraag is : hoe kan ik deze rijnummer dynamisch maken zodat ik zelf de rij kan kiezen?

 

[Roncancio]

Je kunt laten verwijzen naar de actieve rij of je zou kunnen laten verwijzen naar een waarde uit een ander besturingselement of cel.

Bijv.:

Dim lRij as Long
lRij = Activecell.Row
UserForm1.Textbox0.Text = Sheets("Data").Cells(lRij, 2).Value
UserForm1.TextBox1.Text = Sheets("Data").Cells(lRij, 3).Value
UserForm1.TextBox3.Text = Sheets("Data").Cells(lRij, 5).Value
UserForm1.TextBox8.Text = Sheets("Data").Cells(lRij, 4).Value
UserForm1.TextBox12.Text = Sheets("Data").Cells(lRij, 6).Value

..of als de regelnummer in een combobox staat:

Dim lRij as Long
lRij = Combobox1.Value
UserForm1.Textbox0.Text = Sheets("Data").Cells(lRij, 2).Value
UserForm1.TextBox1.Text = Sheets("Data").Cells(lRij, 3).Value
UserForm1.TextBox3.Text = Sheets("Data").Cells(lRij, 5).Value
UserForm1.TextBox8.Text = Sheets("Data").Cells(lRij, 4).Value
UserForm1.TextBox12.Text = Sheets("Data").Cells(lRij, 6).Value

Wellicht ten overvloede:
In plaats van Cells(lRij,2) kan je ook zeggen Range("B" &lRij) aangezien de 2 slaat op de 2e letter van het alfabet.

Met vriendelijke groet,


Roncancio

 

[verluc]

Bedankt Roncancio

Het probleem is dat de gekozen rij van de sheet Data word gekozen via een userform:

Sub UserForm_Initialize()
    contractnummer.SetFocus
    With contractnummer
         .RowSource = "Data" & "!A3:" & Sheets("Data").Range("A65536").End(xlUp).Address
    End With
End Sub

 

[Roncancio]

Het probleem is dat de gekozen rij van de sheet Data word gekozen via een userform:

Dat maakt niet uit want ik neem aan dat er ergens een rijnummer staat in de userform of dat de rijnummer moet worden bepaald aan de hand van een gezochte waarde in een bereik.
Dus stel men kiest een waarde uit contractnummer, dan zoekt VBA naar dat contractnummer in het bereik en toont de bijbehorende gegevens op dezelfde rij.

Met vriendelijke groet,


Roncancio

 

[verluc]

Bedankt voor de info.
Zal hiermee wat stoeien om te zien of ik eruit kom.
Ben even afwezig,doch zeker op dit onderwerp terug.
Groeten.

 

[verluc]

Hi Roncancio,

Na veelvuldigd proberen, kan ik er toch niet uitgeraken.Is trouwens de eerste maal dat ik met userforms werk.

In userform2 staat een combobox.In deze userform staat eveneens de knop Ophalen en de knop Sluiten.
Wanneer ik een nummer kies uit de combobox en daarna Ophalen kies, krijg ik geen reactie op de userform1

Sub Ophalen_Click()
On Error Resume Next
Dim lRij As Long
lRij = ComboBox1.Value
'UserForm1.Textbox0.Text = Sheets("Data").Cells(lRij, 2).Value
UserForm1.TextBox1.Text = Sheets("Data").Cells(lRij, 3).Value
UserForm1.TextBox3.Text = Sheets("Data").Cells(lRij, 5).Value
UserForm1.TextBox8.Text = Sheets("Data").Cells(lRij, 4).Value
UserForm1.TextBox12.Text = Sheets("Data").Cells(lRij, 6).Value
UserForm1.Show
End Sub

 

[Roncancio]

Eens moet de 1e keer zijn.

Het zou moeten werken.
In bijgevoegd voorbeeldbestand verschijnt een simpele userform2 bij het openen.
Zodra een keuze is gemaakt in de combobox verschijnt userform1 met de bijbehorende gegevens.

Kan je eventueel een bestand sturen zonder gevoelige informatie?

Met vriendelijke groet,


Roncancio

 

[verluc]

Hi, Roncancio

Misschien zit de fout hem bij het verschijnen van de userform.
Het programma start met een knop : Invoeren
Wanneer ik deze druk komt userform1 te voorschijn.
In deze userform1 staat een knop Wijzigen.
Wanneer ik deze druk komt userform2 te voorschijn om de keuze te maken in de combobox.Let wel userform1 blijft open staan op het scherm.
Wil U dit programma overmaken doch het is groter dan een attachement toelaat
Misschien via een P.M. maar hoe moet dit?

 

[Warme bakkertje]

Op deze manier dan ?

 

[Roncancio]

Hi, Roncancio

Misschien zit de fout hem bij het verschijnen van de userform.
Het programma start met een knop : Invoeren
Wanneer ik deze druk komt userform1 te voorschijn.
In deze userform1 staat een knop Wijzigen.
Wanneer ik deze druk komt userform2 te voorschijn om de keuze te maken in de combobox.Let wel userform1 blijft open staan op het scherm.
Wil U dit programma overmaken doch het is groter dan een attachement toelaat
Misschien via een P.M. maar hoe moet dit?

Kijk even of de oplossing van WarmBakkertje het gewenste resultaat geeft.
Je kunt anders ook een bericht naar mij sturen zodat ik kan replyen.
Vervolgens reply je met het bestand.

Met vriendelijke groet,


Roncancio

 

[huijb]

@verluc Ik heb diversen codes tussen code tags geplaatst. Denk hier de volgende keer aan. Lees dit ook even door http://www.helpmij.nl/forum/showthread.php?t=278887

 

[verluc]

Hi Roncancio

Lukt mij niet om een P.M. te sturen.
Waar moet ik dit zoeken en vinden ?
Met dank.

 

[Roncancio]

Hi Roncancio

Lukt mij niet om een P.M. te sturen.
Waar moet ik dit zoeken en vinden ?
Met dank.

Het hoeft geen P.M. te zijn.
Wat je kan doen is om op mijn naam te klikken.
Kies voor "Bekijk Profiel".
Ga naar tabblad "Contactinformatie"
Kies voor "Stuur een bericht per e-mail naar Roncancio"
Dus nog zonder bijgevoegd bestand.

Ik zal op dit bericht replyen en vervolgens kun je het bestand naar mij sturen.

Met vriendelijke groet,


Roncancio

 

[verluc]

Hi, Roncancio

Kan dit inderdaad vinden, maar geen naam die luistert naar Roncancio
Klopt dit ?

 

[Roncancio]

Hi, Roncancio

Kan dit inderdaad vinden, maar geen naam die luistert naar Roncancio
Klopt dit ?

Nee, als je in deze topic op mijn naam klikt en vervolgens de stappen uitvoert die ik beschreven heeft, dan kan je een bericht naar mijn privé emailadres sturen.

Met vriendelijke groet,


Roncancio