Re: Outlook Formular

Hallo Wolfgang,

so einfach geht es leider nicht.
Zuerst musst Du Dir die Referenz auf die ComboBox holen.

Zuerst die Seite, auf der Du die ComboBox plaziert hast, dann die ComboBox.

Und das geht ungefähr so:

Dim myInspector
Dim myPage
Dim cmbAfl
Dim blnDidInit

Sub Item_Open()

on error resume next

blnDidInit = False

Set myinspector = Item.GetInspector

'Hier namen der Formularseite ändern

Set myPage = myInspector.ModifiedFormPages("Meine Seite")

Set cmbThema = myPage.Controls("cmbAfl")

with cmbAfl

..Add.....

Set myPage = Nothing

Set myInspector = Nothing

blnDidInit = True

End Sub

'Und weiter unten....

Sub cmbThema_Click()

on error resume next

If blnDidInit Then

'Zum Beispiel

Item.UserProperties("Afl") = cmbAfl.Text

End If

End Sub


--
Freundliche Grüße / with regards

Helmut Obertanner
Technical Consultant

Softwaredevelopment
DATALOG Software AG | Zschokkestr. 36 | D-80687 Munich
web: www.datalog.de


.... and IT works!

"Wolfgang Diehl" <anonymous@xxxxxxxxxxxxxxxxxxxxxxxxx> schrieb im
Newsbeitrag news:09ff01c53b42$ca7a4c20$a401280a@xxxxxxxxxx
Hallo,

ich habe die CompoBox im Formular (Entwurf) über
die Werkzeugleiste eingefügt und möchte sie jetzt
mit 'Leben' füllen.

Mein script ....
Function Item_Open()
with cmbAfL
..additem = "Aurich"
..additen = "Bremen"
end with
End Function
..... and IT not works!

Gruß
Wolfgang Diehl

>-----Originalnachricht-----
>Du musst das Formulat entwerfen und das Steuerelement
per Drag & Drop auf
>das Formular ziehen.
>
>Wenn Die ComboBox im Menü sein soll geht das nur per
skript im Formular oder
>per AddIn.
>
>Wo möchtest Du die ComboBox denn haben ?
>
>--
>Freundliche Grüße / with regards
>
>Helmut Obertanner
>Technical Consultant
>
>Softwaredevelopment
>DATALOG Software AG | Zschokkestr. 36 | D-80687 Munich
>web: www.datalog.de
>
>
>.... and IT works!
>
>"Wolfgang Diehl" <anonymous@xxxxxxxxxxxxxxxxxxxxxxxxx>
schrieb im
>Newsbeitrag news:1fcb01c539ed$c32177b0
$a401280a@xxxxxxxxxx
>Hallo,
>
>wie binde ich eine ComboBox in ein Formular ein?
>
>Danke für die Hilfe.
>
>Wolfgang Diehl
>
>
>.
>


.

Relevant Pages

  • Re: COMBOBOX, beide Spalten auswQ=A4hlen?=
    ... > Dann kannst du keine manuellen Werte in der ComboBox definieren. ... > Dim rngSpalte1 As Range ... > With ComboBox1 ... > End With ...
    (microsoft.public.de.excel)
  • Re: ComboBox und SQL
    ... die SQL-Daten in die ComboBox reinbringen. ... Dim Cnn As ADODB.Connection ... End With ...
    (microsoft.public.de.word.vba)
  • DataGridView ComboBox Eingabe
    ... Das ComboBox Control funktioniert aber nicht korrekt: ... Dim WithEvents dgv1 As New Windows.Forms.DataGridView ... Dim dtCountries As DataTable ... End With ...
    (microsoft.public.de.german.entwickler.dotnet.vb)
  • Re: COMBOBOX, beide Spalten auswQ=A4hlen?=
    ... Dann kannst du keine manuellen Werte in der ComboBox definieren. ... Private Sub UserForm_Initialize ... Dim rngSpalte1 As Range ... End With ...
    (microsoft.public.de.excel)
  • Range("U" & j).Delete Shift:=xlShiftUp <--- Is not executing
    ... Dim IMDS As Worksheet ... Dim Counti As Integer ... ' Filter Out Duplicate Coating Entries ... ' Fill Coating Type ComboBox ...
    (microsoft.public.excel.programming)
Loading