Вставка записей в таблицу Access через VB6

Узнай цену своей работы

Формулировка задачи:

Всем добрый день! Уважаемые, нужна ваша помощь. Возникла такая проблема. В разработке для ввода данных в таблицу использую инструкцию INSERT INTO
Так вот, если например, txtVesZa1.Text или txtKolVvoda.Text пустое, то выходит ошибка: Run-time error '13': Type mismatch. Уважаемые, как сделать так, чтобы инструкция работала даже при том, что txtVesZa1.Text или txtKolVvoda.Text может быть пустым ? Всем спасибо за отклик

Решение задачи: «Вставка записей в таблицу Access через VB6»

textual
Листинг программы
Public Function zamena(r)
    Dim s
    s = Format(0, ".")
    If s = "." Then zamena = Replace(r, ",", s) Else zamena = Replace(r, ".", s)
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.091 из 5