Scribd
Upload
14 views28 pages

ComboBox Location Codes

The document contains code that populates a third combo box with items based on the selected text in a second combo box. It contains over a dozen If statements that check the text in the second combo box and adds a numbered list of items to the third combo box if a condition is met. This allows dynamic population of the third combo box based on the user's selection in the second combo box.

Uploaded by

Yusrizal Ar Dumai
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
14 views28 pages

ComboBox Location Codes

The document contains code that populates a third combo box with items based on the selected text in a second combo box. It contains over a dozen If statements that check the text in the second combo box and adds a numbered list of items to the third combo box if a condition is met. This allows dynamic population of the third combo box based on the user's selection in the second combo box.

Uploaded by

Yusrizal Ar Dumai
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd

Private Sub combobox2_enter()

If [Link] = "Bandar Labuhan" Then

[Link] ("001")

[Link] ("002")

[Link] ("003")

[Link] ("004")

[Link] ("005")

[Link] ("006")

[Link] ("007")

[Link] ("008")

[Link] ("009")

[Link] ("010")

[Link] ("011")

[Link] ("012")

[Link] ("013")

[Link] ("014")

[Link] ("015")

[Link] ("016")

[Link] ("017")

[Link] ("018")

[Link] ("019")

[Link] ("020")

[Link] ("021")

[Link] ("022")

[Link] ("023")

End If
If [Link] = "Bangun Rejo" Then

[Link] ("001")

[Link] ("002")

[Link] ("003")

[Link] ("004")

[Link] ("005")

[Link] ("006")

[Link] ("007")

[Link] ("008")

[Link] ("009")

[Link] ("010")

[Link] ("011")

[Link] ("012")

[Link] ("013")

[Link] ("014")

[Link] ("015")

[Link] ("016")

[Link] ("017")

[Link] ("018")

[Link] ("019")

[Link] ("020")

[Link] ("021")

[Link] ("022")

[Link] ("023")

[Link] ("024")

[Link] ("025")

[Link] ("026")
[Link] ("027")

[Link] ("028")

[Link] ("029")

[Link] ("030")

[Link] ("031")

[Link] ("032")

[Link] ("033")

[Link] ("034")

[Link] ("034")

[Link] ("036")

[Link] ("037")

End If

If [Link] = "Bangun Sari" Then

[Link] ("001")

[Link] ("002")

[Link] ("003")

[Link] ("004")

[Link] ("005")

[Link] ("006")

[Link] ("007")

[Link] ("008")

[Link] ("009")

[Link] ("010")

[Link] ("011")

[Link] ("012")

[Link] ("013")
[Link] ("014")

[Link] ("015")

[Link] ("016")

[Link] ("017")

[Link] ("018")

[Link] ("019")

[Link] ("020")

[Link] ("021")

[Link] ("022")

[Link] ("023")

[Link] ("024")

[Link] ("025")

[Link] ("026")

[Link] ("027")

[Link] ("028")

[Link] ("029")

[Link] ("030")

[Link] ("031")

[Link] ("032")

[Link] ("033")

[Link] ("034")

[Link] ("034")

[Link] ("036")

[Link] ("037")

[Link] ("038")

[Link] ("039")

[Link] ("040")
[Link] ("041")

[Link] ("042")

[Link] ("043")

[Link] ("044")

[Link] ("045")

[Link] ("046")

End If

If [Link] = "Bangun Sari Baru" Then

[Link] ("001")

[Link] ("002")

[Link] ("003")

[Link] ("004")

[Link] ("005")

[Link] ("006")

[Link] ("007")

[Link] ("008")

[Link] ("009")

[Link] ("010")

[Link] ("011")

[Link] ("012")

[Link] ("013")

[Link] ("014")

[Link] ("015")

[Link] ("016")

[Link] ("017")

[Link] ("018")
[Link] ("019")

[Link] ("020")

[Link] ("021")

[Link] ("022")

[Link] ("023")

[Link] ("024")

[Link] ("025")

[Link] ("026")

[Link] ("027")

[Link] ("028")

[Link] ("029")

[Link] ("030")

[Link] ("031")

[Link] ("032")

[Link] ("033")

[Link] ("034")

[Link] ("034")

End If

If [Link] = "Buntu Bedimbar" Then

[Link] ("001")

[Link] ("002")

[Link] ("003")

[Link] ("004")

