Formulier vervolgkeuzelijst koppelen

[Klattterman]

Hoi,

Ik weet niet of het mogelijk maar ik heb in word een formulier gemaakt.

Hierin heb ik eeen keuzelijst gemaakt.

Nu zou ik het zo willen hebben dat als een keuze gemaakt ik in de keuzelijst dat verderop in de tekst er een beschrijving van die keuze komt te staan,.

Voorbeeld:

In de keuzelijst wordt HUIS MAGREET dan moet verderop in de tekst een omschrijving van het huis verschijnen.


Wiet weet of het kan.


Groeten Hendrik

 

[joost verdaasdo]

Hai Hendrik,

Ja hoor dat kan!

Zie bijlage voor een kleine demonstratie!

Succes! :thumb:

 

[Klattterman]

Hoi,

Helemaal top!!


Hier was ik naar op zoek.

Heb hem een beetje aangepast en het werkt perfect!



Heel erg hartelijk dank.


Groeten Hendrik

 

[Klattterman]

Misschien als het mag nog een vraag.

Ik had ook gevraagd als het mogelijk was om het document automatisch in de juiste map(ook afhangkelijk van een veld op te slaan onder een bestandsnaam die afhangkelijk is van bepaalde velden.


Toen had ik de volgende oplossing gekregen:

Dim strname As String
Dim strname As String
Dim strtel As String
Dim strmail As String

strname = txtname
strtel = txttel
strfolder = txtfolder
frmingave.Hide

on error resume next

'test of de folder reeds bestaat, zo nee, aanmaken van folder

If Dir( "C:\" & strfolder & "\") = "" Then
mkdir "c:\" & strfolder
End If


stropslag = "C:\" & txtfolder & "\" & txtname & txttel & ".doc"

ActiveDocument.SaveAs FileName:=stropslag


Maar hoe kan ik dit inpassen in de code die ik van u had gekregen?

Groeten Hendrik

 

[joost verdaasdo]

Geplaatst door Klattterman
Hoi,

Helemaal top!!
Heel erg hartelijk dank.

Das mooi graag gedaan! :thumb:

 

[joost verdaasdo]

Geplaatst door Klattterman
Misschien als het mag nog een vraag.

Ik had ook gevraagd als het mogelijk was ....

Aan wie heb je dat gevraagd dan??...ik zie die vraag niet.. (heb ik iets gemist) ...

Maar goed wat jij vraagt is prima mogelijk maar je geeft te weinig info!

Plaats even een (gezippt) docje met daarin de velden welke je wilt gebruiken voor het opslaan. (ik kan dit niet raden en de code welke jij gaf gaat van meer velden uit als dan ik heb gebruikt...dus...)

En vertel dan dus even op welke manier de velden in de string (voor opslaan) moet worden gebruikt?

Als ik die info heb dan is het appeltje eitje! :thumb:

 

[Klattterman]

Hoi,

Ja was een beetje verkeerde vraagstelling.....

Ik heb dus het bestand bijgevoegd.

Ik wil graag het veld bmChoose gebruiken voor de dir waarin het document moet worden opgeslagen.

De bestandsnaam moet bestaan uit de volgende velden.

Datum_van + Datum_Tot + Naam




Alvast bedankt

 

[joost verdaasdo]

Hai,

Geen punt hoor zo komen we er ook!

Zie bijlage voor de uitwerking van jou vraag.
Je hebt allen geen startpad opgegeven..dus in welke map jij al die submappen aangemaakt wilt hebben.. (Zoals ik het nu heb gedaan komen de mappen in dezelfde map te staan als waar de sjabloon staat!)

Je kunt deze zelf hard in de code aanpassen.
Wil jij dat de submappen in: C:\Test\ komen dan pas je:

sRoot = ThisDocument.Path & Application.PathSeparator

Zo aan:
sRoot = "C:\Test\"

Denk aan de achterste slash in het pad!

Veel plezier ermee! :thumb:

 

[Klattterman]

Hoi,


Dit is echt super.
Het begint al profesioneel te worden....

Is echt wel mooi als je dit kan.

Maar toch verzin ik nog 2 vraagjes als het mag.

Zou je me kunnen uitlegen hoe je het pictogram + tekst in de werkbalk hebt gekregen?
Het saveit pictogram.


En is het mogelijk dat alle velden (die nodig zijn voor bestandsnaam en dir) aanwezig moeten zijn voordat je hem kunt opslaan?
En dat als je hem op slaat, en het bestand bestaat al dat je wel een melding krijg van overschrijven.

Ik hoop dat ik niet te veel vraag je hebt me al ontzettend geholpen.


Vriendelijke groet Hendrik

 

[joost verdaasdo]

Hai Hendrik,

Graag gedaan!

Wat je nu allemaal vraagt is eigenlijk een beetje teveel van het goede..(als je wist wat er allemaal toegevoegd moet worden..)

Enne tel nog eens dat zijn toch net ff-kes meer als 2 vragen.....

Ben in een goede bui..dus aan de slag gegaan!
Zie bijlage voor het resultaat..

Voor jou vraag over de werkbalkknop heb ik reeds een handleiding geschreven zie:
http://office.webforums.nl/forum/viewtopic.php?t=5217

Veel plezier ermee! :thumb:

 

[joost verdaasdo]

Hai Hendrik,

Wil het lukken? :thumb:

 

[Klattterman]

Hoi,

Ik was even een paar dagen weg zodoende.....


Maar het is prachtig.

Heb het nu bijna precies zoals ik wil.

Het zal me een hoop werk schelen.

Ga het straks ook nog proberen te koppelen met excel, zodat je de bezetting kunt zien.
Maar zoals het nu is is het al een geweldige verbetering.

Nogmaals heel hartelijk dank voor alle hulp.


Groeten Hendrik

 

[joost verdaasdo]

Hai Hendrik,

Das mooi graag gedaan!

En het zal je inderdaad wel wat werk gaan schelen denk ik....Automatisering is fantastisch! :thumb:

Zet jij deze aub nog even op afgehandeld?

 

[suiker_wendy]

keuzelijst

Hallo,

Ik heb " misbruik" gemaakt van de demonstratie die Joost aan Hendrik heeft gegeven.
Maar ik weet niet hoe ik het aan moet passen!
Ik vind het geweldig dat het gewoon allemaal kan maar hoe pas ik zoiets aan?
Als ik gewoon de tekst in word zelf aanpas krijg ik allemaal foutmeldingen.

Zou iemand me kunnen helpen?

Groetjes
wendy