ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] access ¬d¸ß¿z¿ï«Ø¥ß¼ÐÅÒ

[µo°Ý] access ¬d¸ß¿z¿ï«Ø¥ß¼ÐÅÒ

³Ìªñ·Q¥ÎACCESS«Ø¥ß¼ÐÅÒ¹J¨ì°ÝÃD¤F¡A
§Ú¦³¸ê®ÆªíÄæ¦ì"¤ÀÃþ"¤Î"¿ï¨ú"¡A¤ÀÃþ¬O¤U©Ô¿ï³æ¡A"¿ï¨ú"¬O®Ö¨ú¤è¶ô
¨C¦¸³£¦b¸ê®Æªí"¤ÀÃþ"¤Î"¿ï¨ú"(Åã¥Ü®Ö¨ú¤è¶ô¦³¤Ä¿ïªº)¨q¥X¿z¿ïªº¸ê®Æ«á¡A´N¥h¥Î¼ÐÅÒ¡A
¥u¬O¼ÐÅÒ¥u¦³¨Ì¤ÀÃþ¿z¿ï¡A¨S¦³¦A¿z¦³¤Ä¿ïªº¡A
¦Ó¥B¡A°²¦p"¤ÀÃþ"¤Î"¿ï¨ú"ªº¿z¿ï¸ê®Æ¤£¤@¼Ë¡A¤S­n¥h­«·s°µ¼ÐÅÒ¡A
¼ÐÅÒ­n¦p¦ó¯à¦Û°Ê¦P¨B¸ê®Æªí¿z¿ïªº¸ê®Æ©O?
³oÃä¤W¶Ç°Ñ¦Òªþ¥ó¡A½Ð±M®aÀ°¦£!ÁÂÁÂ
DB2.rar (17.4 KB)

»®µ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µ{¦¡½X­n¨Ó¨Ï¥Î¡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¤~¯àÅܦ¨§Ú·Q­nªº¡A§Æ±æ¤w¸gª¾¹Dªº°ª¤â¶¶¤â¸Ñµª¤@¤U¡C

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD