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

البحث في الموقع

Showing results for tags 'سؤال'.

  • Search By Tags

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • Search By Author

نوع المحتوي


الاقسام

  • الترحيب
  • قسم تطبيقات و لغات مايكروسوفت
    • قنوات تعليمية شخصية و دورات تدريبية مجانية و مدفوعة
    • إعلانات شخصية بأجر للاعضاء
    • المنتدى المفتوح
    • منتدى الاكسيل Excel
    • قسم الأكسيس Access
    • دعم أنظمة الويندوز المختلفة
    • منتدي الوورد Word
    • منتدى الباوربوينت
    • منتدى الاوتلوك Outlook
    • منتدى الفيزيو Visio
    • منتدي مايكروسوفت بروجكت Ms Project
    • منتدى الفرنت بيج العام Frontpage
    • تطبيقات Power Apps
    • وان نوت One Note
    • الناشر بابليشر Publisher
    • Communicator
    • Expression Web
    • SQL Server
    • VB.net
    • C#.net
    • Asp.net
  • الغات و أدوات البرمجة الأخرى
    • حوارات الويب العامة
    • Delphi
    • PHP
    • برمجة الاندرويد
  • أقسام الإدارة و إدارة المشاريع و تطبيقاتها
    • الاستراتيجية وإدارة محافظ المشاريع
    • إدارة المشاريع
    • Scaled Agile SAFe
    • إدارة الجودة
    • القيادة و تنمية المهارات
    • Primavera Enterprise
    • Primavera 3.1
  • البحث العلمي و علوم البيانات
    • مناهج البحث العلمي
    • علم الإحصاء
    • الذكاء الإصطناعي و التنقيب فى البيانات
    • Orange
    • R
    • SPSS
    • Python
  • القسم العام
    • مشاركات المدونات
    • نرحب بزوار الموقع
    • قسم الاقتراحات و الملاحظات
    • أوفيسنا على الفيسبوك

الاقسام

  • VBA Code Library
  • قسم الإكسيل
  • قسم الأكسيس
  • قسم الوورد
  • Project Management
  • Self development التطويرالذاتي
  • EFQM & DGEP
  • معلومات مفيدة
  • أدوات عامة

مدونات

  • M-Taher's Blog
  • مدونة محمد طاهر
  • Officena
  • اا الفاروق اا
  • ‎مدونة أخبار التكنولوجيا
  • M-Taher's Blog
  • يحيى حسين's Blog
  • خبور خير's Blog
  • Dr. AbdelMalek Abu Sheikh's Blog
  • m.hindawi's Blog
  • احمدزمان's Blog
  • الحسامي
  • مدونة أ / محمد صالح
  • yahiaoui's Blog
  • عبدالله المجرب's Blog
  • صيد الخواطر
  • حمادة عمر مدونة
  • مدونة جعفر
  • مدونة عادل حنقي
  • مجدى يونس: لمسة وفاء لمنتدى اوفيسنا
  • Excel Expert Financial&Accounting
  • مدونة اعمال ايقونات الماس لمنتدى اوفيسنا
  • رقائق فى دقائق
  • Shivan Rekany

ابحث عن النتائج فى ......

ابحث عن النتائج التي تحوي ....


تاريخ الانشاء

  • بدايه

    End


اخر تحديث

  • بدايه

    End


Filter by number of...

انضم

  • بدايه

    End


مجموعه


Job Title


البلد


