نجوم المشاركات

وعليكم السلام 🙂 ما يفرق اذا كان الحقل منظم او لا ، المهم القيمة 🙂 هذا الموضوع يناقش نفس الفكرة ، وبعده طازه 😁 جعفر

تفضل جرب هذا التعديل في اي مكان داخل محرر الأكواد الصق الكود التالي Function NewSours(StartDate As Variant, EndDate As Variant) As Variant On Error Resume Next Dim varFilter As Variant StartDate = Format([TxtStartDate], "\#mm\/dd\/yyyy\#") EndDate = Format([TxtEndDate], "\#mm\/dd\/yyyy\#") If Not IsNull(TxtStartDate) And IsNull(TxtEndDate) Then varFilter = " Format$([Startdate], '\#mm\/dd\/yyyy\#') = '" & StartDate & "' " ElseIf Not IsNull(TxtStartDate) And Not IsNull(TxtEndDate) Then varFilter = " Format$([Startdate], '\#mm\/dd\/yyyy\#') Between '" & StartDate & "' AND '" & EndDate & "'" ElseIf Len(TxtStartDate) = 0 And Len(TxtEndDate) = 0 Then varFilter = Null End If NewSours = "SELECT * FROM tbl_Employ " & IIf(Len(varFilter) = 0, "", "Where " & varFilter) End Function و لاستدعاء الوظيفة استخدم الكود التالي ListData.RowSource = NewSours(TxtStartDate, TxtEndDate) SearchFormatListBox.accdb

123.accdb

وعليكم السلام اجعل التنسيق الشرطي هكذا InStr([notes2];"اعتذار") او يمكن عمل موديول يتم استدعاءه عند فتح النموذج مثلا ...لان طريقة التنسيق مطولة Public Sub colCtrlReq(frm As Form) Dim setColour As String setColour = RGB(175, 175, 175) Dim ctl As Control For Each ctl In frm If ctl.ControlType = acTextBox _ Or ctl.ControlType = acListBox Then If InStr(ctl, "اعتذار") <> 0 Then ctl.BackColor = setColour End If End If Next ctl Set ctl = Nothing End Sub ويتم استدعاءه بهذه الطريقة Call colCtrlReq(Me)

الحدث الذي يقوم بعمل المطلوب هو "عند التغيير" ، ولكن ، وبما ان الحقل (aa2 مثلا) يكون في وضع "تعديل" لما تكتب فيه ، والقيمة اللي فيه لا تكون محفوظه في الحقل بعد ، فلا يمكن استعمال قيمته بعد ، لذا ، يجب الاستعانه بحقل آخر (aa22 مثلا ، كما في الصورة التالية ، باللون البرتقالي ، ومخفي) ، بحيث يأخذ قيمة Text. الحقل aa2 ، وهكذا الحال للحقل الثاني bb2 ، . . عليه تصبح المعادلات: Private Sub Form_Load() Me.aa2 = Empty Me.bb2 = Empty Me.ee2 = Empty Me.aa22 = Empty Me.bb22 = Empty End Sub Private Sub aa2_Change() Me.aa22 = Me.aa2.Text Call Calc_ee2 End Sub Private Sub bb2_Change() Me.bb22 = Me.bb2.Text Call Calc_ee2 End Sub Sub Calc_ee2() Me.ee2 = Val(Nz(Me.aa22, 0)) + Val(Nz(Me.bb22, 0)) End Sub جعفر 1512.Add fields.accdb.zip

السلام عليكم 🙂 الاكسس يخبرنا عن الكثير من الاشياء ، فقط بالنظر اليها ، مثلا: 1. محاذاة حقل الرقم : من الجانب الايمن من الحقل ، 2. محاذاة حقل النص : من الجانب الايسر من الحقل ، 3. محاذاة حقل التاريخ : من الجانب الايمن من الحقل ، انظر الى هذا الجدول الآن ، وتقدر تعرف نوع كل حقل فقط من النظر اليه ، بغض النظر عن اسمه : . خلينا نشوف الحقول التالية في نموذجك . 1. العمود الاول من اليسار : نص + نص = نص 2. العمودالثاني : نص + نص = رقم 3. العمود الاول من اليمين : رقم + رقم = نص هذه معادلاتهم: . فيجب ان يعرف الاكسس ان عليه ان يجمع ارقام (مع ان الحقول نص) ، وهذه بعض الطرق 🙂 جعفر 1512.Add fields.accdb.zip

