بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'تصدير'.
تم العثور علي 9 نتائج
-
السلام عليكم. أنا أدين لهذا المنتدى بكل معرفتي المتواضعة جداً في الأكسس, ولطالما كان ملاذاً لي في حل كل المشاكل التي تواجهني, ودائما ما كنت أحصل على الحل من المشاركات السابقة, لكن المشكلة التي تواجهني لم أتمكن من إيجاد حل لها, وأنا طامع في أن تزودوني بالحل بأسرع ما يمكن. والمشكلة هي: يوجد عندي برنامج أساسي للفوترة إسمه "Host" ونفس البرنامج موجود مع شخصين مختلفين "User A, User B" وهذان الشخصان يقومان بإدخال بيانات الفواتير التي يقومون بها كل واحد على برنامجه, أريد أن أضع زر في برامج "User A, User B" لتصدير البيانات, وأن أضع في برنامج الـHost زر يُمكنه من إستيراد هذه البيانات المرسلة من قبل "User A, User B" والتي تكون على CD, مع مراعاة أن تتم زيادة البيانات الجديدة على البيانات السابقة في "Host" وتحديث البيانات السابقة التي طرأ عليها تغيير من قبل "User A, User B". مرفق نموذج صغير لهذه البرامج لتكون الفكرة واضحة وإن أمكن التعديل عليها برامج فوترة.zip
- 8 replies
-
- تصدير
- تصدير بيانات
-
(و1 أكثر)
موسوم بكلمه :
-
السلام عليكم اساتذتي الكرام اريد التعديل على هذا الكود بحيث يفتح شاشة اختيار مكان تصدير البيانات بدلا من تحديده في الكود مع اظهار اسم التقرير Dim X As String X = Me.name_amel & ".pdf" DoCmd.OutputTo acOutputReport, "OMALA", "PDFFormat(*.pdf)", "D:\" & X على ان يكون التصدير لاكسس وليس pdf وذلك بدلا من ان يكون مكان التصدير ثابت كما في الكود السابق وانما اريده اختيار مثل هذا الكود DoCmd.OutputTo acOutputQuery, stDocName, "ExcelBinaryWorkbook(*.xlsb)", "", True, "", , acExportQualityPrint مع تحديد المتغير x في الكود
-
السلام عليكم اخواني بارك الله فيكم المطلوب اذا كان مصدر سجلات نموذج عبارة عن استعلام sql المطلوب كود لتصدير هذا الاستعلام الى اكسل بحثت ولم اجد المطلوب او اني لم اوفق للطرقة الصحيحة للبحث وجزاكم الله عنا خيرا
-
لتصدير عدد من الانشطة المختار اختار الانشطة باي طريقة تناسبك ، ثم شغل الكود التالي للتصدير الي المواعيد كدعوة لاجتماع Option Explicit Public myOLApp As Object Sub Export_Selection_To_OL_Appointments() Dim myTask As Task Dim myItem As Object On Error Resume Next Set myOLApp = CreateObject("Outlook.Application") For Each myTask In ActiveSelection.Tasks Set myItem = myOLApp.CreateItem(1) With myItem .Start = myTask.Start .End = myTask.Finish .Subject = myTask.Name & " (Project Task)" .Categories = myTask.Project .Body = myTask.Notes .Save End With Next myTask End Sub للتصدير الي المهام Sub Export_Selection_To_OL_Tasks() Dim myTask As Task Dim myItem As Object On Error Resume Next Set myOLApp = CreateObject("Outlook.Application") For Each myTask In ActiveSelection.Tasks Set myItem = myOLApp.CreateItem(3) With myItem .StartDate = myTask.Start .DueDate = myTask.Finish .Subject = myTask.Name & " (Project Task)" .Body = myTask.Notes .Categories = myTask.Project .Save End With Next myTask و للتصدير الي الملاحظات Sub Export_Selection_To_OL_Notes() Dim myTask As Task Dim myItem As Object Dim myNotesText As String On Error Resume Next Set myOLApp = CreateObject("Outlook.Application") For Each myTask In ActiveSelection.Tasks Set myItem = myOLApp.CreateItem(5) myNotesText = myTask.Name & " (Project Task)" & Chr(13) & _ " Name: " & myTask.Name & Chr(13) & _ " Start: " & myTask.Start & Chr(13) & _ " End: " & myTask.Finish & Chr(13) & _ " Note: " & myTask.Notes With myItem .Categories = myTask.Project .Body = myNotesText .Save End With myNotesText = "" Next myTask End Sub و لتكوين قائمة جديد تعطيك بهض الخيارات الاضافية يتم اضافة و تشغيل لكود التالي Option Explicit Sub CreateMenus() Dim cbrMain As CommandBar Dim ctlMain As CommandBarControl Dim ctlOLExport1 As CommandBarControl Dim ctlOLExport2 As CommandBarControl Dim ctlOLExport3 As CommandBarControl Set cbrMain = Application.CommandBars.ActiveMenuBar Set ctlMain = cbrMain.Controls.Add(Type:=msoControlPopup, Temporary:=True) ctlMain.Caption = "Export to Outlook" Set ctlOLExport1 = ctlMain.CommandBar.Controls.Add(Type:=msoControlButton) With ctlOLExport1 .Caption = "Selection to Outlook tasks" .OnAction = "Macro """ & "Export_Selection_To_OL_Tasks""" End With Set ctlOLExport2 = ctlMain.CommandBar.Controls.Add(Type:=msoControlButton) With ctlOLExport2 .Caption = "Selection to Outlook appointments" .OnAction = "Macro """ & "Export_Selection_To_OL_Appointments""" End With Set ctlOLExport3 = ctlMain.CommandBar.Controls.Add(Type:=msoControlButton) With ctlOLExport3 .Caption = "Selection to Outlook notes" .OnAction = "Macro """ & "Export_Selection_To_OL_Notes""" End With End Sub مرفق المثالexport_project_tasks_to_outlook_late_bound.rar
-
سلام عليكم وشهر مبارك على الجميع. احتاج الى ما تعودت عليه من كرمكم ودعمكم , حاولت ان اجد ما اريد في المنتدى ولاكن لم اوفق, ارفقت ملفين الملف الأول هو ملف اكسس فيه بيانات في نموذج وما اريده هو ان يتم تصدير البيانات محددة من الفورم الى الملف الثاني وهو ملف اكسل مجهز مسبقا في الخلايا المخصصة لها في ملف الأكسل. وذالك عند النقر على زر امر كما في الملف المرفق Export to excel temp.rar
-
هل من الممكن تصدير من برنامج اكسيس الى ملف اكسيل(استبانة مصممة من قبل) سواء سجل سجل او مجموعة من السجلات بحيث يتم حفظ سجلات الاكسيل منفصلة(كل عميل بملف منفصل) وجزاكم الله كل خير وعلى القائمين على هذا الموقع الاكثر من رائع
-
هل من الممكن تصدير من برنامج اكسيس الى ملف ورد(استبانة مصممة من قبل) سواء سجل سجل او مجموعة من السجلات بحيث يتم حفظ سجلات الورد منفصلة(كل عميل بملف منفصل) وجزاكم الله كل خير وعلى القائمين على هذا الموقع الاكثر من رائع
-
تحية طيبة لجميع الاعضاء ارجو ممن له خبرة في تصدير نتيجة استعلام (كويري) وتصدير النتيجة الى ملف اكسيل معد مسبقا (اكسيل تمبلت) علما ان الكويري ياتي من خلال Combo Box خيار من الكمبوبوكس ثم ينفذ الكويري ويرسل النتيجة الى اكسيل تمبلت مرفقا قاعدة البيانات والاكسيل تمبلت والشرح الكافي بالصور مع الشكر للجميع data.rar