|
Привет!
Сразу прошу прощения за столь дебильный топик ))) Просто проблема такая, что топик с ней придумать сложновато!
Проблемка такая: Имеется 2 поля, 1 поле - "Приход" (числовое); 2 поле - "Расход" (числовое)! В поле РАСХОД вносится некое число, которое вычитается из поля ПРИХОД! И тут должно выполняться 2 условия: 1 - если было введено в поле РАСХОД число, больше чем есть число в поле ПРИХОД, то выводиться сообщение, что мол число больше требуемого и предлагается оставить введённое число, либо оставить максимальное исходя из поля ПРИХОД! 2 - Если в поле РАСХОД введено не правельное число, то нужно, чтоб в поле ПРИХОД вернулось предыдущее значение и можно было ввести число заново в поле РАСХОД!
Для болей ясности впишу свой скромный код!
Private Sub Расход_AfterUpdate() Dim s, v, a, c As Integer
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Áûëî âçÿòî áîëüøå, ÷åì çàðåçåðâèðîâàíî! Ïîòâåðäèòü?"
Style = vbYesNo + vbQuestion + vbDefaultButton2
Title = "Âíèìàíèå!"
Help = "DEMO.HLP"
Ctxt = 1000 s = Me![Приход]
v = Me![Расход]
If v > s Then
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then
Me![Приход] = Me![Приход] - Me![Расход]
Else
Me![Расход] = s
Me![Приход] = Me![Приход] - Me![Расход]
End If
End If
End Sub В этой части кода должно осуществляться возврат исходного числа Private Sub Расход_Change()
If Me![Расход] <> "" Then
Me![Приход] = Me![Приход] + Me![Расход]
End If
End Sub Казалось бы всё так, как нужно, но не работает!
Если кто понял мою проблему, то очень прошу помочь!
Заранее спасибо!
Ответить
|
Aleksey | ICQ: 172703530 
Millenium
