| |
 39 Кб. |
|
| | нужно чтобы в форме изменяя pkol1 и pkol2, изменялось kol. (kol=kol-pkol1-pkol2) | |
| |
| |
| |
|
|
| | Так поставь, что надо вычислить на событие после обновления AfterUpdate для pkol1 и pkol2. | |
| |
| |
| |
|
|
| | так поставил но ничего не выходит.
Private RST As Recordset
Private StrSQL As String
Private Sub kol_AfterUpdate()
Dim ostatok As Integer
StrSQL = "SELECT DISTINCTROW SELECT DISTINCTROW Таблица1.NP, Sum(Таблица1.PKOL) AS Sum_Выдано, Sum(Таблица1.KOL) AS Sum_Количество, Nz([Sum_Количество])-Nz([Sum_Выдано]) AS Остаток " _
& "FROM Таблица1 " _
& "GROUP BY Таблица1.NP " _
& "HAVING ((Таблица1.NP) = " + Str(Me![np]) + ") ;"
Set RST = CurrentDb.OpenRecordset(StrSQL)
ostatok = RST![Остаток]
RST.Close
End Sub | |
| |
| |
| |
30 Кб. |
|
| | Так ? | |
| |
| |
| |
|
|
| | да то что нужно огромнейшее спасибо  | |
| |
| |
