Re: Outlook Formular

Hallo Helmut,

mein script sieht jetzt so aus und
..... and IT not works!

--------------------------------
Dim myInspector
Dim myPage
Dim cmbAfl
Dim blnDidInit

Sub Item_Open()
on error resume next
blnDidInit = False

Set myinspector = Item.GetInspector
Set myPage = myInspector.ModifiedFormPages("FKS")
Set cmbAfL = myPage.Controls("cmbAfl")
with cmbAfl
.Additem = "Aurich"
.Additem = "Bremen"
end with
Set myPage = Nothing
Set myInspector = Nothing
blnDidInit = True
End Sub


Sub cmbAfL_Click()
on error resume next
If blnDidInit Then
Item.UserProperties("Afl") = cmbAfl.Text
End If
End Sub
--------------------------------
muss ich noch in den Eigenschaften der cmbBox ausser
Namen (cmbAfL) etwas ändern um es zum Laufen zu bringen??

Gruß
Wolfgang



>-----Originalnachricht-----
>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: MessageClass Ändern
    ... Private Sub Application_Startup ... > Dim myOlApp As Outlook.Application ... > Die "set ns" Zeile muss raus ... > End Sub ...
    (microsoft.public.de.outlook)
  • Re: Wasserzeichen mit Word-Art
    ... Sub Vorschlag1() ... Dim hdr As Word.HeaderFooter ... Set doc = ActiveDocument ... With shp ...
    (microsoft.public.de.word.vba)
  • Re: Outlook Formular
    ... Dim myInspector ... Dim blnDidInit ... Sub Item_Open ... Set cmbAfL = myPage.Controls ...
    (microsoft.public.de.outlook)
  • Re: MessageClass Ändern
    ... Sub ClassChanger() ... Dim obj As Object ... Set myItem = GetCurrentItem ... End Select ...
    (microsoft.public.de.outlook)
  • Update Probleme bei ADO Recordsets
    ... Auf einem ungebundenem Form mit eigener Navigation wird bei dem Wechsel ... Dim conString As String ... If Not con Is Nothing Then Exit Sub ... Set con = New ADODB.Connection ...
    (microsoft.public.de.access.clientserver)
Loading