±±¾© | ÉϺ£ | Ìì½ò | ÖØÇì | ¹ãÖÝ | ÉîÛÚ | Ö麣 | ÉÇÍ· | ·ðɽ | ÖÐɽ | ¶«Ý¸ | ÄϾ© | ËÕÖÝ | ÎÞÎý | ³£ÖÝ | ÄÏͨ | ÑïÖÝ | ÐìÖÝ | º¼ÖÝ | ÎÂÖÝ | Äþ²¨ | ̨ÖÝ | ¸£ÖÝ | ÏÃÃÅ | ȪÖÝ | ÁúÑÒ | ºÏ·Ê | Îߺþ | ³É¶¼ | ËìÄþ | ³¤É³ | ÖêÖÞ | Ïæ̶ | Î人 | Äϲý | ¼ÃÄÏ | Çൺ | ÑĮ̀ | Ϋ·» | ×Ͳ© | ¼ÃÄþ | Ì«Ô | Ö£ÖÝ | ʯ¼Òׯ | ±£¶¨ | ÌÆɽ | Î÷°² | ´óÁ¬ | ÉòÑô | ³¤´º | À¥Ã÷ | À¼ÖÝ | ¹þ¶û±õ | ¼Ñľ˹ | ÄÏÄþ | ¹ðÁÖ | º£¿Ú | ¹óÑô | Î÷Äþ | ÎÚ³ľÆë | °üÍ· |
ÕâÊÇ¡¶Ö§³Ö¶ÏºÅÖØÐø¹¦ÄܵÄ×Ô¶¯±àºÅʾÀý¡·ÖеĴúÂ룺
ÔÚ¶©µ¥´°ÌåÖУº
Private Sub Form_Current()
If Me.NewRecord Then
Me.¶©µ¥ºÅ.DefaultValue = """" & AutoNum("¶©µ¥±í", "¶©µ¥ºÅ", "OD" & Format(Date, "yyyymm"), 4, True) & """"
Else
Me.¶©µ¥ºÅ.DefaultValue = ""
End If
End Sub
ÔÚÊôÐÔ´°ÌåÖУº
Private Sub Form_Current()
If Me.NewRecord Then
Me.ÐòºÅ.DefaultValue = AutoNum("ÊôÐÔ±í", "ÐòºÅ", , , True) ¡®ÎÊÌâÊÇ£ºÎªÊ²Ã´´Ë´¦µÄĬÈÏÖµ²»¼ÓËĸöË«ÒýºÅ£¬¾Í¿ÉÒÔÕý³£ÄØ£¬¶øÉÏÃæÄǸöÈç¹û²»¼Ó4¸öÒýºÅ¾Í²»Õý³£ÄØ¡£
Else
Me.ÐòºÅ.DefaultValue = ""
End If
End Sub