Архив форумов ЦИТФорума

[Александра]

Привет.
Может кто нибудь знает чего хочет VBA когда пишет ERROR message:
"WEND WITHOUT WHILE"?
Ведь WHILE есть!
А если вообще убираю WEND, то пишет что "WHILE WITHOUT WEND".
Ну зараза!!!

HELP!!!!!!!!!!!

а код такой:

Private Sub Command16_Click()
Dim db As Connection
Dim pardavimai As Recordset

Set db = CurrentProject.Connection
Set pardavimai = New Recordset
pardavimai.Open "pardavimai", db
x = False

While Not pardavimai.EOF
If pardavimai!darb_ak = darb_ak.Text Then
x = True
pardavimai.MoveNext
Wend

If x Then MsgBox "x is true", vbOKOnly, ok, nil, nil
End If

End Sub

[HAND]

Блок If должен заканчиваться оператором End If в самом блоке While/Wend. То есть:

[Александра]

Ogromnoje pasiba!!!

Kazalos bi, erunda, a sama naverniaka ne dogadalas bi!
Tonkosti.