Cannot compile due to Method or Data member not found

[Mark C via AccessMonster.com]

Can anyone please tell me why this will not compile?

Private Sub howpaid_Change()
If [howpaid] = "Twice a Month" Then
[Day1].RowSource =
"'1';'2';'3';'4';'5';'6';'7';'8';'9';'10';'11';'12';'13';'14';'15';'16';'17';'18';'19';'20';'21';'22';'23';'24';'25';'26';'27';'28';'29';'30';'31'"
[Day1].Width = 650
[day2].TabStop = True
[day2].Visible = True
[Day1] = ""
[day2] = ""

End If

If [howpaid] = "Once a Week" Then
[Day1].RowSource =
"'Monday';'Tuesday';'Wednesday';'Thursday';'Friday';'Saturday';'Sunday'"
[Day1].Width = 1275
[day2].TabStop = False
[day2].Visible = False
[Day1] = ""
[day2] = ""

End If

If [howpaid] = "Every Other Week" Then
[Day1].RowSource =
"'Monday';'Tuesday';'Wednesday';'Thursday';'Friday';'Saturday';'Sunday'"
[Day1].Width = 1275
[day2].TabStop = False
[day2].Visible = False
[Day1] = ""
[day2] = ""
End If

If [howpaid] = "Once A Month" Then
[Day1].RowSource =
"'1';'2';'3';'4';'5';'6';'7';'8';'9';'10';'11';'12';'13';'14';'15';'16';'17';'18';'19';'20';'21';'22';'23';'24';'25';'26';'27';'28';'29';'30';'31'"
[Day1].Width = 1275
[day2].TabStop = False
[day2].Visible = False
[Day1] = ""
[day2] = ""
End If

End Sub

 

[Mark C via AccessMonster.com]

nevermind found my own answer...

Me![Day1].rowsource= Bla bla

Can anyone please tell me why this will not compile?

Private Sub howpaid_Change()
If [howpaid] = "Twice a Month" Then
[Day1].RowSource =
"'1';'2';'3';'4';'5';'6';'7';'8';'9';'10';'11';'12';'13';'14';'15';'16';'17';'18';'19';'20';'21';'22';'23';'24';'25';'26';'27';'28';'29';'30';'31'"
[Day1].Width = 650
[day2].TabStop = True
[day2].Visible = True
[Day1] = ""
[day2] = ""

End If

If [howpaid] = "Once a Week" Then
[Day1].RowSource =
"'Monday';'Tuesday';'Wednesday';'Thursday';'Friday';'Saturday';'Sunday'"
[Day1].Width = 1275
[day2].TabStop = False
[day2].Visible = False
[Day1] = ""
[day2] = ""

End If

If [howpaid] = "Every Other Week" Then
[Day1].RowSource =
"'Monday';'Tuesday';'Wednesday';'Thursday';'Friday';'Saturday';'Sunday'"
[Day1].Width = 1275
[day2].TabStop = False
[day2].Visible = False
[Day1] = ""
[day2] = ""
End If

If [howpaid] = "Once A Month" Then
[Day1].RowSource =
"'1';'2';'3';'4';'5';'6';'7';'8';'9';'10';'11';'12';'13';'14';'15';'16';'17';'18';'19';'20';'21';'22';'23';'24';'25';'26';'27';'28';'29';'30';'31'"
[Day1].Width = 1275
[day2].TabStop = False
[day2].Visible = False
[Day1] = ""
[day2] = ""
End If

End Sub

 

[Dirk Goldgar]

Can anyone please tell me why this will not compile?

Private Sub howpaid_Change()
If [howpaid] = "Twice a Month" Then
[Day1].RowSource =
"'1';'2';'3';'4';'5';'6';'7';'8';'9';'10';'11';'12';'13';'14';'15';'16';
'17';'18';'19';'20';'21';'22';'23';'24';'25';'26';'27';'28';'29';'30';'3
1'"
[Day1].Width = 650
[day2].TabStop = True
[day2].Visible = True
[Day1] = ""
[day2] = ""

End If

If [howpaid] = "Once a Week" Then
[Day1].RowSource =
"'Monday';'Tuesday';'Wednesday';'Thursday';'Friday';'Saturday';'Sunday'"
[Day1].Width = 1275
[day2].TabStop = False
[day2].Visible = False
[Day1] = ""
[day2] = ""

End If

If [howpaid] = "Every Other Week" Then
[Day1].RowSource =
"'Monday';'Tuesday';'Wednesday';'Thursday';'Friday';'Saturday';'Sunday'"
[Day1].Width = 1275
[day2].TabStop = False
[day2].Visible = False
[Day1] = ""
[day2] = ""
End If

If [howpaid] = "Once A Month" Then
[Day1].RowSource =
"'1';'2';'3';'4';'5';'6';'7';'8';'9';'10';'11';'12';'13';'14';'15';'16';
'17';'18';'19';'20';'21';'22';'23';'24';'25';'26';'27';'28';'29';'30';'3
1'"
[Day1].Width = 1275
[day2].TabStop = False
[day2].Visible = False
[Day1] = ""
[day2] = ""
End If

End Sub

What types of controls are [howpaid], [Day1], and [day2]? Are you sure
those names are correct? What line is highlighted as causing the error?