|
| Форумы/
Сообщений: всего:53643, сегодня:0, за неделю:31, за месяц:46, за год:1617
|
|
Использование СУБД Ms Access, программирование на VB, VBA
Данный форум посвящен различным вопросам создания приложений баз данных на платформах - Microsoft Access, Microsoft Visual Basic.
|
|
|
|
Эта тема располагается на нескольких страницах: « 1 [2] 3 » все
|
|
Re:Вычисляемое поле Ol_Bak
Да, должны заносится в таблицу.
Зачем хранить в таблицах то, что можно посчитать? Плохо это. |
| 04.02.2010 11:41 |
|
|
Все сделал, можно пойти следующим путем, все сделал в коде.
Обработка на значение нулевого поля есть, если запись первая, то вопрос ошибки так же решается при помощи on error resume next- то есть курсор переходит на следующую запись и считает разницу второго и первого значения, то есть уворачивается от нулевого значения записи EOF.
Private Sub Кнопка18_Click()
On Error Resume Next
Dim A As Integer
Dim B As Integer
If IsNull(Me.значение) = True Then
MsgBox "Значение поля нулевое, заполните внесите необходимое значение," & _
"чтобы поле не оставалось нулевым, скорее всего вы находитесь на последней незаполненной записи"
Exit Sub
Else
DoCmd.GoToRecord , , acPrevious
A = Me.значение
DoCmd.GoToRecord , , acNext
B = (Me.значение - A)
Me.разница = B
Me.разница.Requery
End If
End Sub
Образец прилагаю,кушать подано!
|
| 04.02.2010 15:11 |
|
|
| Subj |
| Присоединенный файл:образец.rar (Размер: 24665 байт, Скачиваний:18) |
| 04.02.2010 15:13 |
|
|
Не знаю почему, но когда открываю форму образца в режиме конструктора, выкидывает ошибку
"Microsoft Office ACCESS обнаружил ошибку, Приложение бедет закрыто и т.д и т.п......" |
| 04.02.2010 19:00 |
|
|
| Попробуйте еще,у меня стоит офис 2010, может были библиотеки,которых нет у вас. Сбросил еще раз. |
| Присоединенный файл:Опыты.rar (Размер: 24524 байт, Скачиваний:14) |
| 04.02.2010 19:14 |
|
|
| Ситуация аналогичная, у меня ACCESS 2003 |
| 04.02.2010 19:29 |
|
|
| Сохранил в формате 2000, пробуйте. |
| Присоединенный файл:Опыты1.rar (Размер: 20800 байт, Скачиваний:19) |
| 04.02.2010 20:04 |
|
|
| Какая то фигня получается, так все работает, но когда хочу сделать форму подчиненной - вставляю поле, выкидывает туже ошибку |
| 05.02.2010 16:05 |
|
|
| ну я не смогу сказать почему у тебя в твой родной базе не работает код)) Смотри выше на процедуру и пиши по образу ее. Перешли мне свою БД, опиши в какой форме надо написать,помогу чем смогу. |
| 05.02.2010 16:57 |
|
|
от образец с подчиненной табличной формой:
Private Sub Кнопка2_Click()
On Error Resume Next
Dim A As Integer
Dim B As Integer
Me.подчиненная_форма_Таблица1.SetFocus
If IsNull(Me.подчиненная_форма_Таблица1.Form.значение) = True Then
MsgBox "Значение поля нулевое, заполните внесите необходимое значение," & _
"чтобы поле не оставалось нулевым, скорее всего вы находитесь на последней незаполненной записи"
Exit Sub
Else
DoCmd.GoToRecord , , acPrevious
A = Me.подчиненная_форма_Таблица1.Form.значение
DoCmd.GoToRecord , , acNext
B = (Me.подчиненная_форма_Таблица1.Form![значение] - A)
Me.подчиненная_форма_Таблица1![разница] = B
Me.подчиненная_форма_Таблица1![разница].Requery
End If
End Sub
Образец БД с подчиненной также приложил |
| 08.02.2010 16:16 |
Эта тема располагается на нескольких страницах: « 1 [2] 3 » все
|