Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
kozakov
0 / 0 / 0
Регистрация: 10.05.2010
Сообщений: 67
1

Если открываю форму (Form1.Show 1) в exe-шнике, то выдаётся ошибка

12.05.2010, 22:01. Просмотров 549. Ответов 2
Метки нет (Все метки)

Встретился с такой проблемой:
Если открываю форму (Form1.Show 1) в exe-шнике, то выдаётся ошибка (по-мойму 9 RunTime Error, но могу ошибаться). Если открываю в VB (на плей нажимаю) всё работает так как должно. На форму я передаю текст из mdb файла
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.05.2010, 22:01
Ответы с готовыми решениями:

ActiveX Control: Form1.Show bvModal if(Form1.Text1.Text <> '') then UserControl.Text2.Text = Form1.Text1.Text
Имеется проект ActiveX Control, в нем: Form1(имеет Text1, Button1),...

как сделать ЕСЛИ тру, ТО form1.hide AND form2.show ELSE showmessage
Сделал так if (edit1.Text=a) and (edit2.Text=s) then form1.hide and...

Ошибка когда открываю форму
запускаем программу Нажимаем данные потом добавление и вылетает такое чудо...

Запуск формы Form1 f1 = new Form1(); f1.Show();
Создал форму, но какой код необходимо добавить чтоб она сама ...

Form1 := TForm1.Create(..); Form1.Show;
Доброе время суток. Хочу написать приложение с интерфейсом MDI. Естественно,...

2
Comanche
13.05.2010, 12:21 2
Ты ещё долго будешь ждать ответа с такой формулировкой проблемы.
Код в студию!
Больше деталей!

Мы не телепаты.
kozakov
0 / 0 / 0
Регистрация: 10.05.2010
Сообщений: 67
13.05.2010, 23:15  [ТС] 3
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim bool As Boolean
bool = False
rec.MoveFirst
Do While (Not rec.EOF) And (bool = False)
   If rec.Fields('[ГЌГ*çâГ*Г*ГЁГҐ ïðîäóêòГ*]').Value = TDBGrid1.Columns(1).Value Then
        bool = True
   End If
   rec.MoveNext
Loop
rec.MovePrevious
If bool = True Then
    info.Text1.Text = rec.Fields('[ГЌГ*çâГ*Г*ГЁГҐ ïðîäóêòГ*]').Value
    info.Text2.Text = rec.Fields('Àðòèêóë').Value
    info.Text3.Text = rec.Fields('Êîëè÷åñòâî').Value
    info.Text4.Text = rec.Fields('ÈçìåðåГ*ГЁГҐ').Value
    info.Text5.Text = rec.Fields('Г–ГҐГ*Г*').Value
    If rec.Fields('Г„Г*ГІГ*').Value <> '' Then
        info.Text6.Text = rec.Fields('Г„Г*ГІГ*').Value
    End If
    info.Text7.Text = rec.Fields('Г’ГЁГЇ').Value
    If rec.Fields('Ïðèìå÷Г*Г*ГЁГҐ').Value <> '' Then
        info.RichTextBox1.Text = rec.Fields('Ïðèìå÷Г*Г*ГЁГҐ').Value
    End If
    info.Show 1
End If
info - название формы
rec описана как Public rec As Recordset
work описана как Public work As Database
При открытии формы (главной из которой я потом вызываю info):
Visual Basic
1
2
Set work = OpenDatabase(way) 'way - путь к файлу .mdb 
Set rec = work.OpenRecordset('ÑêëГ*Г¤')
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.05.2010, 23:15

Как поменять ip-адрес в скомпилированном .exe-шнике
Проблема в том что у меня есть програмка написаная кАнторой которой уже не...

Оставлять в exe-шнике нужные данные для последующих вызывов
Есть ли вообще такая возможность? Например, программа при первом вызове...

Открываю текст в мемо, затем открываю другой, но первый остается, как удалить?
Нужно, чтобы при открытии текста в мемо, предыдущий текст удалялся и открывался...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru