mehdipormaye
دوشنبه 28 مهر 1404, 16:57 عصر
با سلام و عرض ادب و احترام
اساتید گرامی یک سوال داشتم از محضرتون
در تایپک زیر که مربوط به خروجی ایتم ها از اکسس به ورود میباشد اگر بخواهیم قبل از اینکه صفحه ورد باز شود ابتدا ذخیره شود و سپس باز شود چکاری انجام بدیم؟ من نتونستم راهی پیدا کنم
با تشکر فراوان
تایپیک:
https://barnamenevis.org/showthread....=1#post2478711 (https://barnamenevis.org/showthread.php?589949-%D8%AB%D8%A8%D8%AA-%D8%B4%D9%85%D8%A7%D8%B1%D9%87-%D9%88-%D8%AA%D8%A7%D8%B1%DB%8C%D8%AE-%D8%AF%D8%B1-%D9%88%D8%B1%D8%AF-%D8%A7%D8%B2-%D8%B7%D8%B1%DB%8C%D9%82-%D8%A7%DA%A9%D8%B3%D8%B3-%D9%88-%D8%A8%D8%A7%D8%B2-%DA%A9%D8%B1%D8%AF%D9%86-%D9%88%D8%B1%D8%AF-%D8%AF%D8%B1-%D8%A7%DA%A9%D8%B3%D8%B3&p=2478711&viewfull=1#post2478711)
این هم کدهایی هست که شما قبلا زحمت کشیده بودید و برای اتقال داده ها فرموده بودید
Public Sub PopulateBookmarks()
Dim sPathName As String
Dim sDocName As String
Dim sFamily As String
Dim sFamilyTable As String
Dim iSeqNum As Integer
Set db = CurrentDb()
Set WordApp = New Word.Application
WordApp.Visible = True
DoCmd.Hourglass True
sPathName = GetCurrentPathName
sDocName = QUOTE & sPathName & "Sanad.Docx" & QUOTE
Set WordDoc = WordApp.Documents.Add(sDocName)
Set qdDAO = db.QueryDefs!qrshomare
qdDAO.Parameters![EnterID] = Me.ID
Set rsDAO = qdDAO.OpenRecordset
' WordDoc.FormFields("ID").result = rsDAO!ID
WordDoc.FormFields("NameP").result = rsDAO!datee
WordDoc.FormFields("Family").result = rsDAO!peyvast
WordDoc.FormFields("Job").result = rsDAO!tabafge
WordDoc.FormFields("shomarekol").result = rsDAO!shomarekol
Set WordDoc = Nothing
MsgBox "عمليات انتقال رکورد جاري به محيط ورد به پايان رسيد", vbOKOnly
DoCmd.Hourglass False
End Sub
اساتید گرامی یک سوال داشتم از محضرتون
در تایپک زیر که مربوط به خروجی ایتم ها از اکسس به ورود میباشد اگر بخواهیم قبل از اینکه صفحه ورد باز شود ابتدا ذخیره شود و سپس باز شود چکاری انجام بدیم؟ من نتونستم راهی پیدا کنم
با تشکر فراوان
تایپیک:
https://barnamenevis.org/showthread....=1#post2478711 (https://barnamenevis.org/showthread.php?589949-%D8%AB%D8%A8%D8%AA-%D8%B4%D9%85%D8%A7%D8%B1%D9%87-%D9%88-%D8%AA%D8%A7%D8%B1%DB%8C%D8%AE-%D8%AF%D8%B1-%D9%88%D8%B1%D8%AF-%D8%A7%D8%B2-%D8%B7%D8%B1%DB%8C%D9%82-%D8%A7%DA%A9%D8%B3%D8%B3-%D9%88-%D8%A8%D8%A7%D8%B2-%DA%A9%D8%B1%D8%AF%D9%86-%D9%88%D8%B1%D8%AF-%D8%AF%D8%B1-%D8%A7%DA%A9%D8%B3%D8%B3&p=2478711&viewfull=1#post2478711)
این هم کدهایی هست که شما قبلا زحمت کشیده بودید و برای اتقال داده ها فرموده بودید
Public Sub PopulateBookmarks()
Dim sPathName As String
Dim sDocName As String
Dim sFamily As String
Dim sFamilyTable As String
Dim iSeqNum As Integer
Set db = CurrentDb()
Set WordApp = New Word.Application
WordApp.Visible = True
DoCmd.Hourglass True
sPathName = GetCurrentPathName
sDocName = QUOTE & sPathName & "Sanad.Docx" & QUOTE
Set WordDoc = WordApp.Documents.Add(sDocName)
Set qdDAO = db.QueryDefs!qrshomare
qdDAO.Parameters![EnterID] = Me.ID
Set rsDAO = qdDAO.OpenRecordset
' WordDoc.FormFields("ID").result = rsDAO!ID
WordDoc.FormFields("NameP").result = rsDAO!datee
WordDoc.FormFields("Family").result = rsDAO!peyvast
WordDoc.FormFields("Job").result = rsDAO!tabafge
WordDoc.FormFields("shomarekol").result = rsDAO!shomarekol
Set WordDoc = Nothing
MsgBox "عمليات انتقال رکورد جاري به محيط ورد به پايان رسيد", vbOKOnly
DoCmd.Hourglass False
End Sub