opening second userform with button click on first userform

[littlepete]

Hello

My first userform shows all available data from a person (names, addresses, birth and other data,...)
the button "show text" on that first userform should open a smaller userform on top of the first one,
and put the contents of column F in the active row in it (it is a written full text with all data in it:
i stead of " birth: 19.04.1961" it will say: "... was born on 19 april 1961 in ... "

i have tried button.change ; .initialize ; .text ; .value ; userform .initialize ; ...

I guess the vba can be very short:

showtext.show
dim thisrow as long
ufuserform.pfnaam.Text = Sheets("gegevens").Range("ak" & dezerij).Value

but nothing happens...
after clicking the showtext button on the first userform, it shows the second userform : perfect!
but it does not fill the one and only textbutton to show that text...

as always, the problem is: where should i put the code, and what?

have fun creating !

 

[6StringJazzer]

If these are modal userforms (which is the default) then once the first form executes

showtext.show

then it will not execute any more code until the second form is closed.

In your second userform, create a sub like this:

Public Sub UserForm_Activate()
   ufuserform.pfnaam.Text = Sheets("gegevens").Range("ak" & dezerij).Value
End Sub

 

[littlepete]

hello and thanks for the help !

this is what i have sofar:

first userform ufpersonenfiche has among others "show text" button. (working well)
second userform uftoontekst has only one button "close userform". (working well)
there is only one textbutton on that second userform : ttvolletekst (full text). (that stays empty)

in the second userform i now have:

Private Sub uftoontekst_activate()
uftoontekst.ttvolletekst.Text = Sheets("gegevens").Range("f" & dezerij).Value
End Sub

what should i add or change to let the text of column F appear in the textbox?
(wordwrap is on, multiline is on, font is black on blue background,
the second userform is put exactly on top of the first one, except for the titlebar of u.f. one...

 

[6StringJazzer]

You have to use this exactly, no matter what the name of your userform is.

Public Sub UserForm_Activate()

 

[littlepete]

You have to use this exactly, no matter what the name of your userform is.

Public Sub UserForm_Activate()

ohhh !!! I DID NOT know that !!! thank you ...
vba makes me angry many times though... being patient is not easy...

now, that second line is turning yellow... i already tried adding userform1.unload and without...
vba is fun but problems take too much time ... thanks for helping !!!

to be clear:
i open first userform, then i click showdata button to view all person's data
then on userform 1 i click show text button, and on top of userform 1 i see userform 2 nicely placed...
and without clicking i should see the data in full text from column F in the database placed in the textbutton
on that userform 2...

but it still doesnt show...

 

[littlepete]

PROBLEM SOLVED !!!

i had this:

Private Sub uftoontekst_activate()
uftoontekst.ttvolletekst.Text = Sheets("gegevens").Range("f" & dezerij).Value
End Sub

i forgot to define what dezerij (thisrow) is !!!
i added dim dezerij as long some time ago BUT i forgot to tell what it is ...

Private Sub userform_activate()
Dim dezerij As Long
dezerij = ActiveCell.Row
uftoontekst.ttvolletekst.Text = Sheets("gegevens").Range("f" & dezerij).Value
End Sub

the whole time i was looking on the wrong place... now it works finally...

thank you very much for helping, i again learned a few things !!!

 

[6StringJazzer]

For UserForm and Worksheet modules, the event handlers always start with UserForm_ and Worksheet_, not the name of the actual userform or worksheet

Private Sub UserForm_Activate
Private Sub UserForm_Initialize
Private Sub UserForm_Click

Private Sub Worksheet_Change
Private Sub Worksheet_SelectionChange
Private Sub Worksheet_BeforeDoubleClick

and so on