Sekedar tambahan.
Misalkan tanpa bikin query bisa juga dibuat sbb:
Anggap Item= integer
Private Sub Update_Item_AfterUpdate()
strQuery1="UPDATE Table1 SET Table1.Item = " & [Forms]![Form1]![Update
Item] & _
" WHERE (((Table1.check)=-1) AND ((Table1.Item)=" &
[Forms]![Form1]![Item]))
With DoCmd
.SetWarnings False
.runsql strQuery1
.SetWarnings True
End With
End Sub
No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 9.0.733 / Virus Database: 271.1.1/2715 - Release Date: 03/01/10
02:34:00
