VSB: invoegen van tweede userform in document

[Verwijderd]

Ik ben bezig om in een word template een tweede userform in te bouwen die aangeroepen moet worden nadat het eerste is ingevuld, ik dacht dat na regel 30 een goto die verwijst naar de module gaat werken , maar dit gaat niet goed.Helaas kan ik op het www niet iest vinden wat mij weer op het juist spoor zet zodat we verder kunnen knutselen.

code:

Option Explicit
'#####################################################################
Private Sub UserForm_Initialize()
'#####################################################################
'
' Initialise the form
'
' We can preset the form with certain values.
'
' get the 'from' data from the registry
'
tbeigenaar.Text = GetSetting("webhaas", "briefsjabloon", "eigenaar")

'
' set the date
'
tbDate.Text = Format(Date, "d mmmm yyyy")

'
'
' Initialise the Delivery list
'
cbbetreft.AddItem "Offerte"
cbbetreft.AddItem "Aanbieding"
cbbetreft.AddItem "Mailing"
cbbetreft.AddItem "Bevestiging"

End Sub
'#####################################################################
Private Sub cmdOK_Click()
'#####################################################################
'
' The OK button has been pressed
'
' now lets get the data from the form and put it into the letter
'
' Set the bookmark text property to the data from the form
' - here's how...


ActiveDocument.Bookmarks("referentie").Range.Text = tbreferentie.Text
ActiveDocument.Bookmarks("Date").Range.Text = tbDate.Text
ActiveDocument.Bookmarks("naam").Range.Text = tbnaam.Text
ActiveDocument.Bookmarks("bedrijf").Range.Text = tbbedrijf.Text
ActiveDocument.Bookmarks("straat").Range.Text = tbstraat.Text
ActiveDocument.Bookmarks("huisnummer").Range.Text = tbhuisnummer.Text
ActiveDocument.Bookmarks("postcode").Range.Text = tbpostcode.Text
ActiveDocument.Bookmarks("woonplaats").Range.Text = tbwoonplaats.Text
ActiveDocument.Bookmarks("betreft").Range.Text = cbbetreft.Text
ActiveDocument.Bookmarks("onderwerp").Range.Text = tbonderwerp.Text
ActiveDocument.Bookmarks("aanhef").Range.Text = "Geachte " + tbnaam.Text + ","
ActiveDocument.Bookmarks("mvg").Range.Text = "Met vriendelijke groet"

Selection.GoTo What:=wdGoToBookmark, Name:="Closing"
'
' Check the 'value' of the option button to know which is selected
'

ActiveDocument.Bookmarks("eigenaar").Range.Text = tbeigenaar.Text

'
' remember 'from' for next time
'
SaveSetting "webhaas", "briefsjabloon", "eigenaar", tbeigenaar.Text

'---------------set the document properties -----------------------------
ActiveDocument.BuiltInDocumentProperties(wdPropertySubject) = tbonderwerp.Text
ActiveDocument.BuiltInDocumentProperties(wdPropertyCategory) = "Letter"
ActiveDocument.BuiltInDocumentProperties(wdPropertyKeywords) = "webhaas Our Ref: " + tbreferentie.Text


' lets maximise the document on the screen

ActiveWindow.View.Type = wdPageView
ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit


' lets take the user to the start point so they can start typing
Selection.GoTo What:=wdGoToBookmark, Name:="text"

'
' unload (hide) the form
'
Unload Me


' THATS IT!
End Sub


'#####################################################################
Private Sub cmdCancel_Click()
'#####################################################################
'
' unload (hide) the form
'
Unload Me
End Sub

[PaulZ]

Volgens mij kan je toch gewoon

code:

Tweedeformulier.Show()

invoegen na de Hide van het eerste formulier?

[Creepy]

Zo werkt het hier niet he

Je roept nu "hij doet het niet" en je post een flinke lap code.

Je zou jezelf een enorm plezier doen (en ons ook) als je zegt wat er mis gaat inclusief eventuele foutmeldingen, en daarbij alleen de relevante code post i.p.v. deze lap. Zie ook P&W FAQ - De "quickstart"