[Link] ("005")

[Link] ("006")

[Link] ("007")
[Link] ("008")

[Link] ("009")

[Link] ("010")

[Link] ("011")

[Link] ("012")

[Link] ("013")

[Link] ("014")

[Link] ("015")

[Link] ("016")

[Link] ("017")

[Link] ("018")

[Link] ("019")

[Link] ("020")

[Link] ("021")

[Link] ("022")

[Link] ("023")

[Link] ("024")

[Link] ("025")

[Link] ("026")

[Link] ("027")

[Link] ("028")

[Link] ("029")

[Link] ("030")

[Link] ("031")

[Link] ("032")

[Link] ("033")

[Link] ("034")
[Link] ("035")

[Link] ("036")

[Link] ("037")

[Link] ("038")

[Link] ("039")

[Link] ("040")

[Link] ("041")

[Link] ("042")

[Link] ("043")

[Link] ("044")

End If

If [Link] = "Dagang Kelambir" Then

[Link] ("001")

[Link] ("002")

[Link] ("003")

[Link] ("004")

[Link] ("005")

[Link] ("006")

[Link] ("007")

[Link] ("008")

[Link] ("009")

[Link] ("010")

[Link] ("011")

End If

If [Link] = "Dagang Kerawan" Then


[Link] ("001")

[Link] ("002")

[Link] ("003")

[Link] ("004")

[Link] ("005")

[Link] ("006")

[Link] ("007")

[Link] ("008")

[Link] ("009")

[Link] ("010")

[Link] ("011")

[Link] ("012")

[Link] ("013")

[Link] ("014")

[Link] ("015")

[Link] ("016")

[Link] ("017")

[Link] ("018")

[Link] ("019")

End If

If [Link] = "Dalu X-A" Then

[Link] ("001")

[Link] ("002")

[Link] ("003")

[Link] ("004")

[Link] ("005")
[Link] ("006")

[Link] ("007")

[Link] ("008")

[Link] ("009")

[Link] ("010")

[Link] ("011")

[Link] ("012")

[Link] ("013")

[Link] ("014")

[Link] ("015")

[Link] ("016")

[Link] ("017")

[Link] ("018")

[Link] ("019")

[Link] ("020")

[Link] ("021")

[Link] ("022")

[Link] ("023")

[Link] ("024")

End If

If [Link] = "Dalu X-B" Then

[Link] ("001")

[Link] ("002")

[Link] ("003")

[Link] ("004")

[Link] ("005")
[Link] ("006")

[Link] ("007")

[Link] ("008")

[Link] ("009")

[Link] ("010")

[Link] ("011")

[Link] ("012")

[Link] ("013")

[Link] ("014")

[Link] ("015")

[Link] ("016")

[Link] ("017")

[Link] ("018")

[Link] ("019")

[Link] ("020")

[Link] ("021")

[Link] ("022")

[Link] ("023")

[Link] ("024")

[Link] ("025")

[Link] ("026")

End If

If [Link] = "Lengau Seprang" Then

[Link] ("001")

[Link] ("002")

[Link] ("003")
[Link] ("004")

[Link] ("005")

[Link] ("006")

[Link] ("007")

[Link] ("008")

[Link] ("009")

[Link] ("010")

[Link] ("011")

[Link] ("012")

[Link] ("013")

[Link] ("014")

[Link] ("015")

[Link] ("016")

[Link] ("017")

End If

If [Link] = "Limau Manis" Then

[Link] ("001")

[Link] ("002")

[Link] ("003")

[Link] ("004")

[Link] ("005")

[Link] ("006")

[Link] ("007")

[Link] ("008")

[Link] ("009")

[Link] ("010")
[Link] ("011")

[Link] ("012")

[Link] ("013")

[Link] ("014")

[Link] ("015")

[Link] ("016")

[Link] ("017")

[Link] ("018")

[Link] ("019")

[Link] ("020")

[Link] ("021")

[Link] ("022")

[Link] ("023")

[Link] ("024")

[Link] ("025")

[Link] ("026")

[Link] ("027")

[Link] ("028")

[Link] ("029")

[Link] ("030")

[Link] ("031")

[Link] ("032")

[Link] ("033")

[Link] ("034")

[Link] ("035")

[Link] ("036")

[Link] ("037")
[Link] ("038")

[Link] ("039")

[Link] ("040")

[Link] ("041")

