Вопрос : ошибка синтаксиса внутри ОТ клаузулы

Приватное
Text1.Text =
End Sub

Private Sub Calendar2_Click ()
подводной лодки Command1_Click/>Text2.Text = Calendar2.Value
End Sub

приватное () Adodc1.RecordSource = «ОТБОРНОЕ qryVAT.InvoiceNo, qryVAT.SumOfAmount, qryVAT.exVAT, [exVAT] *0.12 КАК VAT, qryVAT.DateDelivered от qryVAT ГДЕ [(((qryVAT.DateDelivered) между #» & Text1.Text & «# и #» & Text2.Text & «#)); «

установленное

звонока Command2_Click
DataGrid1.DataSource = Adodc1
установленное rptVAT.DataSource = Adodc1
с
rptVAT
. Разделы («section1»). Controls. Деталь ( " text1»). DataField =
«InvoiceNo ". Разделы («section1»). Controls. Деталь ( " text2»). DataField =
«SumofAmount ". Разделы («section1»). Controls. Деталь ( " text3»). DataField =
«exVAT ". Разделы («section1»). Controls. Деталь ( " text4»). DataField =



«VAT ". Разделы («section5»). Controls. Деталь ( " function1").DataField =
«SumofAmount ". Разделы («section5»). Controls. Деталь ( " function2").DataField =
«exVAT ". Разделы («section5»). Controls. Деталь ( " function3").DataField =

Adodc1.Refresh
End Sub

Private Sub Form_Load



Private Sub Command2_Click
End Sub

rptVAT.Show
With
конца

«VAT " () ()/>Adodc1.ConnectionString = «Provider=Microsoft.Jet.OLEDB.4.0; se \ dbInvent.mdb Data Source= D:\ROAInvent\databa; Обеспеченностью Info=False "
ist/>Adodc1.CursorLocation = adUseClient

Text1.Text = Date
Text2.Text = Date


text4.AddItem «для "
adoDepartment.Recordset.MoveNext
Wend

End Sub




here
adoDepartment.Recordset.MoveFirst
While не adoDepartment.Recordset.EOF
Text3.AddItem adoDepartment.Recordset.Fields
text4.AddItem «утверждения выданного " 0) (будет ошибка error



runtime '- 2147217900 ошибка
syntax внутри ОТ clause class=

Ответ : ошибка синтаксиса внутри ОТ клаузулы

Ваш где клаузула имеет a [в ем. Насколько я могу увидеть это не должно быть там.

отношения
Marco