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

[µo°Ý] access ¸ê®Æ¦Û°Ê±a¤J

[µo°Ý] access ¸ê®Æ¦Û°Ê±a¤J

ªí³æ1.png
2011-8-21 22:57


¸ê®Æªí.png
2011-8-21 22:57

¬O§_¯à»¡©ú¬°¦ó³o»ò³]­p,«~¦W¥N½X¤@¯ë³£¬O¥Î¼Æ¦r,¬°¦ó¥Î¤¤¤å

TOP

¦^´_ 5# a810328


¥i¥H¦bªí³æ¤¤³]©w ¸ê®Æ¨Ó·½Ãþ«¬¬°¸ê®Æªí/¬d¸ß.. ¸ê®Æ¨Ó·½¿ï¾Ü§A­nÅã¥Üªº¸ê®Æ

TOP

me.«~¦W¥N½X=Dlookup([«~¦W],"«~¦W¥N½X","[¥N½X]='" & left(me.«¬¸¹,3) & "'")

TOP

½Ð±Ð¤@¤U¦pªG¬O¥Î2010ª©ªº¤]¥i¥H³o¼Ë¿é¤J¶Ü?

TOP

¦b«¬¸¹Äæ¦ìªºAfterUpdate¨Æ¥ó, ¼¶¼gµ{¦¡.
¤j¬ù¦p¤U: (¨Ï¥ÎDAO)
dim str_Num as string
str_Num = left(me.«¬¸¹,3)
dim rs as recordset
set rs = currentdb.openrecordset("Select  «~¦W from «~¦W¥N½X Where ¥N½X = '" & str_Num & "'", dbopensnapshot)
if rs.recordcount <> 0 then
  me.«~¦W¥N½X = rs("«~¦W")
end if

¥H¤Wµ{¦¡, °Ñ¦Ò¬Ý¬Ý.

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD