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

[مضيعة بيتهم]

السلام عليكم

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

اخواني :(

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

تم تعديل نوفمبر 6, 2011 بواسطه مضيعة بيتهم

[مضيعة بيتهم]

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

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

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

والله ضيعت :(

تم تعديل نوفمبر 7, 2011 بواسطه 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

تم تعديل نوفمبر 7, 2011 بواسطه nart lebzo
:إحتواء الكود ضمن المحرر

[أبو آدم]

أختي الفاضلة

أتابع الموضوع منذ البداية ، ولدي سؤال : لماذا الأكسس بتقاريره غير مناسب ؟؟ من ناحية التنسيق !!

حتى نلجأ للوورد !!!

..........

[مضيعة بيتهم]

عندي عقود بنك

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

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

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

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

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

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

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

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

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

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

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

[ksmn64]

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

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

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

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

بالتوفيق،،،

[مضيعة بيتهم]

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

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

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

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

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

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

تموية :(

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

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

تم تعديل نوفمبر 10, 2011 بواسطه nart lebzo
:حذف الرابط حسب طلب صاحبة الموضوع

[مضيعة بيتهم]

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

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

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

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

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

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

والحمد لله

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

تم تعديل ديسمبر 2, 2011 بواسطه مضيعة بيتهم