VPF::из ВБ в ВБА срочно - Форум программистов

Gannibal

Дата 3.4.2005, 17:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17

привет всем, у меня вот такая проблема появилась короче была задана работа я её написал в ВБ6 пришёл здавать и ахты ухты непдходит говорит что надо было писать в ВБА и мне надо завтра с утра сдать уже этот же проект сделаный в ВБА можете мне помочь вот исходники я в ВБА вобоще нешарю никак попробывать я буду и сам.. помогите плиз.. вот ссылка на прогу

http://servak.wz.cz/sklad.exe

установить надо на диск С:\ там твёрдый путь прописан пороль для админа qwe

--------------------

Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!

Gannibal

Дата 4.4.2005, 06:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17

Код


Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\db\db.mdb"
Dim Db As Database
Dim Rst As Recordset
Dim RstSklad As Recordset
Dim Cena As Double
Dim CenaCelkem As Double
Set Db = OpenDatabase(App.Path & "\db\db.mdb")
Set Rst = Db.OpenRecordset("select * from Sklad")
lblTiskInv.Caption = "Stav skladu ke dni : " & Date & " hodinм : " & Time
On Error GoTo Chyba
Rst.MoveFirst
Zacatek:
Cena = Rst.Fields("zustatek") * Rst.Fields("cena")
CenaCelkem = Cena + CenaCelkem
lblTiskInv.Caption = lblTiskInv.Caption & Chr(10) & Rst.Fields("ID") & " - " & Rst.Fields("zustatek") & " - " & Cena & " Kи"
Rst.MoveNext
GoTo Zacatek
Chyba:
lblTiskInv.Caption = lblTiskInv.Caption & Chr(10) & Chr(10) & "Celkem ve skladu v korunбch : " & CenaCelkem & " Kи"
frmPrintInv.PrintForm
MsgBox "Dokument byl vytisten", vbInformation
End Sub

почему ошибка type mismatch 13

Это сообщение отредактировал(а) M.E.G.U.S - 4.4.2005, 16:07

--------------------

Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!

Akina

Дата 4.4.2005, 08:33 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(M @ 4.4.2005, 07:52)

почему ошибка type mismatch 13

В каком месте, позволь полюбопытствовать? А вообще референсы надо грамотно переносить.

Да, кстати, для незнающих - в форуме есть тег CODE.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Gannibal

Дата 4.4.2005, 16:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17

Цитата

Цитата (M.E.G.U.S @ 4.4.2005, 07:52)
почему ошибка type mismatch 13

Код


Set Rst = Db.OpenRecordset("select * from Sklad")

--------------------

Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!

Exception

Дата 4.4.2005, 16:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 7
Всего: 186

Если в коде возникают ошибки, то: убери все On Error!, иначе не узнаешь, на какой она строке!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »