بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
محتوي مشابه
-
بواسطه Youcef 34
السلام عليكم ورحمة الله وبركاته
اخواني عندي مشكل ان شاء الله يكون الحل بين أيديكم
صممت قاعدة بيانات باستعمال أكسس 2016 في جهازي الكمبيوتر و كانت تشتغل جيدا دون مشاكل عند نقلها لجهاز آخر مثبت على اوفيس 2007 لم تفتح القاعدة إطلاقا
فقمت بتثبيت اكسس 2013 فقط في الجهاز الجديد وعند فتح قاعدة البيانات تغيرت بعض تنسيقات الأزرار و لم تشتغل معي القاعدة الأزرار لا تطبق الاوامر من وحدات نمطية ما الحل من فضلكم
-
بواسطه حلبي
السادة الافاضل
السلام عليكم
الموضوع يتلخص في ان الشركة التي اعمل بها تستورد قطع غيار معدات ثقيلة وتقوم بتوزيعها علي المواقع
فكرة البرنامج: نستورد بضاعة (اصناف) نقوم بتوزيعها علي عدد من المخازن ولذلك يلزم عمل شاشة ببيانات التوريد (فاتورة التوريد)
نقوم بعد ذلك بصرف الاصناف من المخازن كل حسب طلب المواقع فيلزم عمل شاشة صرف (فاتورة صرف)
بعض الاحيان نقوم بتحويل او نقل صنف من مخزن الي اخر وعليه يلزم عمل شاشات لمعرفة رصيد كل مخزن من كل صنف.
حاولت كثيرا ولم اصل لاي حل فمن لديه القدرة علي ايجاد الحل اكون شاكرا له
جزاكم الله خيرا وجعله في ميزان حسناتكم
مرفق مثال مبسط للتعديل عليه
voicebuy.rar
-
بواسطه عمرو المطري
السلام عليكم ورحمة الله وبركاته
اخواني الكرام حاولت اكثر من مرة وبأكثر من طريقة ربط حساب الجيميل بالاوتلوك لكن فشلت جميع المحاولات
هذه صورة للبيانات التي ادخلتها
وهذه الاعدادات
ايضاً استخدمت بورت 465 في خادم البريد الصادر ولم تفلح العملية
تظهر لي هذه المشكلة
ثم يطالبني باسم المستخدم وكلمة المرور اكثر من مرة
علماً انني قمت بتفعيل خيار تمكين الوصول عبر الـ Imap من اعدادات الجيميل
هل من حل لديكم جزاكم الله كل خير
-
بواسطه محمد طاهر
لتصدير عدد من الانشطة المختار
اختار الانشطة باي طريقة تناسبك ، ثم شغل الكود التالي
للتصدير الي المواعيد كدعوة لاجتماع
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
-
بواسطه محمد طاهر
هذا الموضوع فى قسم البروجكت له علاقة ايضا بالاوتلوك، حيث ان التصدير يتم للاوتلوك
تصدير بعض الأنشطة من مايكروسوفت بروجكت الي الاوتلوك
-
-
المتواجدين الان 0 اعضاء متواجدين الان
لايوجد اعضاء مسجلون يتصفحون هذه الصفحه