[VBS] Dropdown menu... hoe keuze uitlezen?

[dulghar]

Ik ben bezig met een scriptje in vb... nu heb ik wel een dropdown menu gemaakt... alleen kan ik er maar niet achter komen hoe ik uit kan lezen.

Ik heb het volgende scriptje voor m'n dropdown menu:

Visual Basic:

Sub MaakKeuzelijstFMP()
  Selection.FormFields.Add Range:=Selection.Range, Type:=wdFieldFormDropDown
  Selection.PreviousField.Select
  With Selection.FormFields(1)
    .Name = "DatabaseSelect"
    .EntryMacro = ""
    .ExitMacro = ""
    .Enabled = True
    .OwnHelp = False
    .HelpText = "Maak uw keuze of veld leeg laten."
    .OwnStatus = False
    .StatusText = ""
  End With
  
  With Selection.FormFields("DatabaseSelect").DropDown.ListEntries
  .Clear
  .Add Name:="FMPro 2002"
  .Add Name:="FMPro 2003"
  .Add Name:="FMPro 2004"
  .Add Name:="FMPro 2005"
  End With
End Sub

Nu wil ik bij elke FMPro versie een andere database benaderen. Hoe kan ik er nou voor zorgen, dat wanneer ik bijvoorbeeld FMPro 2002 selecteer, dat dan database2002 als database naam in een variabele komt en bij FMPro 2003 database2003 etc etc?

[onkl]

Ik ken script niet zo, wel VB, maar ik zou eens gaan zoeken met het sleutelwoordje "Event", vnl. het On_Change Event.
Daarbinnen geeft .Dropdown.Value je wel iets nuttigs. .Listindex kan ook interessant zijn.

[Stiegl]

We hebben het hier dus over VBA, geen VBS

[dulghar]

The Cheese schreef op vrijdag 28 oktober 2005 @ 14:34:
We hebben het hier dus over VBA, geen VBS

Daar kwam ik inderdaad net ook achter... krijg de ene syntax fout naar de andere.
Had een voorbeeldje gekregen van een collega, en die maakt het inderdaad in VBA. Maar daar heb ik in dit geval niet zoveel aan. Dus moet een andere oplossing vinden. Zal eens kijken wat ik allemaal met VBS wel en niet kan.

[dulghar]

Is het ook mogelijk om een script voortijdig te stoppen?

Heb nu he tvolgende:

Visual Basic:

If sVersie = "2005" Then 
        sDatabase = "LSRNO5.MINLNV.AGRO.NL"
ElseIf sVersie = "2004" Then
        sDatabase = "LSRNO11_4.MINLNV.AGRO.NL"
ElseIf sVersie = "2003" Then
        sDatabase = "LSRNO_LSRNO0011S.MINLNV.AGRO.NL"
ElseIf sVersie = "2002" Then
        sDatabase = "LSRNO_LSRNO0010s.MINLNV.AGRO.NL"
Else
        MsgBox "Geen geldig jaartal opgegeven!!"
End If

Nou zou ik alleen willen dat na: MsgBox "Geen geldig jaartal opgegeven!!" het script ook niet verder gaat. Alleen Exit werkt niet.

[CodeCaster]

Ik zou dit gebruiken:

Visual Basic:

Select Case sVersie 
    Case "2005"
        sDatabase = "LSRNO5.MINLNV.AGRO.NL"
    Case "2004"
        sDatabase = "LSRNO11_4.MINLNV.AGRO.NL"
    Case "2003"
        sDatabase = "LSRNO_LSRNO0011S.MINLNV.AGRO.NL"
    Case "2002"
        sDatabase = "LSRNO_LSRNO0010s.MINLNV.AGRO.NL"
    Case Else
        MsgBox "Geen geldig jaartal opgegeven!!"
        End
End Select

[dulghar]

CodeCaster schreef op vrijdag 28 oktober 2005 @ 15:58:
Ik zou dit gebruiken:

Visual Basic:

Select Case sVersie 
    Case "2005"
        sDatabase = "LSRNO5.MINLNV.AGRO.NL"
    Case "2004"
        sDatabase = "LSRNO11_4.MINLNV.AGRO.NL"
    Case "2003"
        sDatabase = "LSRNO_LSRNO0011S.MINLNV.AGRO.NL"
    Case "2002"
        sDatabase = "LSRNO_LSRNO0010s.MINLNV.AGRO.NL"
    Case Else
        MsgBox "Geen geldig jaartal opgegeven!!"
        End
End Select

Dat werkt helaas niet. Dan krijg ik de melding dat Select wordt verwacht in de regels waar nu alleen End staat.

[dulghar]

Ben er al achter.

Heb dit er neer gezet, en nu gaat het prima!

Visual Basic:

Select Case sVersie  
    Case "2005" 
        sDatabase = "LSRNO5.MINLNV.AGRO.NL" 
    Case "2004" 
        sDatabase = "LSRNO11_4.MINLNV.AGRO.NL" 
    Case "2003" 
        sDatabase = "LSRNO_LSRNO0011S.MINLNV.AGRO.NL" 
    Case "2002" 
        sDatabase = "LSRNO_LSRNO0010s.MINLNV.AGRO.NL" 
    Case Else 
        MsgBox "Geen geldig jaartal opgegeven!!" 
        WSCript.Quit 
End Select

[ Voor 89% gewijzigd door dulghar op 31-10-2005 10:49 . Reden: opgelost! ]