²é¿´: 1312  |  »Ø¸´: 3

wilstar

½ð³æ (ÕýʽдÊÖ)

[ÇóÖú] Âé·³¸ø¶Îvba´úÂ룬ʵÏÖaccessÊý¾Ý×Ô¶¯µ¼Èëµ½wordÖÐ

ÔÚÍøÉÏÕÒÁ˸öaccessÎļþ£¬ÏëʵÏÖÎĵµµÄÅúÁ¿Ìæ»»£¬Ïê¼û¸½¼þ
Âé·³¸ø¶Îvba´úÂ룬ʵÏÖaccessÊý¾Ý×Ô¶¯µ¼Èëµ½wordÖÐ
ÆäÖУ¬Í¨Öªµ¥Ä£°å.docλÓÚÄ£°åÎļþ¼ÐÄÚ£¬´æ·ÅλÖøøµÄÊÇÀý×Ó
ÔÚʹÓõÄʱºò¾Í·¢ÏÖ£¬ÆäÖеĴ°ÌåÓò¾ÍÀàËÆÓÚÊéÇ©£¬¼ûÈçÏÂͼ
Âé·³¸ø¶Îvba´úÂ룬ʵÏÖaccessÊý¾Ý×Ô¶¯µ¼Èëµ½wordÖÐ-1
Õâ¾Í´æÔÚÒ»¸öÎÊÌ⣬ÊéÇ©µÄ»°£¬Ò»¸öÄ£°åÖÐÖ»ÄܲÉÓÃÒ»¸ö£¬»»ÑÔÖ®£¬¾ÍÊÇͬÑùµÄ±ê¼ÇÖ»ÄÜʹÓÃÒ»´Î£¬Í¬ÑùµÄÄÚÈÝ¿ÉÄÜÔÚÎļþÖгöÏÖ¶à´Î£¬ÕâÑùÕâ¸öÄ£°å¾ÍÓò»ÆðÁË
ÔÚÍøÉÏ¿´µ½±ðµÄÓÃÏÂͼµÄÊéÇ©¾ÍʵÏÖÁËͬһÎı¾µÄ¶à´Î×Ô¶¯Ìîд
Âé·³¸ø¶Îvba´úÂ룬ʵÏÖaccessÊý¾Ý×Ô¶¯µ¼Èëµ½wordÖÐ-2
µ«¿àÓÚ¿´²»µ½ÏàÓ¦µÄ´úÂ룬ֻÄܸÉ׿±
Âé·³ÄÄλ¸ßÊÖÖ¸µãһϣ¬»òÕ߸ø¸öÄܹ»ÊµÏֵĴúÂë»ò·½Ê½£¬ÒÔʵÏÖÊý¾ÝÔÚwordÖеÄÅúÁ¿¶à´Îµ¼³ö»òÕß½ÐÌî³ä£¬ÔÚ´Ëл¹ýÁË

×îºó¸½ÉÏaccessÎļþÖеġ°µ¼³öwordµÄ´úÂ롱
CODE:
Private Sub µ¼³öword_Click()
    On Error GoTo ErrorHandler
    Dim strTemplate As String
    Dim strFileName As String
    Dim objApp As Object    'New Word.Application
    Dim objDoc As Object    'Word.Document
    Dim objField As Object    'Word.Field
    Dim rst As Object
    Dim blnNoQuit As Boolean

    strTemplate = CurrentProject.Path & "\Ä£°å\֪ͨµ¥Ä£°å.doc"


    'ÉèÖÃÊó±êÖ¸ÕëΪɳ©ÐÎ×´
    DoCmd.Hourglass True

    Set objApp = CreateObject("Word.Application")
    Set objDoc = objApp.Documents.Open(strTemplate)
    Set rst = CurrentDb.OpenRecordset("SELECT * FROM tbl֪ͨµ¥ WHERE ID=" & ID, , 4)    'dbReadOnly
    If Not rst.EOF Then
        strFileName = CurrentProject.Path & "\´æ·ÅλÖÃ\" & "֪ͨµ¥" & rst!ID & ".doc"
        'Èç¹ûÎļþÒÑ´æÔÚ£¬ÏÈɾ³ýÒÑÓÐÎļþ
        If Dir(strFileName) <> "" Then Kill strFileName
        objDoc.FormFields("¸Ö½î°óÔúÌ¥¾ß").result = rst!¸Ö½î°óÔúÌ¥¾ß
        objDoc.FormFields("ÇÅÁºÃû³Æ").result = rst!ÇÅÁºÃû³Æ
        objDoc.FormFields("ÏäÁº±àºÅ").result = rst!ÏäÁº±àºÅ
        objDoc.FormFields("·ÝÊý").result = Nz(rst!·ÝÊý)
        objDoc.FormFields("¸Ö½îµõװʱ¼ä").result = Format(rst!¸Ö½îµõװʱ¼ä, "yyyyÄêmÔÂdÈÕ")
        objDoc.FormFields("½»½ÓÈË").result = rst!½»½ÓÈË
        objDoc.FormFields("×Ö¶Î1").result = rst!×Ö¶Î1
    End If
    rst.Close
    objDoc.SaveAs strFileName
    Beep
    If MsgBox("µ¼³öÒÑÍê³É£¬ÊÇ·ñ´ò¿ª¸ÃÎļþ£¿", vbQuestion + vbYesNo, "µ¼³öÍê³É") = vbYes Then
        objApp.Visible = True
        objDoc.Saved = True
        blnNoQuit = True
    End If

ExitHere:
    On Error Resume Next
    If Not blnNoQuit Then
        If Not objDoc Is Nothing Then objDoc.Saved = True
        If Not objApp Is Nothing Then objApp.Quit
    End If
    '»Ö¸´Êó±êÖ¸Õë
    DoCmd.Hourglass False
    'ÊͷŶÔÏó±äÁ¿ÄÚ´æ
    Set objApp = Nothing
    Set objDoc = Nothing
    Set rst = Nothing
    Exit Sub

ErrorHandler:        '´íÎó´¦Àí³ÌÐò
    If Err = 70 Then
        MsgBox "²»ÄÜÌæ»»Îļþ£¬ÒòΪÎÞ·¨É¾³ýÒÑÓÐÎļþ£¬¿ÉÄܵÄÔ­ÒòÓУº" & vbCrLf & vbCrLf & _
               "1.¸ÃÎļþ´¦ÓÚ´ò¿ª×´Ì¬¡£" & vbCrLf & _
               "2.ûÓжԴËĿ¼µÄдÈëȨÏÞ¡£", vbCritical
    Else
        MsgBox Err.Description, vbCritical, "³ö´í #" & Err
    End If
    Resume ExitHere

End Sub[filename]µ¼³öword.mdb[/filename][filename]֪ͨµ¥Ä£°å.doc[/filename]

ŪºÃÖ®ºó£¬·¢ÏÖÓÐЩÎÄ×Ö×Ô¶¯×ª³ÉͼƬÁË£¬¾ÍÂé·³Ö±½Ó¿´accessÎļþ°É

[ Last edited by jjdg on 2014-2-13 at 21:16 ]
»Ø¸´´ËÂ¥

» ±¾Ìû¸½¼þ×ÊÔ´Áбí

  • »¶Ó­¼à¶½ºÍ·´À¡£ºÐ¡Ä¾³æ½öÌṩ½»Á÷ƽ̨£¬²»¶Ô¸ÃÄÚÈݸºÔð¡£
    ±¾ÄÚÈÝÓÉÓû§×ÔÖ÷·¢²¼£¬Èç¹ûÆäÄÚÈÝÉæ¼°µ½ÖªÊ¶²úȨÎÊÌ⣬ÆäÔðÈÎÔÚÓÚÓû§±¾ÈË£¬Èç¶Ô°æÈ¨ÓÐÒìÒ飬ÇëÁªÏµÓÊÏ䣺xiaomuchong@tal.com
  • ¸½¼þ 1 : µ¼³öword.mdb
  • 2014-02-13 09:55:25, 488 K
  • ¸½¼þ 2 : ֪ͨµ¥Ä£°å.doc
  • 2014-02-13 09:55:27, 50 K

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

wilstar

½ð³æ (ÕýʽдÊÖ)

лл¸÷λ´óÏÀÁË
2Â¥2014-02-13 10:09:21
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

deephill

Ìú¸Ëľ³æ (Ö°Òµ×÷¼Ò)

Ä£°å²»¶®¡£
Óð´¼ü¾«ÁéÀ´×ö£¬Ò²²»ºÃ¸ãѽ
3Â¥2014-02-17 23:11:07
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

wilstar

½ð³æ (ÕýʽдÊÖ)

