Combobox linken met check box.

[Barracuda2805]

Allen,

Wie kan mij helpen met mijn vraag m.b.t. een combobox.
In een formulier maak ik gebruik van een combobox, in deze combobox staan klanten(Klant1, klant2, klant 2). Wanneer ik klant1 selecteer wil ik graag dat er op een andere plaats in dit formulier in een tekstvak automatisch een contract nummer komt te staan indien beschikbaar.

Klant 1 -> contract 1
klant 2 -> contract 2
Klant 3 -> contract 3

ik maak hierbij gebruik van de control toolbox.

gr. Barracuda

 

[Axel Hagg]

Dag B,

Je kunt twee dingen doen:
1. Als je de combobox vult met klanten in een tweede kolom de contractnummers zetten.

2. Als je de combobox vult met klanten in een tweede kolom de plaats aanduiden waar de contractnummers staan.

Gegroet,

Axel.

 

[Barracuda2805]

Hoi,

ik heb het als volgt opgelost.

Option Explicit

Sub FirstFieldExit()

Dim Fruit(3) As String
Dim Groente(3) As String
Dim Vlees(3) As String
Dim i As Integer
Dim var

    Fruit(0) = "Apel"
    Fruit(1) = "Peer"
    Fruit(2) = "Sinaasappel"
    Fruit(3) = "Banaan"
    
    Groente(0) = "Groene Bonen"
    Groente(1) = "Bruine Bonen"
    Groente(2) = "Sperziebonen"
    Groente(3) = "Spinazie"
    
    Vlees(0) = "Kip"
    Vlees(1) = "Rund"
    Vlees(2) = "Varken"
    Vlees(3) = "Struisvogel"
    
  '  use the value of the dropdown to case select condition
Select Case ActiveDocument.FormFields("Dropdown1").DropDown.Value
    Case 1
        ActiveDocument.FormFields("Result").DropDown.ListEntries.Clear
            For var = 1 To 4
                ActiveDocument.FormFields("Result").DropDown.ListEntries.Add Name:=Fruit(i)
                i = i + 1
            Next
        ActiveDocument.FormFields("Result").DropDown.Value = 1
    Case 2
        ActiveDocument.FormFields("Result").DropDown.ListEntries.Clear
            For var = 1 To 4
                ActiveDocument.FormFields("Result").DropDown.ListEntries.Add Name:=Groente(i)
                i = i + 1
            Next
        ActiveDocument.FormFields("Result").DropDown.Value = 1
    Case 3
        ActiveDocument.FormFields("Result").DropDown.ListEntries.Clear
            For var = 1 To 4
                ActiveDocument.FormFields("Result").DropDown.ListEntries.Add Name:=Vlees(i)
                i = i + 1
            Next
        ActiveDocument.FormFields("Result").DropDown.Value = 1
End Select
End Sub

Bedankt voor het meedenken.

Gr. Barracuda

 

[Axel Hagg]

Dag B,

Mooie opgelost. Ik geef nog twee alternatieven:

Option Explicit

Sub FirstFieldExit()
  Dim Fruit(3) As String
  Dim Groente(3) As String
  Dim Vlees(3) As String
  Dim i As Integer
  
  For i = 0 To 3
    Fruit(i) = Choose(i + 1, "Appel", "Peer", "Sinaasappel", "Banaan")
    Groente(i) = Choose(i + 1, "Groene Bonen", "Bruine Bonen", "Sperziebonen", "Spinazie")
    Vlees(i) = Choose(i + 1, "Kip", "Rund", "Varken", "Struisvogel")
  Next
'  use the value of the dropdown to case select condition
  With ActiveDocument.FormFields("Result").DropDown
    .ListEntries.Clear
    Select Case .Value
    Case 1
      For i = 0 To UBound(Fruit)
        .ListEntries.Add Fruit(i)
      Next
    Case 2
      For i = 0 To UBound(Groente)
        .ListEntries.Add Groente(i)
      Next
    Case 3
      For i = 0 To UBound(Vlees)
        .ListEntries.Add Vlees(i)
      Next
    End Select
    .Value = 1
  End With
End Sub

Option Explicit

Sub FirstFieldExit()
  Dim a() As String
  Dim b As Byte
  Dim i As Integer
  
  ReDim a(2, 3)
  For i = 1 To 3
    a(0, i) = Choose(i + 1, "Appel", "Peer", "Sinaasappel", "Banaan")
    a(1, i) = Choose(i + 1, "Groene Bonen", "Bruine Bonen", "Sperziebonen", "Spinazie")
    a(2, i) = Choose(i + 1, "Kip", "Rund", "Varken", "Struisvogel")
  Next
'  use the value of the dropdown to case select condition
  With ActiveDocument.FormFields("Result").DropDown
    .ListEntries.Clear
    b = .Value
    For i = 0 To 3
      .ListEntries.Add a(b, i)
    Next
    .Value = 1
  End With
End Sub

Gegroet,

Axel