- ©«¤l
- 2
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 12
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2015-9-28
- ³Ì«áµn¿ý
- 2015-11-1
|
»®µMµo²{¬JµM¦³¤F®Ö¨ú¤è¶ô¥i¥H¥Î¡AÄݩʪí¸Ì±¿z¿ïª½±µÅý®Ö¨ú¤è¶ôµ¥©óTRUE¤£´N¦n¤F¡C
¥u¬O¦³Ó°ÝÃD¡A¦pªG§Ú¦b«Ø¥ß¼ÐÅÒ¤§«e¥ý¿z¿ï§Ú»Ýnªº¡A¥Î®Ö¨ú¤è¶ô¤@Ó¤@ӤĿï¦A¿z¿ï¡A¤@Ó¤@ӤĿï¤ÓºC¤F¦]¦¹¬d¤F¥H¤Uµ{¦¡½Xn¨Ó¨Ï¥Î¡G
Private Sub Command8_Click()
Set m = CurrentDb.OpenRecordset("select * from ¸ê®Æªí1¬d")
If m.RecordCount > 0 Then
m.MoveFirst
Do Until m.EOF
m.Edit
m("¿ï¨ú") = True
m.Update
m.MoveNext
Loop
End If
Me.Requery
End Sub
¥Îªí³æ«Ø¥ß¤F³oÓ«ö¶s¡A«ö¤U¥h¬O¥i¥H¥þ¿ï¡A
¥u¬O¬O¥þ³¡¿ï¨ú¡A§Únªº¬O¿z¿ïªº¨º¨Ç¥þ¿ï´N¦n¡A
¨ì©³n¥Î¤°»ò¦r¼g¤U¥h¤~¯àÅܦ¨§Ú·Qnªº¡A§Æ±æ¤w¸gª¾¹Dªº°ª¤â¶¶¤â¸Ñµª¤@¤U¡C |
|