Как передать данные в отчет?

Private Sub otchet_tsem_Click()


Dim stDocName, aaa As String

aaa = "[GroopCode] = " & Me.group_cb And "[semestr_id]=" & Me.semestr_sb
stDocName = "test"
DoCmd.OpenReport stDocName, acPreview, , aaa

ругается и говорит несоответствие типов!пдскажите плиз срочно надо!

bad_silent

Private Sub otchet_tsem_Click() Dim stDocName, aaa As String aaa = "[GroopCode] = " & Me.group_cb And "[semestr_id]=" & Me.semestr_sb stDocName = "test" DoCmd.OpenReport stDocName, acPreview, , aaa ругается и говорит несоответствие типов!пдскажите плиз срочно надо!

что-то здесь мне странным показалось

Во-первых,

Dim stDocName As String, aaa As String

Во-вторых,

aaa = "[GroopCode] = " & Me.group_cb & " And [semestr_id]=" & Me.semestr_sb

а то Вы операцией And соединяли два стринга (а она предназначена для логического типа).

Благодарю!щас буду пробовать!