ÒýÓûØÌû:
3Â¥: Originally posted by deephill at 2014-02-17 23:11:07
Ä£°å²»¶®¡£
Óð´¼ü¾«ÁéÀ´×ö£¬Ò²²»ºÃ¸ãѽ

ËäȻû½â¾öÎÊÌ⣬»¹ÊÇллÁË
4Â¥2014-02-18 09:40:22
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ wilstar µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 326Çóµ÷¼Á +3 ŵ±´¶û»¯Ñ§½±êéê 2026-03-15 3/150 2026-03-16 13:51 by houyaoxu
[¿¼ÑÐ] 344Çóµ÷¼Á +3 knight344 2026-03-16 3/150 2026-03-16 09:42 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] Áº³ÉΰÀÏʦ¿ÎÌâ×é»¶Ó­ÄãµÄ¼ÓÈë +6 һѼѼӴ 2026-03-14 7/350 2026-03-15 22:12 by Winj1e
[¿¼ÑÐ] 294Çóµ÷¼Á +3 Zys010410@ 2026-03-13 4/200 2026-03-15 10:59 by zhq0425
[¿¼ÑÐ] 255Çóµ÷¼Á +3 Àî¼Î»Û£¬ 2026-03-12 4/200 2026-03-14 16:58 by ÓÐÖ»ÀêÅ«
[¿¼ÑÐ] 266Çóµ÷¼Á +4 ѧԱ97LZgn 2026-03-13 4/200 2026-03-14 08:37 by zhukairuo
[¿¼ÑÐ] 306Çóµ÷¼Á +4 ÌÆÞ²Þ² 2026-03-09 4/200 2026-03-14 01:19 by JourneyLucky
[»ù½ðÉêÇë] ÓбØÒª¸ü»»É걨¿ÚÂð 20+3 fannyamoy 2026-03-11 3/150 2026-03-14 00:52 by zhanghaozhu
[¿¼ÑÐ] 26¿¼Ñе÷¼Á +3 ying123. 2026-03-10 3/150 2026-03-14 00:18 by JourneyLucky
[¿¼ÑÐ] 26µ÷¼Á/²ÄÁÏ/Ó¢Ò»Êý¶þ/×Ü·Ö289/ÒѹýAÇøÏß +6 ²½´¨¿á×Ï123 2026-03-13 6/300 2026-03-13 21:59 by ÐÇ¿ÕÐÇÔÂ
[¿¼ÑÐ] 26µ÷¼Á/²ÄÁÏ¿ÆÑ§Ó빤³Ì/×Ü·Ö295/ÇóÊÕÁô +9 2026µ÷¼ÁÏÀ 2026-03-12 9/450 2026-03-13 20:46 by 18595523086
[¿¼ÑÐ] 332Çóµ÷¼Á +3 Zz°æ 2026-03-13 3/150 2026-03-13 20:36 by 18595523086
[¿¼ÑÐ] 310Çóµ÷¼Á +3 ¡¾ÉÏÉÏÇ©¡¿ 2026-03-11 3/150 2026-03-13 16:16 by JourneyLucky
[¿¼ÑÐ] ¹¤¿Æ²ÄÁÏ085601 279Çóµ÷¼Á +8 À§ÓÚÐdz¿ 2026-03-12 10/500 2026-03-13 15:42 by ms629
[¿¼ÑÐ] 26¿¼ÑÐÇóµ÷¼Á +5 ؼºêSir 2026-03-13 5/250 2026-03-13 13:05 by JourneyLucky
[¿¼ÑÐ] 304Çóµ÷¼Á£¨085602Ò»Ö¾Ô¸985£© +12 »¯¹¤ÈË999 2026-03-09 12/600 2026-03-13 12:02 by JourneyLucky
[¿¼ÑÐ] 277Çóµ÷¼Á +4 anchor17 2026-03-12 4/200 2026-03-13 11:15 by °×Ò¹ÓÆ³¤
[¿¼²©] 2026Ä격ʿÉêÇë +3 QwQwQW10 2026-03-11 3/150 2026-03-12 17:58 by gxch43
[¿¼ÑÐ] µ÷¼Á +5 ºÇßíŶ»í 2026-03-10 5/250 2026-03-10 22:00 by 28375m
[¿¼ÑÐ] 0856²ÄÁÏÓ뻯¹¤353·ÖÇóµ÷¼Á +11 NIFFFfff 2026-03-09 11/550 2026-03-10 18:36 by suyuanhai
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û