Beste Forum leden,
Ik ben met een database bezig, en hier wil ik een Kalender in hebben.
Ik heb van iemand gegevens gekregen, dit werkt bij die database wel.
Maar bij mij niet.
Ik heb onderstaande gegevens van hem gekregen.
Public Sub CalenderInit()
Set Calender = Forms![Kalender]
Set CalenderKop = Calender!Maand_Jaar
Set Dag(1) = Calender!Cel_1
Set Dag(2) = Calender!Cel_2
Set Dag(3) = Calender!Cel_3
Set Dag(4) = Calender!Cel_4
Set Dag(5) = Calender!Cel_5
Set Dag(6) = Calender!Cel_6
Set Dag(7) = Calender!Cel_7
Set Dag(8) = Calender!Cel_8
Set Dag(9) = Calender!Cel_9
Set Dag(10) = Calender!Cel_10
Set Dag(11) = Calender!Cel_11
Set Dag(12) = Calender!Cel_12
Set Dag(13) = Calender!Cel_13
Set Dag(14) = Calender!Cel_14
Set Dag(15) = Calender!Cel_15
Set Dag(16) = Calender!Cel_16
Set Dag(17) = Calender!Cel_17
Set Dag(18) = Calender!Cel_18
Set Dag(19) = Calender!Cel_19
Set Dag(20) = Calender!Cel_20
Set Dag(21) = Calender!Cel_21
Set Dag(22) = Calender!Cel_22
Set Dag(23) = Calender!Cel_23
Set Dag(24) = Calender!Cel_24
Set Dag(25) = Calender!Cel_25
Set Dag(26) = Calender!Cel_26
Set Dag(27) = Calender!Cel_27
Set Dag(28) = Calender!Cel_28
Set Dag(29) = Calender!Cel_29
Set Dag(30) = Calender!Cel_30
Set Dag(31) = Calender!Cel_31
Set Dag(32) = Calender!Cel_32
Set Dag(33) = Calender!Cel_33
Set Dag(34) = Calender!Cel_34
Set Dag(35) = Calender!Cel_35
Set Dag(36) = Calender!Cel_36
Set Dag(37) = Calender!Cel_37
Set Dag(38) = Calender!Cel_38
Set Dag(39) = Calender!Cel_39
Set Dag(40) = Calender!Cel_40
Set Dag(41) = Calender!Cel_41
Set Dag(42) = Calender!Cel_42
Set Week_Var(1) = Calender!Week_1
Set Week_Var(2) = Calender!Week_2
Set Week_Var(3) = Calender!Week_3
Set Week_Var(4) = Calender!Week_4
Set Week_Var(5) = Calender!Week_5
Set Week_Var(6) = Calender!Week_6
End Sub
Maar hij stopt bij Set Dag(1) tijdens Compileren.
Wie kan mij helpen.
Groeten Henk
Ik ben met een database bezig, en hier wil ik een Kalender in hebben.
Ik heb van iemand gegevens gekregen, dit werkt bij die database wel.
Maar bij mij niet.
Ik heb onderstaande gegevens van hem gekregen.
Public Sub CalenderInit()
Set Calender = Forms![Kalender]
Set CalenderKop = Calender!Maand_Jaar
Set Dag(1) = Calender!Cel_1
Set Dag(2) = Calender!Cel_2
Set Dag(3) = Calender!Cel_3
Set Dag(4) = Calender!Cel_4
Set Dag(5) = Calender!Cel_5
Set Dag(6) = Calender!Cel_6
Set Dag(7) = Calender!Cel_7
Set Dag(8) = Calender!Cel_8
Set Dag(9) = Calender!Cel_9
Set Dag(10) = Calender!Cel_10
Set Dag(11) = Calender!Cel_11
Set Dag(12) = Calender!Cel_12
Set Dag(13) = Calender!Cel_13
Set Dag(14) = Calender!Cel_14
Set Dag(15) = Calender!Cel_15
Set Dag(16) = Calender!Cel_16
Set Dag(17) = Calender!Cel_17
Set Dag(18) = Calender!Cel_18
Set Dag(19) = Calender!Cel_19
Set Dag(20) = Calender!Cel_20
Set Dag(21) = Calender!Cel_21
Set Dag(22) = Calender!Cel_22
Set Dag(23) = Calender!Cel_23
Set Dag(24) = Calender!Cel_24
Set Dag(25) = Calender!Cel_25
Set Dag(26) = Calender!Cel_26
Set Dag(27) = Calender!Cel_27
Set Dag(28) = Calender!Cel_28
Set Dag(29) = Calender!Cel_29
Set Dag(30) = Calender!Cel_30
Set Dag(31) = Calender!Cel_31
Set Dag(32) = Calender!Cel_32
Set Dag(33) = Calender!Cel_33
Set Dag(34) = Calender!Cel_34
Set Dag(35) = Calender!Cel_35
Set Dag(36) = Calender!Cel_36
Set Dag(37) = Calender!Cel_37
Set Dag(38) = Calender!Cel_38
Set Dag(39) = Calender!Cel_39
Set Dag(40) = Calender!Cel_40
Set Dag(41) = Calender!Cel_41
Set Dag(42) = Calender!Cel_42
Set Week_Var(1) = Calender!Week_1
Set Week_Var(2) = Calender!Week_2
Set Week_Var(3) = Calender!Week_3
Set Week_Var(4) = Calender!Week_4
Set Week_Var(5) = Calender!Week_5
Set Week_Var(6) = Calender!Week_6
End Sub
Maar hij stopt bij Set Dag(1) tijdens Compileren.
Wie kan mij helpen.
Groeten Henk
