Re: Outlook Formular

Tschuldigung,

Set cmbThema = myPage.Controls("cmbAfl")

muss natürlich heissen:

Set cmbAfl = myPage.Controls("cmbAfl")

--
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!

"Helmut Obertanner" <obertanner@xxxxxxxxxx> schrieb im Newsbeitrag
news:O5IO8$0OFHA.3668@xxxxxxxxxxxxxxxxxxxxxxx
> 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 füllen
    ... > Set rsKST = New ADODB.Recordset ... > If Not rsKST.EOF Or Not rsKST.BOF Then rsKST.MoveFirst ... > Sub Combo_leeren(cmb As ComboBox) ... > End With ...
    (microsoft.public.de.vb.datenbank)
  • Re: Automatisches Anlegen von Ordnern, Freigaben, Berechtigungen
    ... Public intAnzahlOU, intCountDCs, bOUIsSet ... Sub Window_onLoad ... End Sub ... Set objConnection = CreateObject ...
    (microsoft.public.de.german.windows.server.general)
  • FSO Sicherheitsproblem
    ... Set BinaryStream = CreateObject ... Private Sub Class_Initialize ... End Sub ... Dim nPosBegin, nPosEnd, nPos, vDataBounds, nDataBoundPos ...
    (microsoft.public.de.inetserver.iis)
  • Re: Mitprotkollierung bei verschieben in andere Ordner
    ... > Dim oFld As Outlook.MAPIFolder ... > End Sub ... > Dim objFolder As Outlook.MAPIFolder ... > Set objNS = Application.Session ...
    (microsoft.public.de.outlook)
  • =?iso-8859-1?q?Re:_Feiertag_gel=F6scht....?=
    ... Meine Frage, wie kann ich Feiertage wieder in Outlook eintragen, ohne dass ... End Type ... Set outapp = CreateObject ...
    (microsoft.public.de.outlook)