تفضل جرب هذا التعديل و لا تنسى ان تضع عنوان السيرفر Function NewSours(StartDate As Variant, EndDate As Variant) As Variant On Error GoTo ErrH Dim conn As ADODB.Connection, rs As ADODB.Recordset, strConnString As String, varFilter As Variant StartDate = Format([TxtStartDate], "\#mm\/dd\/yyyy\#") EndDate = Format([TxtEndDate], "\#mm\/dd\/yyyy\#") If Not IsNull(TxtStartDate) And IsNull(TxtEndDate) Then varFilter = " Format$([Startdate], '\#mm\/dd\/yyyy\#') = '" & StartDate & "' " ElseIf Not IsNull(TxtStartDate) And Not IsNull(TxtEndDate) Then varFilter = " Format$([Startdate], '\#mm\/dd\/yyyy\#') Between '" & StartDate & "' AND '" & EndDate & "'" ElseIf Len(TxtStartDate) = 0 And Len(TxtEndDate) = 0 Then varFilter = Null End If '================================================================== strConnString = "عنوان السيرفر" '================================================================== Set conn = New ADODB.Connection conn.Open strConnString Set rs = conn.Execute("SELECT * FROM tbl_Employ " & IIf(Len(varFilter) = 0, "", "Where " & varFilter)) If Not rs.BOF And Not rs.EOF Then rs.MoveFirst 'رؤوس الأعمدة ListData.AddItem rs.Fields(0).Name & ";" & rs.Fields(1).Name & ";" & rs.Fields(2).Name & ";" & rs.Fields(3).Name While (Not rs.EOF) ListData.AddItem rs.Fields(0) & ";" & rs.Fields(1) & ";" & rs.Fields(2) & ";" & rs.Fields(3) rs.MoveNext Wend End If rs.Close Set rs = Nothing ErrH: Exit Function End Function SearchFormatListBox.accdb

ولا يهمك ، تفضل يا سيدي: Dim mySQL As String mySQL = "SELECT * " mySQL = mySQL & " FROM tbl_Employ" mySQL = mySQL & " WHERE Format([Startdate],'yyyymmdd') Between '" & Format(Me.TxtStartDate, "yyyymmdd") & "' And '" & Format(Me.TxtEndDate, "yyyymmdd") & "'" Me.ListData.RowSource = mySQL او على سطر واحد Me.ListData.RowSource = "SELECT * FROM tbl_Employ WHERE Format([Startdate],'yyyymmdd') Between '" & Format(Me.TxtStartDate, "yyyymmdd") & "' And '" & Format(Me.TxtEndDate, "yyyymmdd") & "'" . الامر Format يغير ما ما يحتويه من رقم او تاريخ ، الى نص ، والفضل في هذه المعادلة يعود لأخي @رمهان ، حيث قال : جعفر

🙂

شاهد المرفق تسجيل التاريخ.xlsm

يعني خلاص تم حل طلبك ؟

استعمل العمود اللي على اليمين او اللي في الوسط ، واخبرنا النتيجة 🙂

اخي يجب تغير الطباعة من xlLandscape الي xlPortrait شاهد المرفق Print.xlsm

أسئلة في العقيدة والفرق.docx

استاذنا ومعملنا ومرشدنا ومحلل مشاكلنا / @jjafferr والله اشكرك جدا استاذى الفاضل ولكن ليس هنال اى اعتذارات لان من حقكم توضيح الامور ولكن دعنى اهمس فى اذنيك استاذى الكبير اليس هذا اشبه بصالون اشعار كبيرة وفصاحة فى التعبير ـ انا شخصيا استمعت بهذه الاشعار الجميلة ودقة التعبير والان دعنى اوضح بعض الامور الاستاذ / @احمد الفلاحجياستاذ كبير ومحترم جدا انا اعرفه حق المعرفة ومعلوماته فى اكسس ليست بصغيرة ـ انسان هادئ جدا ربنا يخليله امه ويبارك فيها ـ ويرحم والده ويبارك فى اسرته ويمكن اخذ فى خاطره شويه من الاستاذ/ @مبرمج سابقولانى اعرفه جيدا فهو مسامح جدا واعتقد لايحمل فى خاطره الا كل خير اما الاستاذ والشيخ الكبير / الاستاذ مبرمج سابق فقد اعجبنى جدا اسلوبه ودقة تعبيره وتشبيهاته والاستعارات المكنية والاستعارات التصريحية التى عبر بها ـ والاشعار التى ذكرها واريد ان اوجه كلمة صغيرة الى الاستاذ مبرمج سابق (اعذرنى استاذى) احمد الفلاجى لا يحمل فى داخله الا كل خير ( هذا عن معاملتى معه عن قرب ) استاذى الفاضل / جعفر اشكرك مرة اخرى لطيب مشاعرك وانك تذكرت انى صاحب الموضوع . والمكان هنا كلنا نستفيد منه بركة من اساتذتنا الكبيرة الذين لا يحرمونا من صدق مشاعرهم ومساعدتهم لنا فعلا كل الاحترام والتقدير لكم جميعا

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

نرجو منك أن تضيف ضمن قائمة الإزالة زرا لإزالة عناصر التحكم مثل التي في الصورة فأحيانا ننسخ نصا من بعض المواقع يحتوي عليها بارك الله فيك

