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

السلام عليكم واتتنى فكرة كتابة روتين عام متعدد الخيارات لتكون وظيفته كالاتى احضار مسار ما احضار مسار لملف محدد مع المرونة فى تغيير الامتداد تبعا للاستخدام المطلوب وتوقفت عند محاولة تمرير الامتداد من خلال استخدام المتغير 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

السلام عليكم ورحمة الله تعالى وبركاته من فضل اساتذى الكرام انا فى مشكلة كبيرة جدا فى عملى بسبب هذا الصدد اسأل الله تعالى ان يهديكم ويهدينى تكمن مشكلتى فى جلب البيانات من مربع متعدد القيم المرفق الاتى قى النموذج الموجود اريد ان يعطينى زر الامر النتيجة المرجوة فى رسالة او فى الـ Immediate Windows By Debug.Print يعنى المفروض النتيجة تكون مساوية لقيم مربع السرد Get Value Combo Box Multi Select.accdb

بسم الله الرّحمن الرحيم السلام عليكمُ ورحمة الله تعالى وبركاته إخوتي في إدارة أوفيسنا؛ بارك الله تعالى بكم، أستسمحكم؛ كان لديّ استِفسارٌ يحتاج برمجة إكسل. ولأنه ليست لي خِبرةٌ في ذلك؛ جعلتُ ملفَ (إكسل)؛ فيه جُلّ البيانات، وكتبتُ البرنامج الذي أودً الوُصول إليه؛ كِتابةً. هذا مُنذ أيًام. مشاركتي التي تحتوي السؤال؛ الآن في الصّفحة الثًالثة من قسم (الإكسل). وأعلمُ أنّ هذا القِسم جدًّ نشط، تَباركَ الله! فعل يُمكنُني رفع مشاركتي؛ لتكون ظاهرة للإخوة الخُبراء؟! وأشكر إخوتي؛ لمجهوداتهم. جزاكم الله تعالى عنّا خَير الجَزاءِ.

السلام عليكم سؤال :: هل هناك طريقة لتشغيل برنامج اكسس على جهاز كمبيوتر لا يحتوي على ماكروسوفت اوفيس ولا اكسس يعني نجعله مثل برمجة c# ينزل انستوول ذاتيا ؟؟ اذا حدا عنده معلومة لا يبخل علينا

السلام عليكم إخواني الأعزاء خبرائنا الأفذاذ بارك الله فيكم .. عندي جدولين الأول جدول به قائمة أسماء المستخدمين .. والثاني جدول خاص بالمهام .. وبه قائمة منسدلة ( متعددة العناصر ) مصدرها جدول الأسماء .. المطلوب هو : في نهاية العام أقوم بإعداد تقرير يحصي لنا عدد المهام التي تم توكيل المستخدم بها .. بمعنى عدد المرات التي تكرر فيها اسمه في القائمة المنسدلة .. بشرط .... المهام الخاصة بهذا العام .. أو العام الذي أحدده أنا ... ماهي الطريقة لعمل ذلك ؟ استعلام أم دالة أم ماذا ؟ أفيدونا بارك الله فيكم .. إحصاء من القائمة المتعددة.accdb

سؤال عن اضاقة قيم من نموذج غير منضم الى حقول فى جدول من خلال 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

السلام عليكم ورحمة الله تعالى وبركاته فى موديول عام استخدمت هذا الجزء من الكود ولكن للمرة الأولى تحدث هذه المشكلة معى ولا ادرى السبب Dim db As DAO.Database Dim rs As DAO.Database Set db = CurrentDb() Set rs = db.OpenRecordset("tblErrorLog") rs.AddNew

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى العظماء .. تحية عطرة ما الخطأ فى هذا الكود 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

السلام عليكم احيانا يكون عندنا مثلا مربع نص على النموذج تتغير القيم بداخله نحتاج احيانا ان نمرر هذه القيمة الى الرسالة احيانا حسب الحاجه كيف السبيل الى ذلك فى طريقة جلب الرسائل من سجل بجدول الرسائل من داخل V .01.mdb

السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير وملهمى و والدى الحبيب الاستاذ @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

برمجة صندوق الرسائل واقصد هنا برمجته بمعنى الكلمة وليس استدعاءه قبل فترة كنت اتمنى تعريب صندوق الرسائل بحثت ووجدت الامثلة المختلفة ودمجتها مع بعص التعديلات وكانت النتيجة رائعة جدا ومرضية بنسبة 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

