Ja schon, aber das Kontrollfeld ist belegt und das Makro einige Jahre lief. Ich erweitere mal die Einsicht:
Code: Alles auswählen
MyCtrl=MyDlg.getControl("Startzeit")
Dim ErgZeit as String
ErgZeit=Hour(TimeValue(Time))
Stunden=Hour(TimeValue(Time))
if Stunden < 10 then
ErgZeit = "0" & ErgZeit
End if
Minuten= Minute(TimeValue(Time))
Min= Minute(TimeValue(Time))
if Min < 10 then
Minuten= "0" & Minuten
End if
ErgZeit=ErgZeit & Minuten & "0000"
dim iZeit as long
MyCtrl.time=ErgZeit
MyCtrl=MyDlg.getControl("DatumStart")
MyCtrl.Date=CDateToIso(DateValue(Now))
MyCtrl=MyDlg.getControl("DatumEnde")
MyCtrl.Date=CDateToIso(DateValue(Now))
End Sub
Der Zugriff auf das Kontrollfeld in einer Pause ist möglich. Aber es gelingt mir noch nicht einmal das Auslesen.
Wenn ich
eingebe bekomme ich
BASIC-Laufzeitfehler.
Falscher Wert für Eigenschaft.
. Wenn ich es als Object versuche, bekomme ich zwar Zugriff, aber wenn ich versuche zu schreiben
gibt es wieder nur einen Fehler
BASIC-Laufzeitfehler.
Objektvariable nicht belegt.
Mir fällt da nichts zu ein. Ich werde jetzt mal einen neuen Dialog erstellen und versuchen, ob ich darauf Zugriff habe...
Trotzdem Danke!
Ja schon, aber das Kontrollfeld ist belegt und das Makro einige Jahre lief. Ich erweitere mal die Einsicht:
[code] MyCtrl=MyDlg.getControl("Startzeit")
Dim ErgZeit as String
ErgZeit=Hour(TimeValue(Time))
Stunden=Hour(TimeValue(Time))
if Stunden < 10 then
ErgZeit = "0" & ErgZeit
End if
Minuten= Minute(TimeValue(Time))
Min= Minute(TimeValue(Time))
if Min < 10 then
Minuten= "0" & Minuten
End if
ErgZeit=ErgZeit & Minuten & "0000"
dim iZeit as long
MyCtrl.time=ErgZeit
MyCtrl=MyDlg.getControl("DatumStart")
MyCtrl.Date=CDateToIso(DateValue(Now))
MyCtrl=MyDlg.getControl("DatumEnde")
MyCtrl.Date=CDateToIso(DateValue(Now))
End Sub[/code]
Der Zugriff auf das Kontrollfeld in einer Pause ist möglich. Aber es gelingt mir noch nicht einmal das Auslesen.
Wenn ich [code]Zeit& =MyDlg.getControl("Startzeit").time[/code] eingebe bekomme ich [quote]BASIC-Laufzeitfehler.
Falscher Wert für Eigenschaft.[/quote]. Wenn ich es als Object versuche, bekomme ich zwar Zugriff, aber wenn ich versuche zu schreiben [code] MyDlg.getControl("Startzeit").time = "12000000"[/code] gibt es wieder nur einen Fehler [quote]BASIC-Laufzeitfehler.
Objektvariable nicht belegt.[/quote]
Mir fällt da nichts zu ein. Ich werde jetzt mal einen neuen Dialog erstellen und versuchen, ob ich darauf Zugriff habe...
Trotzdem Danke!