مضيعة بيتهم

اي فكرة ؟ :(

تمت الاجابة :( اول شي عملت فورم بحث وطلعت عدد من السجلات وبعدين استعلام ياخد فقط كل السجلات اللي عليها علامة صح = تشيك بوكس ويضيفها لجدول جديد وبعدين بيطبع جميع السجلات اللي في الجدول طبعا المستخدم ما يدري باللفة دي كلها زر اضافة جدول مكتوب عليه طباعة :( والحمد لله 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

السلام عليكم كيفكم جميعا وجمعة مباركة ان شاء الله عملية ارسال ايميل مرفق بملف pdf لبيانات السجل الحالي عملتها بس المشكلة انه عندي 10 صفحات تقارير كل صفحة فيها صورة ابغاها تترسل انا فكرت انه اول استخدم برنامج طباعتهم جميعا كملف pdf ويتحفظ في مكان معين من الجهاز وبنفس الاسم دائما وبعدين ارفقه للايميل هذا كود الارسال DoCmd.SendObject acSendReport, "appm1", acFormatPDF, Me.EmailAddress, , , "Please Fill Out and Return", "", True, True طيب دحين والله ما ادري هل احتاج فورم يكون فيه الاميل ونص الرسالة وارفاق الملف ولا كيف؟ او ممكن ملف الpdf اللي في الجهاز يرفق اوتوماتك للرسالة

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

الله يعطيك الف عافية ^_^

الله يعطيكم العافية رفعت ملف الاكسس والورد في الفورم الاساسي فيه زر طباعة على ورد والفورم التاني فيه زر طباعة تقرير عادي نفسه بس من الاكسس ممم مدري والله بس اشمعنا في الاكسل كان ينفع يطبع عدة اشخاص كل اللي في الجدول طيب لو احط الجدول على الفورم وفيه الاسماء بيطبع زي الاكسل تموية :( حتى الطباعة على تقارير الاكسس لو كانت لمجموعة مثلا التقرير من 6 صفحات حيطبع اول صفحة لستة اشخاص والثانية لستة اشخاص وهكذا

عندي عقود بنك عربي وانقليزي في نفس الصفحة جزء ايمن عربي والايسر انجليزي واغلب المتغيرات زي كده مثلا 3000 و ثلاث الاف ريال و three thousands وتكون ضمن النص ونفس الوقت لازم الكلام يكون متناسق والمتغيرات تكون bold عشن كده غيرت للورد احسن دحين افرض ادخل 50 شخص في اليوم كل واحد لازم ادخل على الفورم واضغط طباعة؟ احسن احددهم كلهم او بتاريخ اليوم عشن اطبع

ودا نفس الكود لل 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

لقيت الكود دا :( 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 ممممممم محد عنده اي فكرة ؟ والله ضيعت :(

الله يسعدك دنيا واخره

السلام عليكم كيف حالكم جميعا اخواني :( انا كنت عاملة التقارير من ضمن الاكسس ولكن انا بتعامل مع عقود بنك رسمية ولازم تكون بشكل متناسق والاكسس ماكان مساعد مثل الورد فعملت التقارير على الورد وعرفت كيف اطبع السجل الحالي على تقرير الورد طيب احتاج اي فكرة عشن اعمل طباعة لعدة سجلات محددة علما بأن: 1)عملت بحث بين تاريخين وزبط 2)عملت checkbox عشن احدد او اشيل التحديد عن السجلات المراد طباعتها 4)عملت زر لطابعة السجلات المحددة وزبط كل دا كان يزبط في تقارير الاكسس كيف ممكن تزبط على ملف الورد؟؟؟؟ احتاج اي فكرة الله يسعدكم واحتاج استشارة: هل احسن بيانات التقارير تؤخذ من استعلام او من جدول به نواتج الاستعلام؟؟ لأنه بتحصل مشكلة لو غيرت في بيانات الجدول الاساسي<< جدول قبل اضافة نواتج الاستعلام اضغط على استعلام الحاق الى الجدول التاني فبتتكرر البيانات حتا لو عملت ابديت والحاق مع بعض خصوصا لو غيرت في primarykey اللي هوا employeeid اسفه على الاطالة

الحمد لله اتحلت المشكلة الله يعطيك الف عافية ويوفقك دنا واخرة اظن كنت بنسا الrecourd source لكل كوبو بوكس وبعدين بعمل الاستعلام فطلعت كل البيانات في الجدول تمام

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

ممم الجدول مليان كل الجداول مليانة بس انا حذفت كتير منهم عشن حجم الملف كان فوق ال40 ميغا :(

السلام عليكم :( ياجماعة عملت استعلام وكانت النواتج تظهر يعني اعمل view بتطلع البيانات كاملة في الجدول هذا قبل اضافة احد الجدولين للاستعلام الجدول الاول اسمه position الجدول التاني اسمه bgrade احتاج اضيف الجدولين للاستعلام لأنه معلومات كل جدول تظهر في combo box ومربوط بمربع نص والناتج يظهر سليم في الفورم بس في الجدول ما تظهر الناتج ابغاه يظهر في الجدول الاساسي tablemaincontract ياريت لو اعرف ايش السبب بس واكتشفت اني لو اضفت اي اي جدول حتا لو باسم تاني للاستعلام يختفي كل شي مدري ليه http://hero-share.com/download/10139....text.rar.html