هل يمكن تطبيق التشفير المستخدم هنا على هذا المرفق اريد تشفير جميع حقول الجدول tbllvlUsers ما عدا الحقلين (UserID , lvlGroupID) على ان يتم اظهار كل البيانات بدون تشفير فى النموذج frmlvlAuthorize او اى نموذج اخر كما فى المرفق الحالى http://www.mediafire.com/file/ioxj1m5onagfao3/SecurityLevel+group.accdb  جزاكم الله خيرا SecurityLevel group.accdb

لدي أستمارة حفظ القرآن الكريم لطلاب فصل ، كل طالب له استمارة خاصة به، كيف أضع أسم الطالب في الاستمارة الخاصة به كي أطبعها باسمه ؟ مثل دمج المراسلات في الوورد ، لكن هذه المرة الاستمارة في الأكسل وأسماء الطلاب في الأكسل . مرفق الملف مع خالص الدعاء والشكر استمارة متابعة حفظ.xls

السلام عليكم,,.. اخواني الاعزاء كيف اقوم بربط جهاز RFID Reader بقاعدة البيانات اكسس هذه صورة الجهاز الجهاز هذا يقرأ بطاقات مثله مثل الباركود لكن كيف اربطة بقاعدة البيانات!؟

السلام عليكم مرحبا إذا كان عندي جدول يحتوي على مشتريات مجموعة من الأشخاص غير مرتبة, علما بان أي شخص يستطيع شراء كثر من منتج كيف أستطيع استدعاء جميع مشتريات الشخص بناءً على معرف خاص به سؤال.zip

سلام الله عليكم ارجو المساعدة فى كتابة اسماء الاصناف بطريقة الية مرفق قاعدة للتوضيح المطلوب.rar

السلام علیكم ورحمة الله وبركاته یا اخوانی كیف الحال، اسأل الله أن یتقبل صیامنا أود أن اسألكم بخصوص برنامج اكسل خالی أستاذ فی معهد تقنی، وقال لی اذا صنعت ملفا فی برنامج اكسل، سأشتری لك سیارةز فقال لی: یجب أن تكون الملف عن تاریخ انتهاء الأدویة اذا أدخلت الصلاحیة، یجب أن یعطیك أیام الاصدار، بالعد التنازلی، مرفق معه ضوء أخضر. واذا جاء عشرة أیام قبل انتهاء الصلاحیة، یجب أن یعطیك العد التنازلی، ولكن باللون الأصفر. واذا انتهی الصلاحیة، یجب أن یعطیك الضوء الأحمر، مع العد التصاعدی. فیا اخوانی من یستطیع فعل ذلك؟ فلیتفضل ویساعدنی، أو یرسل لی الملف إلی البرید: hawre.gul86@gmail.com والسلام علیكم ورحمة الله وبركاته. ملاحظة: قال لی مستحیل أن تعرفوا هذه الفكرة! وهذه الصورة هی ما یطڵبه منی C: name D: start date E: expire date O: resultالنتیجة P: alarmالتنبیه

سلام عليكم اخواني : هل يوجد كود يقوم عند النقر على زر امر يقوم بتحديث النموذج بالكامل والبقاء على السجل الحالي . تاكيد على البقاء على نفس السجل

السلام عليكم ورحمه االله ا لرجاء من الاخوه الافاضل اجابه هذا السؤال وهو هل يوجد حل او طريقه لسحب داله ال VLOOKUPبدون الحاجه لتغيير ارقام الاعمده الخاصه بالشيت المقروء منه بطريقه يدويه خصوصا لو كانت ورقه العمل تحتوى على 500 عمود تقريبا

اريد ان اقوم بعمل اجمالي في الاستعلام الجدولي ( استعلام 1 , استعلام 2 )حيث تم تحويل المدخلات الي رؤس الاعمدة ويظهر الاجمالي في التقرير وشكرا db1.rar

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

السلام عليكم إخواني الاعزاء أريد مثال لإرسال مجوعة السجلات المحددة من feuil1 إلى جدول في قاعدة بيانات الاكسيس 2007 مع العلم فأنا مبتدئ في vba الإكسيل جزاكم الله كل خير.

هل يجود كود يحذف ملف بشرط اختراق حماية الملف

كيف اطبع التباديل والتوافيق

السلام عليكم ورحمة الله وبركاته في البداية نشكركم على ماتقدموه من مساعدة للأخرين اخي الكريم نحن نعمل في مجال المخازن والمطلوب كيفيةظهور اسم الصنف في الخلية المقابلة بمجرد كتابة رقم الصنف بمعنى نكتب في الخلية بي 2 رقم الصنف يضهر تلقائيا اسم الصنف في سي 2 هل هناك دالة معينة او طريقة يمكنكم الرد علينا مشكورين على الإميل