اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

بحث في فورم الاكسس عن عدة سجلات ثم طباعتها على تقرير doc.

مضيعة بيتهم

بواسطه مضيعة بيتهم
في قسم الأكسيس Access

 مشاركة

الردود الموصى بها

مضيعة بيتهم

مضيعة بيتهم

قام بنشر
قام بنشر (معدل)

السلام عليكم

كيف حالكم جميعا

اخواني :(

انا كنت عاملة التقارير من ضمن الاكسس

ولكن انا بتعامل مع عقود بنك رسمية ولازم تكون بشكل متناسق والاكسس ماكان مساعد مثل الورد

فعملت التقارير على الورد

وعرفت كيف اطبع السجل الحالي على تقرير الورد

طيب احتاج اي فكرة عشن اعمل طباعة لعدة سجلات محددة علما بأن:

1)عملت بحث بين تاريخين وزبط

2)عملت checkbox عشن احدد او اشيل التحديد عن السجلات المراد طباعتها

4)عملت زر لطابعة السجلات المحددة وزبط

كل دا كان يزبط في تقارير الاكسس

كيف ممكن تزبط على ملف الورد؟؟؟؟

احتاج اي فكرة الله يسعدكم

واحتاج استشارة: هل احسن بيانات التقارير تؤخذ من استعلام او من جدول به نواتج الاستعلام؟؟

لأنه بتحصل مشكلة لو غيرت في بيانات الجدول الاساسي<< جدول قبل اضافة نواتج الاستعلام

اضغط على استعلام الحاق الى الجدول التاني فبتتكرر البيانات حتا لو عملت ابديت والحاق مع بعض خصوصا لو غيرت في primarykey اللي هوا employeeid

اسفه على الاطالة

تم تعديل بواسطه مضيعة بيتهم
رابط هذا التعليق
شارك
مضيعة بيتهم

مضيعة بيتهم

قام بنشر
  • الكاتب
قام بنشر (معدل)

