Hej.

Jag har ett MDI formulär med en Toolbar med en fram och en bak knapp.
Nu vill jag att när child formulär 1 är framme så ska man kunna bläddra fram och bak i en kalender på det formuläret, och när child formulär 2 är framme så ska man kunna bläddra fram och bak i en kalender på det formuläret

Jag har kört fast........dags för en paus kanske........

Min kod:

Private Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error Resume Next
Select Case Button.Key
Case "New"
KillAll
frmSkapaNytt.Show
Case "Open"
KillAll
frmShowOld.Show
Case "BOOK01A"
KillAll
frmNYDag.Show
Case "Back"
If frmNYDag.Visible = True Then
Dagbok_Datum_Bak
Else
Projekt_Datum_Bak
End If
Case "Forward"
If frmNYDag.Visible = True Then
Dagbok_Datum_Fram
Else
Projekt_Datum_fram
End If
Case "NOTE09"
'ToDo: Add 'NOTE09' button code.
MsgBox "Add 'NOTE09' button code."
Case "Delete"
'ToDo: Add 'Delete' button code.
MsgBox "Add 'Delete' button code."
Case "Properties"
KillAll
frmSettings.Show
End Select

End Sub

Private Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error Resume Next
Select Case Button.Key
Case "New"
KillAll
frmSkapaNytt.Show
Case "Open"
KillAll
frmShowOld.Show
Case "BOOK01A"
KillAll
frmNYDag.Show
Case "Back"
If ActiveForm Is Nothing Then
Beep
ElseIf TypeOf ActiveForm Is frmNYDag Then
Dagbok_Datum_Bak
ElseIf TypeOf ActiveForm Is frmNYProjekt Then
Projekt_Datum_Bak
End If
Case "Forward"
If ActiveForm Is Nothing Then
Beep
ElseIf TypeOf ActiveForm Is frmNYDag Then
Dagbok_Datum_Fram
ElseIf TypeOf ActiveForm Is frmNYProjekt Then
Projekt_Datum_fram
End If
Case "NOTE09"
'ToDo: Add 'NOTE09' button code.
MsgBox "Add 'NOTE09' button code."
Case "Delete"
'ToDo: Add 'Delete' button code.
MsgBox "Add 'Delete' button code."
Case "Properties"
KillAll
frmSettings.Show
End Select
End Sub

Tackar, men det här med att deklarera......verkar som TypeOf ActiveForm behöver en deklaration av något slag, har du lust att hjälpa mej?

/Tomas

Antog ju att Projekt formuläret heter frmNYProjekt. Testa att ändra det till des Verkliga namn:

If ActiveForm Is Nothing Then
Beep
ElseIf TypeOf ActiveForm Is frmNYDag Then
Dagbok_Datum_Fram
ElseIf TypeOf ActiveForm Is <<<Projekt formulär>>> Then
Projekt_Datum_fram
End If

Tack igen, jag ska springa iväg å skaffa nya glasögon tror jag.
Projekt formuläret heter frmProjekt, så det funkar nu.

/Tomas