[Link] ("042")

[Link] ("043")

[Link] ("044")

[Link] ("045")

[Link] ("046")

[Link] ("047")

[Link] ("048")

[Link] ("049")

[Link] ("050")

[Link] ("051")

[Link] ("052")

[Link] ("053")

[Link] ("054")

[Link] ("055")

[Link] ("056")

[Link] ("057")

[Link] ("058")

[Link] ("059")

[Link] ("060")

[Link] ("061")

[Link] ("062")

[Link] ("063")

[Link] ("064")
[Link] ("065")

End If

If [Link] = "Medan Sinembah" Then

[Link] ("001")

[Link] ("002")

[Link] ("003")

[Link] ("004")

[Link] ("005")

[Link] ("006")

[Link] ("007")

[Link] ("008")

[Link] ("009")

[Link] ("010")

[Link] ("011")

[Link] ("012")

[Link] ("013")

[Link] ("014")

[Link] ("015")

[Link] ("016")

[Link] ("017")

[Link] ("018")

[Link] ("019")

[Link] ("020")

[Link] ("021")

[Link] ("022")

[Link] ("023")
[Link] ("024")

[Link] ("025")

[Link] ("026")

[Link] ("027")

[Link] ("028")

[Link] ("029")

[Link] ("030")

[Link] ("031")

[Link] ("032")

[Link] ("033")

[Link] ("034")

[Link] ("035")

[Link] ("036")

[Link] ("037")

[Link] ("038")

[Link] ("039")

End If

If [Link] = "Naga Timbul" Then

[Link] ("001")

[Link] ("002")

[Link] ("003")

[Link] ("004")

[Link] ("005")

[Link] ("006")

[Link] ("007")

[Link] ("008")
[Link] ("009")

[Link] ("010")

[Link] ("011")

[Link] ("012")

[Link] ("013")

[Link] ("014")

End If

If [Link] = "Pekan T Morawa" Then

[Link] ("001")

[Link] ("002")

[Link] ("003")

[Link] ("004")

[Link] ("005")

[Link] ("006")

[Link] ("007")

[Link] ("008")

[Link] ("009")

[Link] ("010")

[Link] ("011")

[Link] ("012")

[Link] ("013")

[Link] ("014")

[Link] ("015")

[Link] ("016")

[Link] ("017")

[Link] ("018")
[Link] ("019")

[Link] ("020")

[Link] ("021")

[Link] ("022")

[Link] ("023")

End If

If [Link] = "Penara Kebun" Then

[Link] ("001")

[Link] ("002")

End If

If [Link] = "Pardamean" Then

[Link] ("001")

[Link] ("002")

[Link] ("003")

[Link] ("004")

[Link] ("005")

[Link] ("006")

[Link] ("007")

[Link] ("008")

[Link] ("009")

[Link] ("010")

[Link] ("011")

[Link] ("012")

[Link] ("013")

[Link] ("014")
[Link] ("015")

End If

If [Link] = "Punden Rejo" Then

[Link] ("001")

[Link] ("002")

[Link] ("003")

[Link] ("004")

[Link] ("005")

[Link] ("006")

[Link] ("007")

[Link] ("008")

End If

If [Link] = "Sei Merah" Then

[Link] ("001")

[Link] ("002")

[Link] ("003")

[Link] ("004")

End If

If [Link] = "Tanjung Baru" Then

[Link] ("001")

[Link] ("002")

[Link] ("003")

[Link] ("004")

[Link] ("005")
[Link] ("006")

[Link] ("007")

[Link] ("008")

[Link] ("009")

[Link] ("010")

[Link] ("011")

[Link] ("012")

[Link] ("013")

[Link] ("014")

[Link] ("015")

[Link] ("016")

[Link] ("017")

[Link] ("018")

[Link] ("019")

[Link] ("020")

[Link] ("021")

[Link] ("022")

[Link] ("023")

[Link] ("024")

[Link] ("025")

[Link] ("026")

[Link] ("027")

[Link] ("028")

End If

If [Link] = "T Morawa A" Then

[Link] ("001")
[Link] ("002")

[Link] ("003")

[Link] ("004")

[Link] ("005")

[Link] ("006")

[Link] ("007")

[Link] ("008")

[Link] ("009")

[Link] ("010")

[Link] ("011")

[Link] ("012")

[Link] ("013")

[Link] ("014")