لقيت الكود دا :(


Private Sub cmdPrint_Click()

'Print customer slip for current customer.

Dim appWord As Word.Application

Dim doc As Word.Document

Dim rst As ADODB.Recordset

'Avoid error 429, when Word isn't open.

On Error Resume Next

Err.Clear

'Set appWord object variable to running instance of Word.

Set appWord = GetObject(, "Word.Application")

If Err.Number <> 0 Then

'If Word isn't open, create a new instance of Word.

Set appWord = New Word.Application

End If

'Populate recordset object.

Set rst = New ADODB.Recordset

rst.Open Me.RecordSource, CurrentProject.Connection

'Cycle through records to fill Word form fields.

Do While Not rst.EOF

Set doc = appWord.Documents.Open("C:\WordForms\CustomerSlip.doc", , True)

With doc

.FormFields("fldCustomerID").Result = rst!CustomerID

.FormFields("fldCompanyName").Result = rst!CompanyName

.FormFields("fldContactName").Result = rst!ContactName

.FormFields("fldContactTitle").Result = rst!ContactTitle

.FormFields("fldAddress").Result = rst!Address

.FormFields("fldCity").Result = rst!City

.FormFields("fldRegion").Result = rst!Region

.FormFields("fldPostalCode").Result = rst!PostalCode

.FormFields("fldCountry").Result = rst!Country

.FormFields("fldPhone").Result = rst!Phone

.FormFields("fldFax").Result = rst!Fax

.Visible = True

.Activate

'.PrintOut

'.SaveAs "'" & rst!CustomerID & "'"

rst.MoveNext

End With

Loop

Set doc = Nothing

Set appWord = Nothing

Exit Sub

errHandler:

MsgBox Err.Number & ": " & Err.Description

End Sub

ممممممم محد عنده اي فكرة ؟

والله ضيعت :(

تم تعديل بواسطه nart lebzo
:إحتواء الكود ضمن المحرر
رابط هذا التعليق
شارك
مضيعة بيتهم

مضيعة بيتهم

قام بنشر
  • الكاتب
قام بنشر (معدل)

ودا نفس الكود لل current record



Private Sub cmdPrint_Click()

'Print customer slip for current customer.

Dim appWord As Word.Application

Dim doc As Word.Document

'Avoid error 429, when Word isn't open.

On Error Resume Next

Err.Clear

'Set appWord object variable to running instance of Word.

Set appWord = GetObject(, "Word.Application")

If Err.Number <> 0 Then

'If Word isn't open, create a new instance of Word.

Set appWord = New Word.Application

End If

Set doc = appWord.Documents.Open("C:\WordForms\Customer

تم تعديل بواسطه nart lebzo
:إحتواء الكود ضمن المحرر
رابط هذا التعليق
شارك
مضيعة بيتهم

مضيعة بيتهم

قام بنشر
  • الكاتب
قام بنشر

عندي عقود بنك

عربي وانقليزي في نفس الصفحة

جزء ايمن عربي والايسر انجليزي

واغلب المتغيرات زي كده مثلا

3000 و ثلاث الاف ريال و three thousands

وتكون ضمن النص

ونفس الوقت لازم الكلام يكون متناسق

والمتغيرات تكون bold

عشن كده غيرت للورد احسن

دحين افرض ادخل 50 شخص في اليوم

كل واحد لازم ادخل على الفورم واضغط طباعة؟

احسن احددهم كلهم او بتاريخ اليوم عشن اطبع

رابط هذا التعليق
شارك
ksmn64

ksmn64

قام بنشر
قام بنشر

الأخت الكريمة

ماذكرتية عن التقارير في الأكسس أعتقد أنه ليس صحيح ، أو بمعنى لم تهتدي للطريقة السليمة .

أمل إرفاق بعض التقارير التي تستخدمينها في الوورد ، وكذلك ما عملتي في الأكسس .

ليتم التعديل عليه إنشاء الله .

بالتوفيق،،،

رابط هذا التعليق
شارك
مضيعة بيتهم

مضيعة بيتهم

قام بنشر
  • الكاتب
قام بنشر (معدل)

الله يعطيكم العافية

رفعت ملف الاكسس والورد

في الفورم الاساسي فيه زر طباعة على ورد

والفورم التاني فيه زر طباعة تقرير عادي نفسه بس من الاكسس

ممم مدري والله بس اشمعنا في الاكسل كان ينفع يطبع عدة اشخاص كل اللي في الجدول

طيب لو احط الجدول على الفورم وفيه الاسماء بيطبع زي الاكسل

تموية :(

حتى الطباعة على تقارير الاكسس لو كانت لمجموعة

مثلا التقرير من 6 صفحات حيطبع اول صفحة لستة اشخاص والثانية لستة اشخاص وهكذا

تم تعديل بواسطه nart lebzo
:حذف الرابط حسب طلب صاحبة الموضوع
رابط هذا التعليق
شارك
  • 4 weeks later...
مضيعة بيتهم

مضيعة بيتهم

قام بنشر
  • الكاتب
قام بنشر (معدل)

تمت الاجابة :(

اول شي عملت فورم بحث وطلعت عدد من السجلات

وبعدين استعلام ياخد فقط كل السجلات اللي عليها علامة صح = تشيك بوكس ويضيفها لجدول جديد

وبعدين بيطبع جميع السجلات اللي في الجدول

طبعا المستخدم ما يدري باللفة دي كلها

زر اضافة جدول مكتوب عليه طباعة :(

والحمد لله

On Error Resume Next

DoCmd.OpenQuery "Qprintfirstcopy"

Dim y, YY

Dim X As Object

'ÚÏÏ ÇáÓÌáÇÊ

YY = DCount("*", "firstcopy")

'ÍáÞÉ ÇáÊßÑÇÑ ãä ÇáÌ

For y = 0 To YY - 1

Set X = CreateObject("Word.Application")

X.Documents.Open CurrentProject.Path & "\contract6.Docx"

'ÇÐÇ Êã æÖÚ ÑÞã ÓÑÍ ááãáÝ

'2006 ÊÚäÍ ÇáÑÞã ÇáÓÑÍ áãáÝ ÇáææÑÏ

'monWd.Documents.Open CurrentProject.Path & "\mark.doc", , , , "2006"

X.Visible = True

X.ActiveDocument.Bookmarks("vv").select

X.Selection.InsertAfter Me.Vacation.Value

X.ActiveDocument.Bookmarks("v").select

X.Selection.InsertAfter Me.Vacation.Value

X.ActiveDocument.Bookmarks("TITA").select

X.Selection.InsertAfter Me.titleA.Value

X.ActiveDocument.Bookmarks("TITB").select

X.Selection.InsertAfter Me.TitleEn.Value

X.ActiveDocument.Bookmarks("nata").select

X.Selection.InsertAfter Me.NationalAR.Value

X.ActiveDocument.Bookmarks("idta").select

X.Selection.InsertAfter Me.idtype.Value

X.ActiveDocument.Bookmarks("natida").select

X.Selection.InsertAfter Me.empNatID.Value

X.ActiveDocument.Bookmarks("namear").select

X.Selection.InsertAfter empnameAR.Value

X.ActiveDocument.Bookmarks("nameen").select

X.Selection.InsertAfter Me.empnameEN.Value

X.ActiveDocument.Bookmarks("natE").select

X.Selection.InsertAfter Me.NationalEN.Value

X.ActiveDocument.Bookmarks("idte").select

X.Selection.InsertAfter Me.idtypeen.Value

X.ActiveDocument.Bookmarks("natidb").select

X.Selection.InsertAfter Me.empNatID.Value

X.ActiveDocument.Bookmarks("sal").select

X.Selection.InsertAfter Me.Salary.Value

X.ActiveDocument.Bookmarks("sall").select

X.Selection.InsertAfter Me.Salary.Value

X.ActiveDocument.Bookmarks("sala").select

X.Selection.InsertAfter Me.salaryaar.Value

X.ActiveDocument.Bookmarks("salE").select

X.Selection.InsertAfter Me.salaryeen.Value

X.ActiveDocument.Bookmarks("arname").select

X.Selection.InsertAfter empnameAR

X.ActiveDocument.Bookmarks("enname").select

X.Selection.InsertAfter Me.empnameEN.Value

X.ActiveDocument.Bookmarks("namea").select

X.Selection.InsertAfter empnameAR

X.ActiveDocument.Bookmarks("namee").select

X.Selection.InsertAfter Me.empnameEN.Value

X.ActiveDocument.Bookmarks("job").select

X.Selection.InsertAfter Me.grade.Value

X.ActiveDocument.Bookmarks("joob").select

X.Selection.InsertAfter Me.SPositionar.Value

'ããÑ ÇáØÈÇÚÉ

X.ActiveDocument.PrintOut

'ÛáÞ ãáÝ ÇáææÑÏ

X.ActiveDocument.Close False

X.Quit

DoCmd.GoToRecord , , acNext

Next y

تم تعديل بواسطه مضيعة بيتهم
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept