Vsem privet i izvenaus za latinizy
ADP -XP
Private Sub Report_Open(Cancel As Integer)
Dim strP1 As String
Dim strP2 As String

Select Case FlagOpenRepSoker
Case 1
strP1 = " @accountMin nvarchar(8)=" & Trim(Forms!F_Buildings!short) & ", @accountMax nvarchar(8)=" & Trim(Forms!F_Buildings!short)
Me.InputParameters = strP1
Case 2
strP1 = InputBox("äçì îçùáåï ( 8 ñôøåú ) ", "ôøîèøéí ìãåç", , 2400, 2400)
strP2 = InputBox("òã çùáåï ( 8 ñôøåú ) ", "ôøîèøéí ìãåç", , 2500, 2500)
Me.InputParameters = " @accountMin nvarchar(8)=" & strP1 & ", @accountMax nvarchar(8)=" & strP2
End Select
Me.RecordSource = "sp_RepSoker"

End Sub

vse ravno trebuet vvesti parametri
a shto ne pravelno?
zaranee blagodarna

spasibo vam rebatki, tak yze probovala
vse ravno trebuet vvesti parametri

esli v svoistvax otcheta pishu daze tak:

@accountMin nvarchar(8)= Trim(Forms!F_Buildings!short), @accountMax nvarchar(8)= Trim(Forms!F_Buildings!short)
to vse prekrasno otrabativaet

a iz koda trebuet vvesti parametri