[Link] ("015")

[Link] ("016")

[Link] ("017")

[Link] ("018")

[Link] ("019")

[Link] ("020")

[Link] ("021")

[Link] ("022")

[Link] ("023")

[Link] ("024")

[Link] ("025")

[Link] ("026")

[Link] ("027")

[Link] ("028")
[Link] ("029")

[Link] ("030")

[Link] ("031")

[Link] ("032")

[Link] ("033")

[Link] ("034")

[Link] ("035")

[Link] ("036")

[Link] ("037")

[Link] ("038")

[Link] ("039")

[Link] ("040")

[Link] ("041")

[Link] ("042")

[Link] ("043")

[Link] ("044")

[Link] ("045")

[Link] ("046")

[Link] ("047")

[Link] ("048")

[Link] ("049")

[Link] ("050")

[Link] ("051")

[Link] ("052")

[Link] ("053")

[Link] ("054")

[Link] ("055")
[Link] ("056")

[Link] ("057")

[Link] ("058")

[Link] ("059")

[Link] ("060")

End If

If [Link] = "T Morawa B" Then

[Link] ("001")

[Link] ("002")

[Link] ("003")

[Link] ("004")

[Link] ("005")

[Link] ("006")

[Link] ("007")

[Link] ("008")

[Link] ("009")

[Link] ("010")

[Link] ("011")

[Link] ("012")

[Link] ("013")

[Link] ("014")

[Link] ("015")

[Link] ("016")

[Link] ("017")

[Link] ("018")

[Link] ("019")
[Link] ("020")

[Link] ("021")

[Link] ("022")

[Link] ("023")

[Link] ("024")

[Link] ("025")

[Link] ("026")

[Link] ("027")

[Link] ("028")

[Link] ("029")

[Link] ("030")

[Link] ("031")

[Link] ("032")

[Link] ("033")

[Link] ("034")

[Link] ("035")

[Link] ("036")

[Link] ("037")

[Link] ("038")

[Link] ("039")

[Link] ("040")

[Link] ("041")

[Link] ("042")

[Link] ("043")

[Link] ("044")

[Link] ("045")

[Link] ("046")
[Link] ("047")

End If

If [Link] = "Tanjung Mulia" Then

[Link] ("001")

[Link] ("002")

[Link] ("003")

[Link] ("004")

[Link] ("005")

[Link] ("006")

End If

If [Link] = "Telaga Sari" Then

[Link] ("001")

[Link] ("002")

[Link] ("003")

[Link] ("004")

[Link] ("005")

[Link] ("006")

[Link] ("007")

[Link] ("008")

[Link] ("009")

[Link] ("010")

[Link] ("011")

[Link] ("012")

[Link] ("013")

[Link] ("014")
[Link] ("015")

[Link] ("016")

[Link] ("017")

[Link] ("018")

[Link] ("019")

[Link] ("020")

[Link] ("021")

[Link] ("022")

[Link] ("023")

End If

If [Link] = "Ujung Serdang" Then

[Link] ("001")

[Link] ("002")

[Link] ("003")

[Link] ("004")

[Link] ("005")

[Link] ("006")

[Link] ("007")

[Link] ("008")

[Link] ("009")

[Link] ("010")

[Link] ("011")

[Link] ("012")

[Link] ("013")

[Link] ("014")

[Link] ("015")
[Link] ("016")

End If

If [Link] = "Wonosari" Then

[Link] ("001")

[Link] ("002")

[Link] ("003")

[Link] ("004")

[Link] ("005")

[Link] ("006")

[Link] ("007")

[Link] ("008")

[Link] ("009")

[Link] ("010")

[Link] ("011")

[Link] ("012")

[Link] ("013")

[Link] ("014")

[Link] ("015")

[Link] ("016")

[Link] ("017")

[Link] ("018")

[Link] ("019")

[Link] ("020")

[Link] ("021")

[Link] ("022")

[Link] ("023")
[Link] ("024")

[Link] ("025")

[Link] ("026")

[Link] ("027")

[Link] ("028")

[Link] ("029")

[Link] ("030")

[Link] ("031")

[Link] ("032")

[Link] ("033")

[Link] ("034")

[Link] ("035")

[Link] ("036")

[Link] ("037")

End If

If [Link] = "Aek Pancur" Then

[Link] ("001")

[Link] ("002")

End If

End Sub

You might also like