ник: ars_bs
вот придумал еще работает гараздо быстрей ка вы думаете, только вот как программно отключить подтверждение изменения поля, знаю что гдето есть а где немогу найти подскажите плиз
Dim sq1 As String
Dim sq2 As String
sq1 = "update raschet set itog=chas*cena*kty where (((raschet.period)=[Forms]![forma1]![period]![period]))and (((raschet.kod_vid_rab) =1)) "
sq2 = "update raschet set itog =kol*cena where (((raschet.period)=[Forms]![forma1]![period]![period]))and (((raschet.kod_vid_rab) =2)) "
DoCmd.RunSQL sq1
DoCmd.RunSQL sq2
Forms![forma1]![ïîä÷èíåííàÿ ôîðìà raschet].Requery