جميل جدا جدا استاذ حسين الف شكر لحضرتك وارجو من حضرتك عمل زر ادراج حجز شاكر لك جدا وكذالك تفعيل زر البحث ..وعند الحذف لا يحذف الصف كاملا بل يمسح محتويات الخلايا التي في الصف ققط والف شكر لحضرتك ..كذلك تفعيل التعديل على الحجز 1 - ادراج حجز 2 - تعديل حجز 3- حذف حجز ( ولا يحذف مسلسل الحجز - فقط البيانات التي في الصف ) 4- بحث حجز عند ادخال رقم الججز وعمل بحث لا ياتي بالنتائج

وعليكم السلام 🙂 المشكلة في ان اجهزة الطباعة فيها RAM محدود ، ويعتمد على طبيعة عملها : النوع الارخص ، لا يحتوي على RAM ، النوع الرخيص ، يحتوي بين 32 و 128 MB ، النوع الاغلى قيلا ، يحتوي بين 256 - 512 MB ، بينما الطابعات المتخصصة لطباعة الصور والجرافيكس ، تبدأ ب 1 GB اذا كانت احجام الصور عندك كبيرة (ملف الصورة في المجلد ، وليس في التقرير) ، فقم بتصغيرها (x,y) لتتناسب مع حجم شاشة التقرير (شاشة الوندوز ، مثلا 1920x1080) ، وثم جرب طباعتها . مثلا ، انظر الى حجم ملف طباعة الصور الاربعة اللي ارسلتها للطباعة : . فلا اعتقد بأن طابعتي المنزلية بأن تتجرأ وتحاول طباعة الملف الاكبر 🙂 جعفر

تفضل test22.mdb

تفضل ...اتمني ان تكن انتهت المهمة الملف خلطة العملاء.xlsm

تفضل يا سيدي 🙂 جعفر 1506.Export catiopns to excel.mdb.zip طيّرت المزّة 🤣

كلنا هكذا ونتعلم من اخواننا واساتذتنا ومن تجاربهم العمليه وجزاك الله خيرا ع مشاركتك معنا ما تعرفه فما تعرفه قد اجهله واتعلمه منك فجزاك الله عنى كل خير وجعل ما تقدمه لاخوانك فى ميزان حسناتك اخى محمد 💐🌹 بالتوفيق اخى محمد

فقط ..عليك استخدام هذه المعادلة بصفحة الإحصاء .. وضع ما شئت من الكلمات كما ترى =COUNTIF('ردود النموذج 1'!$B$2:$BX$220,B$1) بسيطة اذا كنت التريد العمل على عمود معين فقط فعليك بتغيير المدى بالمعادلة السابقة الى مدى اى عمود تريد فمثلاً العمود BV ... قستكون المعادلة كالتالى وبالتالى كده اكتملت كل الطلبات ويجب غلق المشاركة =COUNTIF('ردود النموذج 1'!$BV$2:$BV$220,B$1 23.xlsx

ادخال التاريخ الهجري بصورة مباشرةيطلب الكثير من الأصدقاء طريقة لإدخال التاريخ الهجري بصورة مباشرة ثم تحويله الى التاريخ الميلاديهنا سأشرح كيفية ادخال التاريخ الهجري بصورة مباشرة لإمكانية تحويله فيما بعد الى التاريخ الميلادي بدون أي كود أو معادلات معقدةيجب ان نعرف أولا ان الاكسيل يستعمل يوم 1/1/1900 للميلاد كبداية لإدخال التاريخ وجميع الحسابات المتعلقة بالتاريخ تبدأ من هذا التاريخ، وأي ادخال لتاريخ قبل 1/1/1900 يعتبره الاكسيل "نص" "TEXT" ولا يجري عليه أيه حسابات.لإدخال التاريخ الهجري في خلية يجب ان نقوم بعمل تنسيق أرقام لتلك الخلية قبل ادخال التاريخ حسب الخطوات التالية: 1- نختار تنسيق خلايا "Format Cells" 2- من "Number" نختار "Date" 3- من "Calendar Type" نختار "Arabic Hijri" 4- نؤشر على مربع "Input dates according to selected calendar" 5- ننقر على مفتاح OK والان الخلية جاهزة لإدخال التاريخ الهجري بصورة مباشرة واجراء كافة عمليات التاريخ كما لو كانت بالتاريخ الميلادي ملاحظة مهمة: أصغر تاريخ بالهجري يقبله الاكسيل هو 29/8/1317 ويقابل 1/1/1900 الملف المرفق فيه التوضيح وجاهز الى العمل تحويل التاريخ الهجري الى ميلادي والعكس.rar

السلام عليكم لاخ محمد الحسن هذا برنامج بسيط صممته لك عل السريع لاي اضافات نجن في الخدمة تخزين+تعديل لصادر و الوارد.rar

السلام عليكم و رحمة الله هذه هي النسخة الأخيرة للبرنامج بعد اضافة التحابيش و تحبيك التحابيك مع التحية و التقدير نظام_ORGNL.rar

وين ؟