Jump to content
СофтФорум - всё о компьютерах и не только

assei

Newbies
  • Posts

    13
  • Joined

  • Last visited

About assei

assei's Achievements

0

Reputation

  1. Прошу прощение за не точную суть темы! хотелось бы реализовать такой момент на vb6. из ячейки xl,(сама передача не суть) передать в "Лабел" значение и что бы это значение в "Лабеле" при перезагрузки программы оставалось не измененным. т.е записал и все, да же если путь откуда бралось значение изменилось, значение записалось и осталось не измененным! Всем заранее спасибо
  2. решил вопрос так , правда под себя шаманил: If Dir(App.Path & "\arhiv\ОТЧЕТ " & Date & ".xlsx") = vbNullString Then If MsgBox("Вы не создали ОТЧЕТ, данные НЕ будут записанны! Работа с программой продолжится без записи данных в ОТЧЕТ?", _ 64, "СООБЩЕНИЕ!") Then Exit Sub On Error Resume Next
  3. о как сам задал сам и ответил, , буду пробовать, что получится или нет ....
  4. я наверное понял что требуется, поверка на наличие файла , если он есть то одно сообщение , если его нет то другое сообщение , вот наверное как
  5. наверное опишу подробнее, у меня в проекте загружаются одна книга,(копированием листа "отчет" из книги, в моем проекте можно записать данные в одну книгу, и эти данные можно записать и другую книгу которую надо создать т.е. "отчет", но можно и не создавать) и когда вторая "отчет" еще не создана, пользователь в какой то момент должен на вопрос ответить на вопрос "записать данные в отчет"(которого естестевено нет он же не создал) да, нет, и вдруг пользователь нажимает случайно "да" а книга "отчет" не создана, вот тут и происходит ошибка загрузки файла не находит путь (естественно), и программа вся закрывается, вот и хотелось бы избежать этой ошибки и поставить сообщение что "типа отчет не создан и не будет записан" и работать дальше в программе
  6. Вопрос такого толка, думаю правильно объяснюсь: после того как проект скомпилирован, в некоторых местах, при нажатии кнопки продолжить выдает ошибку что не найден путь, и ведь это логично и правильно, так как этот файл не загружался, НО при выходе из окна ошибки закрывается и весь проект, а хотелось бы избежать закрытия проекта и продолжать работать с проектом, что подскажите в данной ситуации? заранее всем благодарен.
  7. http://www.cyberforum.ru/visual-basic/thread1975293.html ЗДЕСЬ МНЕ ОТВЕТИЛИ
  8. Вопрос решен, если понадобится код говорите.
  9. ни чего не получилось я пример выложил посмотрите пожалуйста! Новая папка.rar
  10. Доброго всем вечера! подскажите что не так с кодом?не ищет данные в из столбца "А". Private Sub Command3_Click() 'поиск Dim q As String q = Text1(0).Text If q = "" Then MsgBox ("Уточните критерии поиска!"), vbCritical, ("СООБЩЕНИЕ"): Exit Sub On Error Resume Next Xl.Worksheets("BD").Columns("A:A").Find(What:=q, LookIn:=xlValues, LookAt:=xlPart, LookAt:=xlWhole).Activate If Err Then MsgBox "В списке (" & Text1(0) & ") строки нет!, Попробуйте изменить критерии поиска или его место!", 64, "СООБЩЕНИЕ" Else MsgBox "Искомые данные (" & Text1(0) & ") найдены!", vbInformation, "СООБЩЕНИЕ" End If End Sub
  11. Доброго всем дня господа Форумчане" подскажите как на VB6 открыть файл в фоном режиме из CommonDialog, заранее всем спасибо!
×
×
  • Create New...