Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > из ВБ в ВБА срочно

Автор: Gannibal 3.4.2005, 17:38

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

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

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

Автор: Gannibal 4.4.2005, 06:52

Код


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

Автор: Akina 4.4.2005, 08:33

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

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

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

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

Автор: Gannibal 4.4.2005, 16:08

Цитата

Цитата (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

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