الإهتمامات


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype

  1. السلام عليكم واتتنى فكرة كتابة روتين عام متعدد الخيارات لتكون وظيفته كالاتى احضار مسار ما احضار مسار لملف محدد مع المرونة فى تغيير الامتداد تبعا للاستخدام المطلوب وتوقفت عند محاولة تمرير الامتداد من خلال استخدام المتغير strOptionExtension وتحديد فى هذا السطر المن الكود .Filters.Add "Select File", "*.jpg , *.png" اريد استبدال جزء الامتداد على ان يكون بهذا الشكل .Filters.Add "Select File", strOptionExtension وولاسف فشلت كل محاولاتى Function CustomPicker(Optional ByRef btOptionDialog As Byte = 0, Optional ByRef strOptionExtension As String = "") Dim FileDialog As Object Dim sPath As String Dim sFile As String Select Case Nz(btOptionDialog, 0) 'FilePicker Case Is = 0 Set FileDialog = Access.Application.FileDialog(3) With FileDialog .allowmultiselect = False .Filters.Clear .Filters.Add "Select File", "*.jpg , *.png" If .show = -1 Then .Title = "Please select a File" CustomPicker = .SelectedItems(1) End With 'FolderPicker Case Is = 1 Set FileDialog = Access.Application.FileDialog(4) With FileDialog .allowmultiselect = False .Filters.Clear If .show = -1 Then .Title = "Please select a Folder" CustomPicker = .SelectedItems(1) End With End Select End Function
  2. السلام عليكم ورحمة الله تعالى وبركاته من فضل اساتذى الكرام انا فى مشكلة كبيرة جدا فى عملى بسبب هذا الصدد اسأل الله تعالى ان يهديكم ويهدينى تكمن مشكلتى فى جلب البيانات من مربع متعدد القيم المرفق الاتى قى النموذج الموجود اريد ان يعطينى زر الامر النتيجة المرجوة فى رسالة او فى الـ Immediate Windows By Debug.Print يعنى المفروض النتيجة تكون مساوية لقيم مربع السرد Get Value Combo Box Multi Select.accdb
  3. بسم الله الرّحمن الرحيم السلام عليكمُ ورحمة الله تعالى وبركاته إخوتي في إدارة أوفيسنا؛ بارك الله تعالى بكم، أستسمحكم؛ كان لديّ استِفسارٌ يحتاج برمجة إكسل. ولأنه ليست لي خِبرةٌ في ذلك؛ جعلتُ ملفَ (إكسل)؛ فيه جُلّ البيانات، وكتبتُ البرنامج الذي أودً الوُصول إليه؛ كِتابةً. هذا مُنذ أيًام. مشاركتي التي تحتوي السؤال؛ الآن في الصّفحة الثًالثة من قسم (الإكسل). وأعلمُ أنّ هذا القِسم جدًّ نشط، تَباركَ الله! فعل يُمكنُني رفع مشاركتي؛ لتكون ظاهرة للإخوة الخُبراء؟! وأشكر إخوتي؛ لمجهوداتهم. جزاكم الله تعالى عنّا خَير الجَزاءِ.
  4. السلام عليكم سؤال :: هل هناك طريقة لتشغيل برنامج اكسس على جهاز كمبيوتر لا يحتوي على ماكروسوفت اوفيس ولا اكسس يعني نجعله مثل برمجة c# ينزل انستوول ذاتيا ؟؟ اذا حدا عنده معلومة لا يبخل علينا
  5. السلام عليكم إخواني الأعزاء خبرائنا الأفذاذ بارك الله فيكم .. عندي جدولين الأول جدول به قائمة أسماء المستخدمين .. والثاني جدول خاص بالمهام .. وبه قائمة منسدلة ( متعددة العناصر ) مصدرها جدول الأسماء .. المطلوب هو : في نهاية العام أقوم بإعداد تقرير يحصي لنا عدد المهام التي تم توكيل المستخدم بها .. بمعنى عدد المرات التي تكرر فيها اسمه في القائمة المنسدلة .. بشرط .... المهام الخاصة بهذا العام .. أو العام الذي أحدده أنا ... ماهي الطريقة لعمل ذلك ؟ استعلام أم دالة أم ماذا ؟ أفيدونا بارك الله فيكم .. إحصاء من القائمة المتعددة.accdb
  6. سؤال عن اضاقة قيم من نموذج غير منضم الى حقول فى جدول من خلال Recordset.AddNew الطريقة التقليدية اعلمها ولكن احاول عمل Function يسهل العملية وتدور فكرتى باستدعاء الكود كالاتى Call ApendData("Table Name", "Field Name On Table", Object Name On Form) وهذه الاكواد التى استخدمتها فى الموديول Sub ApendData(ByVal strTableName As String, ByVal strFieldName As String, ByVal strObjectName As String) Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb() Set rs = CurrentDb().OpenRecordset(strTableName) rs.AddNew rs.Fields(strFieldName) = "" & strObjectName & "" rs.Update rs.Close End Sub ولكن المشكلة انه تم اضافة البيانات فى اكصر من سجل حسبب عدد الحقول وبيانات كل حقل قى سجل المفروض ان يتم تسجيل كافة بيانات الحقول فى سدل واحد كيف يمكن عمل ذلك المرفق ApendDataByRecordset.mdb
  7. السلام عليكم ورحمة الله تعالى وبركاته فى موديول عام استخدمت هذا الجزء من الكود ولكن للمرة الأولى تحدث هذه المشكلة معى ولا ادرى السبب Dim db As DAO.Database Dim rs As DAO.Database Set db = CurrentDb() Set rs = db.OpenRecordset("tblErrorLog") rs.AddNew
  8. السلام عليكم ورحمة الله تعالى وبركاته اساتذتى العظماء .. تحية عطرة ما الخطأ فى هذا الكود Dim myWhere As String myWhere = "[FirstName] ='" & [txtFirstName] & "'" myWhere = myWhere & " And" myWhere = myWhere & "[LastName] ='" & [txtLastName] & "'" myWhere = myWhere & " And" myWhere = myWhere & "[DateOfBirth] =#" & Format([txtDateOfBirth], "dd/mm/yyyy") & "#" myWhere = myWhere & " And" myWhere = myWhere & "[SIR]= " & [ChckSIR] Debug.Print myWhere Me.txtCount = DCount("*", "[tblTestCount]", myWhere) Test Dcout.mdb
  9. السلام عليكم احيانا يكون عندنا مثلا مربع نص على النموذج تتغير القيم بداخله نحتاج احيانا ان نمرر هذه القيمة الى الرسالة احيانا حسب الحاجه كيف السبيل الى ذلك فى طريقة جلب الرسائل من سجل بجدول الرسائل من داخل V .01.mdb
  10. السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير وملهمى و والدى الحبيب الاستاذ @jjafferr كان قد أشار على من فترة وجيزة بعدم استخدام الاحرف العربية مطلقا داخل محرر الأكود وسألته عن الرسائل كان قد أشار الى انه يمكن كتباتها داخل جدول مخصص وجلبها وقت الحاجة هذا المرفق ناتج عن تطبيق إرشادات معلمى الجليل وبعد ان توصلت لهذه النتيجة وبعد أن ملئنى السرور بعد تعب وتلاحق الأفكار لالية العمل بل وتغيير مجرى تفكيرى اصلا عند بدء التصميم اصابنى الاحباط فجأه بسبب حرف كنت قد كتبته بالخطأ فلم يجلب الرساله وعوضا عنها كانت رسالة فارغة وتلاحقت الأفكار تباعا بسبب هذه الغلطة الغير مقصودة - ماذا لو تم فقد الجدول الخاص بالرسائل لاى سبب ايا كان - ماذا لو تم حذف اسطر الرسالة من الجدول -ماذا لو تم تغير المعيار الذى استخدمه لجلب الرسالة -ماذا لو تم حذف السجل كاملا و الخاص بتلك الرسالة ... وماذا لو ولو ولو بلا بلا بلا بلا ولذلك فكرت بسد هذه الثغرات القاتلة بتلافى ذلك كله بوضع نفس محتوى الرساله بالانجليزية داخل محرر الأكواد ليتم عرضها فى حالة وجود اى خطأ ما عوضأ عن الرسالة العربية او اى مشكلة قد تطرأ بصراحة واجهت صعوبة بالغة فى التفكير وترتيب أفكارى بترتيب الكود لاصل الى مرادى وبعد تعب وعناء مريرين بفضل الله تعالى تم تقريبا سد كل الثغرات والتى خطرت على بالى بهذا الكود ولكن متعب لانه عند كل رساله لابد من كتابة هذه الاسطر السؤال : هل ممكن اختزالها بشكل ما او عمل كود فى موديول ليسهل الامر لمشاهدة النتيجة - غير اسم الجدول على اعتبار انه تم حذفه وجرب - غير المعيار aa من داخل الجدول - امسح كل اسطر الرساله من الحقول MsgLin1 و MsgLin2 و MsgLin3 و MsgLin4 و MsgLin5 محاور العمل تلافى مسح الجدول او تغيير اسمه المعيار المستخدم لجلب الرسالة التأكد من وجوده اولا داخل الجدول ان لا تكون اسطر الرسالة خالية ( على الأقل سطر واحد لتظهر الرسالة من واقع الجدول ) On Error GoTo ErrHandler If Len(DLookup("[MyCriteria]", "tbllvlUsefulData", "MyCriteria ='aa'") & "") = 0 Then MyMesg ("This alternative message is in English" & vbCrLf & "Due to a bugs in the message table"), vbOKOnly, "The idea of a professor /" & strUserLogin Else strMyCriteria = "MyCriteria ='aa'" If Len(txtOfMesg & "") = 0 Then MyMesg ("This alternative message is in English" & vbCrLf & "Due to a bugs in the message table"), vbOKOnly, "The idea of a professor /" & strUserLogin Else If Len(strMsgTitle & "") <> 0 Then MyMesg (txtOfMesg), vbOKOnly, strMsgTitle & strUserLogin Else MyMesg (txtOfMesg), vbOKOnly, "NEW Title" & strUserLogin End If End If End If ErrHandler: If Err = 3078 Then Resume Next الرسائل من داخل جدول.mdb
  11. برمجة صندوق الرسائل واقصد هنا برمجته بمعنى الكلمة وليس استدعاءه قبل فترة كنت اتمنى تعريب صندوق الرسائل بحثت ووجدت الامثلة المختلفة ودمجتها مع بعص التعديلات وكانت النتيجة رائعة جدا ومرضية بنسبة 100 % الى ان توقفت فجأه وكان السبب خاصية النموذج المنبثق POP UP ان كانت فعاله يتوقف تعريب الازرار حزنت كثيرا ومع ذلك لم افقد الامل ومع البحث على الانترنت وجدت هذه الاكواد التى تخص الفيجوال بيزك http://www.vbforums.com/showthread.php?840593-Message-Box-with-Four-Buttons عدلت بالقدر الذى يتناسب معى النتيجة مرضية كانت مرضية فى بادئ الامر ولكن المشكلة وضعت الامر الذى اريد تنفيذه داخل الموديول عند الضغط على الزر من صندوق الرسائل اعرف ان هذا عبث منى لان الاحداث التى نريدها بعد الضغط على الزر تختلف يوجد حل مبدئيا ولكم مرهق ان لا يكون الجزء من الكود والذى استدعيه فى النموذج من خلال الموديول بل يكون على النموذج مباشرة المشكله فى ذلك - الكود كبير -لابد من وجوده مع كل حدث مختلف يعنى قد نحتاج الى تكراره اكثر من مره داخل النموذج هل من حل او حيلة عند اساتذتى الافاضل هذا هو الكود Public Sub MyMsg2() Dim md_Earlier As MSGBOXDATA_Earlier Dim md_Later As MSGBOXDATA_Later Dim lBtn(2) As Long Dim sTxt(2) As String Dim iRet As Long ' sTxt(0) = "موافق" lBtn(0) = 1 sTxt(1) = "إلغاء" lBtn(1) = 2 ' ' windows Vista and below use earlier structure. If WindowsVersion() < 61 Then With md_Earlier With .params .cbSize = LenB(md_Earlier.params) .lpszText = StrPtr("Text of the message within windows Vista and below use earlier structure") .lpszCaption = StrPtr("Title of the message windows Vista") .dwStyle = vbMsgBoxRtlReading + vbMsgBoxRight Or vbYesNo End With .DefButton = 0 ' >>--> DefaultButtonOfMsgBox .CancelId = 2 ' >>--> Select the Cancel button .cButtons = 2 ' >>--> NumberButtonsOfMsgBox .pidButton = VarPtr(lBtn(0)) .ppszButtonText = VarPtr(sTxt(0)) .Timeout = -1 End With iRet = SoftModalMessageBox_Earlier(md_Earlier) 'MsgBox "Returns the default value of the Button: " & Format$(iRet) ' 'Execute the command after clicking Select Case Format$(iRet) Case Is = 1 'MsgBox "You are now clicking the OK button" DoCmd.SetWarnings False DoCmd.OpenQuery "qq" DoCmd.SetWarnings True Case Is = 2 'MsgBox "You are now clicking the cancel button" End Select ' windows 7 and higher use higher structure.------------------------------------------------------ Else With md_Later With .params .cbSize = LenB(md_Later.params) .lpszText = StrPtr("Text of the message within windows 7 and higher use higher structure") .lpszCaption = StrPtr("Title of the message windows 7") .dwStyle = vbMsgBoxRtlReading + vbMsgBoxRight Or vbYesNo End With .DefButton = 0 ' >>--> DefaultButtonOfMsgBox .CancelId = 2 ' >>--> Select the Cancel button .cButtons = 2 ' >>--> NumberButtonsOfMsgBox .pidButton = VarPtr(lBtn(0)) .ppszButtonText = VarPtr(sTxt(0)) .Timeout = -1 End With iRet = SoftModalMessageBox_Later(md_Later) 'MsgBox "Returns the default value of the Button: " & Format$(iRet) 'Execute the command after clicking Select Case Format$(iRet) Case Is = 1 'MsgBox "You are now clicking the OK button" DoCmd.SetWarnings False DoCmd.OpenQuery "qq" DoCmd.SetWarnings True Case Is = 2 'MsgBox "You are now clicking the cancel button" End Select End If End Sub الكود ينقسك الى قسمين اولا الذى يخص انظمة التشغيل ويندوز فيستا او الادنى منها اصدارا الجزء الثانى الذى يخص انظمة التشغيل ويندوز سفن والاعلى منه اصدارا الجزء من الكود الذى يخص تنفيذ الامر عندما تختر من الرسالة الذغط على زر موافق Select Case Format$(iRet) Case Is = 1 'MsgBox "You are now clicking the OK button" DoCmd.SetWarnings False DoCmd.OpenQuery "qq" DoCmd.SetWarnings True Case Is = 2 'MsgBox "You are now clicking the cancel button" End Select المشكلة التى لاحظتها الان يمكن فتح الرسالة اكثر من مرة او فتح رسالة اخرى معها برمجة صندوق الرسائل.mdb
  12. هل يمكن تطبيق التشفير المستخدم هنا على هذا المرفق اريد تشفير جميع حقول الجدول tbllvlUsers ما عدا الحقلين (UserID , lvlGroupID) على ان يتم اظهار كل البيانات بدون تشفير فى النموذج frmlvlAuthorize او اى نموذج اخر كما فى المرفق الحالى http://www.mediafire.com/file/ioxj1m5onagfao3/SecurityLevel+group.accdb  جزاكم الله خيرا SecurityLevel group.accdb
  13. لدي أستمارة حفظ القرآن الكريم لطلاب فصل ، كل طالب له استمارة خاصة به، كيف أضع أسم الطالب في الاستمارة الخاصة به كي أطبعها باسمه ؟ مثل دمج المراسلات في الوورد ، لكن هذه المرة الاستمارة في الأكسل وأسماء الطلاب في الأكسل . مرفق الملف مع خالص الدعاء والشكر استمارة متابعة حفظ.xls
  14. السلام عليكم,,.. اخواني الاعزاء كيف اقوم بربط جهاز RFID Reader بقاعدة البيانات اكسس هذه صورة الجهاز الجهاز هذا يقرأ بطاقات مثله مثل الباركود لكن كيف اربطة بقاعدة البيانات!؟
  15. السلام عليكم مرحبا إذا كان عندي جدول يحتوي على مشتريات مجموعة من الأشخاص غير مرتبة, علما بان أي شخص يستطيع شراء كثر من منتج كيف أستطيع استدعاء جميع مشتريات الشخص بناءً على معرف خاص به سؤال.zip
  16. سلام الله عليكم ارجو المساعدة فى كتابة اسماء الاصناف بطريقة الية مرفق قاعدة للتوضيح المطلوب.rar
  17. السلام علیكم ورحمة الله وبركاته یا اخوانی كیف الحال، اسأل الله أن یتقبل صیامنا أود أن اسألكم بخصوص برنامج اكسل خالی أستاذ فی معهد تقنی، وقال لی اذا صنعت ملفا فی برنامج اكسل، سأشتری لك سیارةز فقال لی: یجب أن تكون الملف عن تاریخ انتهاء الأدویة اذا أدخلت الصلاحیة، یجب أن یعطیك أیام الاصدار، بالعد التنازلی، مرفق معه ضوء أخضر. واذا جاء عشرة أیام قبل انتهاء الصلاحیة، یجب أن یعطیك العد التنازلی، ولكن باللون الأصفر. واذا انتهی الصلاحیة، یجب أن یعطیك الضوء الأحمر، مع العد التصاعدی. فیا اخوانی من یستطیع فعل ذلك؟ فلیتفضل ویساعدنی، أو یرسل لی الملف إلی البرید: hawre.gul86@gmail.com والسلام علیكم ورحمة الله وبركاته. ملاحظة: قال لی مستحیل أن تعرفوا هذه الفكرة! وهذه الصورة هی ما یطڵبه منی C: name D: start date E: expire date O: resultالنتیجة P: alarmالتنبیه
  18. سلام عليكم اخواني : هل يوجد كود يقوم عند النقر على زر امر يقوم بتحديث النموذج بالكامل والبقاء على السجل الحالي . تاكيد على البقاء على نفس السجل
  19. السلام عليكم ورحمه االله ا لرجاء من الاخوه الافاضل اجابه هذا السؤال وهو هل يوجد حل او طريقه لسحب داله ال VLOOKUPبدون الحاجه لتغيير ارقام الاعمده الخاصه بالشيت المقروء منه بطريقه يدويه خصوصا لو كانت ورقه العمل تحتوى على 500 عمود تقريبا
  20. اريد ان اقوم بعمل اجمالي في الاستعلام الجدولي ( استعلام 1 , استعلام 2 )حيث تم تحويل المدخلات الي رؤس الاعمدة ويظهر الاجمالي في التقرير وشكرا db1.rar
  21. هل يمكن تغير الكود الموجود في هذه المشاركة ليكون في تذييل المجموعة بدلا من في ا لتفصيل في حدث عند الطباعة حل كان من انتلج الاخ العزيز حارث الله يذكره بالخير ضع في حدث عند الصفحة الكود التالي Me.ScaleMode = 1 Me.ForeColor = 0 Me.DrawWidth = 3 وفي التفصيل في حدث عند الطباعة ضع الكود التالي وستحل مشكلتك انشاء الله Dim ctl As Control Dim MaxHeight As Long MaxHeight = 0 For Each ctl In Me If TypeOf ctl Is TextBox And ctl.Section = 0 Then If ctl.Height > MaxHeight Then MaxHeight = ctl.Height End If Next For Each ctl In Me If TypeOf ctl Is TextBox And ctl.Section = 0 Then Me.Line (ctl.Left, 0)-(ctl.Left, MaxHeight) End If Next Me.Line (Me.Width - 3, 0)-(Me.Width - 3, MaxHeight) Me.Line (0, MaxHeight)-(Me.Width - 3, MaxHeight)
  22. السلام عليكم إخواني الاعزاء أريد مثال لإرسال مجوعة السجلات المحددة من feuil1 إلى جدول في قاعدة بيانات الاكسيس 2007 مع العلم فأنا مبتدئ في vba الإكسيل جزاكم الله كل خير.
  23. هل يجود كود يحذف ملف بشرط اختراق حماية الملف
  24. كيف اطبع التباديل والتوافيق
  25. السلام عليكم ورحمة الله وبركاته في البداية نشكركم على ماتقدموه من مساعدة للأخرين اخي الكريم نحن نعمل في مجال المخازن والمطلوب كيفيةظهور اسم الصنف في الخلية المقابلة بمجرد كتابة رقم الصنف بمعنى نكتب في الخلية بي 2 رقم الصنف يضهر تلقائيا اسم الصنف في سي 2 هل هناك دالة معينة او طريقة يمكنكم الرد علينا مشكورين على الإميل
×
×
  • اضف...

Important Information