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

تفضل CrossTab2.rar

نعم بالضبط لكن لازم @Elsayed Bn Gemy بينطي الرأي هل يناسبه او نبحث عن طرائق اخرى

والبحث سيكون بالمجموعة او الصنف او الشركة ................. الخ وبذلك سيكون البحث سلس وبسيط

اخي واستاژي القدير سيد جمال السلام عليكم ورحمه‌ الله وبركاته تكدر تستخدم نموذج اخر نموژج بحث حين تبحث على المواد وتضغط على سجل اللي تريد بيضاف الى سجل فاتورة البيع وكما تعرف الطرائق البحث كتير تكدر تستخدمه واذا تريد راح نعمل نموذج على ذلك تحياتي

Private Sub BankDeposit_Click() On Error Resume Next DoCmd.Save DoCmd.OpenForm "BankDeposit",acNormal , , "[Receipt Date]=" & "#" & [Receipt Date] & "#", , acWindowNormal docmd.Close acform,"form1" End Sub وطبعا يتم استبدال form1 باسم النموذج المعني بالتوفيق

اتفضل ما طلبت استخدمت هذا Between Forms![Form1]![txtFirstDate] And Forms![Form1]![txtLastDate] ويعمل عادي اتفضل ملفك بعد اضافة كود الاعلاه CrossTab.zip

طريقة عمل ( فورم ) فاتورة ووضع اكوادها وترحيل بياناتها واستدعائها وطباعتها !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار ولكن ما دعاني لتقديم هذا الموضوع ... هو كثرة طلبه هذه الايام حيث طلبه كثيرا الاخ / محمد توبه ... والاخ / هاني مصطفي ولكني اردت ان اجعل المواضيع الاساسية في عمل اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ( اعانني الله علي اكمالها كما ينبغي ) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والجديد في هذا الموضوع هو انني سأقدم الاكواد اكواد بطريقة بسيطة وسهلة ولكنها طويله بعض الشئ ... ولكن تؤدي نفس الغرص ومرة اخري بأكواد خبورية خالصة ... للاستاذ العلامة القدير الخبير / عبد الله باقشير ... مع شرح الاكواد سطر سطر كما تعودنا وذلك بالطبع بعد اذن القدير الكبير ... ولكن لانه اول من علمنا تقديم المساعدات للغير ... لم استأذنه ولكن انتظر رأيه في الموضوع (((( الدرس الاول )))) نتعرف في هذا الدرس علي عمل بعض التنسيقات اللازمة لعمل الاكواد وخصوصا الاكواد الخبورية بتسمية التكستات بوكس ووضع بعض الاكواد المساعدة للاكواد في الدروس التالية قبل وضع الاكواد الاساسية والخاصة بالترحيل و ..... الخ وكالعادة دائما احب ان اختار اسهل الاكواد علي الاطلاق لسهوله فهمهما وتنفيذها والاعتماد عليها حتي الاكواد الخبورية احببت اختيار اسهلها لما لها من دقة وكفاءة عاليه في تنفيذ المهمة المطلوبة وبالطبع يمكنك تطويع الكود بعد فهمه جيدا لاستخدامه كما تريد في ملفك الشخصي وسأقدم الشرح بطريقة الفيديو المباشر في المشاركة التالية ويمكنكم التحميل منها مع المرفقات ارجو أن يوفقني الله في الشرح وان اكون عند حسن ظنكم جزاكم الله خيرا

بسم الله الرحمن الرحيم السلام عليكم اقدم هذا البرنامج البسيط برنامج : شئون العاملين (التربية والتعليم ) وهوا يهتم بكل ما يخص العاملين بالتربية والتعليم ووحدة التدريب بالمدرسة والبرنامج تم بمساعدة الاساتذة الكبار فى هذا المنتدى الجميل والذى لا ننكر ابدا فضل اساتذته الكبار بارك الله فيهم --------------------------------------- والبرنامج قابل للاضافة والتعديل فى مخرجاته وارجوا من الاساتذة فحص البرنامج وتحديد ان كان به اخطاء ام لا وفى النهاية تحية حب وتقدير الى جميع اعضاء هذا الصرح الجميل شئون العاملين.rar

اقصد بان اسماء الصور وجدته مكرر بالمرفق الاخير .! هل لاحظتها بالجدول؟

السلام عليكم لقد قمت بإضافة هذا الكود للمرفق: For i = 0 To DeleteList.ListCount - 1 If DeleteList.Selected(i) = True Then strname = strname & vbCrLf & _ DeleteList.Column(1, i) End If Next EmploeeCounter.rar

عدل قيمة المتغير التالي وفي السطرين كما يلي ImageFilename = nz(Me!picno,0) + 1 & ".png" Else ImageFilename = nz(Me!picno,0) + 1 & ".jpg" وذلك بادخال الدالة nz في السطرين ولاتنسى اعادة اخفاء المربع picno بضبط الخاصية مرئي=لا بالتوفيق

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

هل وصلت لمطلوبك او بعد تريد المطلوب بطريقتك بجدولين دخول وخروج ؟

مثلا بيعمل ليست بوكس في نفس النموذج وبيكون عليها بحث وعند النقر مرتين على سجل اس سجل يتم اضافته الى الفاتورة

اي يعني ما تريد ان يظهر السجلات الا سجل واحد لكي تدخل البيانات ؟ هل انا فهمت بالصحيح

مشاركة مع الاستاذ شيفان استاذي الحبيب السيد جمال لا احبذ موضوع البحث عن الصنف بالاسم وذلك لانه فيما بعد سوف يكون احتمال كبير في تغيير الاسم ولذلك احبذ موضوع الكود لانه ثابت لا يتغير وطبعا سيكون الادخال اما عن طريق ادخال كود الصنف مباشرة او عن طريق الباركود كما اشار استاذ شيفان والميزة في ذلك انه مهما تغير اسم الصنف سيظل الكود ثابت تحياتي نعم استاذي خلي الكود صغير نسبيا بمعني 4 او 5 ارقام حتي لا يكون عملية الادخال شاقة على البائع بمعنى مجموعة الاسلاك او الكابلات تبدأ برقم 1 1001 كابل 100 ملل 1002 كابل 200 مللي 1003 ...... الخ مجموعة اللمبات و الاضاءة مثلا تبدأ برقم 2 2001 لمبات فلورسينت مقاس كبير نوع كذا 2002 لمبات فلورسنت مقاس وسط نوع كذا .... الخ وعلية سوف يكون عملية الادخال بسيطة وسلسة شكرا لك اخى الكريم بس انت عارف علشان اخليه يشترى طابعة للباركود ب 3000 جنيه وقارئ كمان بقدهم العملية صعبة شوية اما بخصوص لاصق الباركود نفسة اللي موجود على الصنف حتي يتعرف الكاشير على كود الصنف فممكن تطبع ورقة واحدة فقط لكل صنف على ورق استيكر عادي وتضعة عن مكان تخزين هذا الصنف او عند الكاشير وعلية سوف يقوم الكاشير برؤية كود الصنف وادخالة مباشرة الى البرنامج ، ومع الوقت والتكرار ستكون العملية سلسة رؤية

كيف ندخل اسم جديد حين بيكون سجل جديد مخفي ؟ او انا مافهمت قصدك اتفضل استخدم هذا الكود قبل اوبديت اي قبل تحديث لحقل اي دي نام If DCount("[id_name]", "STU", "[id_name]='" & Me.id_name & "'") > 0 Then MsgBox ("هذا الاسم مدخل مسبقا") Cancel = -1 End If اتفضل ملفك بعد تعديل chk.rar

السلام عليكم ورحمة الله وبركاته اخي واستاذي الفاضل سيد جمال اذا المحل بيستخدم باركود من المستحسن ان نستخدم الكود والا سنختار مربع تحرير وسرد ومن الافضل ان نستخدم كلاهما بسوى تحياتي

بالنسبة لاضافة سجل جديد تكدر تستخدم هذا الكود بدل الكود السابق On Error Resume Next If Me.id_stu = NewRecord Or IsNull(Me.id_stu) = True Then Exit Sub Else Dim SQL As String Dim SQL1 As String SQL = "UPDATE stu SET stu.yn = false WHERE (stu.id_stu)<>[Forms]![stu]![id_stu]" DoCmd.RunSQL SQL Me.ÊÏÞíÞ7 = True Me.Refresh End If لكن ما فهمت قصدك اليك قاعدة بعد تعديل chk.rar

@رمهان الاستاذ : رمهان جزاك الله كل خير وشكرا على المعلومه وبالفعل هذا الذي اريده أخوك محمد

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

جربت وتمام ولا مشكله انظر المرفق zoozo.rar

ربما يساعدك هذا الملف Date_If.rar

قم بعمل استعلام به كل البيانات وقم بعمل فورم به حقول نص تحتوى على اسماؤ المتغيرات المطلوبة (الاسم و الدرجة والمرتب وهكذا) فى الاستعلام اعمل انشاء وضع اسف كل حقل حقل الفورم المنش مسبقاً سيتم طباعة التقرير عند الاختيار من الفورم جرب كده ده حط رقم 1 والاسم mohamed وشوف النتيجة Database2.rar

هل من الممكن موظف يدخل البناية ويخرج واحد اخر شوف الصور اذا ما فهمت من قصدي غدا راح اشرح لك اللي مافي الصور تحياتي

كل شي تمام عندي الطباعة والتحويل تحياتي

شوف العلاج في المرفق ساعات عمل الموظفين.rar

=INDEX($C$2:$C$22,MATCH(TRUE,$L$3&$G5=$A$2:$A$22&$B$2:$B$22,0))+INDEX($C$2:$C$22,MATCH(TRUE,$L$4&$G5=$A$2:$A$22&$B$2:$B$22,0))+INDEX($C$2:$C$22,MATCH(TRUE,$L$5&$G5=$A$2:$A$22&$B$2:$B$22,0)) جرب هذه المعادلة في الخلية H5 واسحب نزولاُ المعادلة يلزمها (Ctr+Shift+enter) و ليس Enter وحدها

جرب المرفق Sh. 2017salim.rar

لا والله اسف لانك ما قلت انه بيعمل تكرار كم مرات لذا ما انتبهت لهذا اتفضل من جديد ساعات عمل الموظفين.rar

شوف في المرفق القي نظرتا على استعلام المشكلة ساعات عمل الموظفين.rar

عليكم السلام اخي الطاير ولنفترض ان حقل الرقم القومي اسمه civil_no الطريقة الاولي ضع في خصائص الحقل بالجدول عند خاصية input mask القناع 00000000000000 ;0;_ الطريقة الثانية بالنموذج عند خاصية on change if len (me.civil_no.text )<>14 then رسالة بالخطأ me.civil_no.set focus end if بالتوفيق

أخي الكريم أبو حمادة يبدو لي أنك تقوم بتغييرات في الكود .. مما يتسبب في حدوث مشاكل إليك الملف المرفق التالي لم يتم فيه تنفيذ الكود .. يعني نسخة أصلية كما أرفقتها في مشاركة سابقة .. جرب الملف وأعطي ملاحظاتك !! انقر على صورة "إنا فتحنا لك فتحاً مبيناً" ... لو فيه أية ملاحظات يرجى ذكر ملاحظة واحدة فقط .. وتذكر كيف حدثت المشكلة ؟ أي ما هي الإدخالات التي سببت المشكلة؟ لن ارفق أكواد .. سأرفق ملف مرفق وأمري لله Filter Data By Dates & Transfer Skipping Formula Rows YasserKhalil.rar تم تعديل الملف المرفق .. دعك من الإصدار الأول للملف ..جرب الملف التالي (الإصدار الثاني) حيث اكتشفت بعض الأخطاء وتمت معالجتها إن شاء الله Filter Data By Dates & Transfer Skipping Formula Rows YasserKhalil V2.rar

السلام عليكم أولاً : الأمان والحماية لحماية قاعدة البيانات من التعديل وتحديد مسئولين للقيام بذلك من القائمة أدوات اختر الأمان ستلاحظ التالي . أ ) تعيين كلمة مرور قاعدة البيانات لتعيين كلمة مرور لقاعدة البيانات . انقر على الخيار السابق . بعد النقر ستلاحظ ظهور النافذة التالية . قم بإدخال كلمة مرور للقاعدة ثم اضغط على موافق ليتم حفظ الكلمة التي وضعتها . ب) مسئول مجموعة العمل لتعيين مسؤول لمجموعة العمل ( قاعدة البيانات ) . انقر على الخيار السابق . ستلاحظ ظهور هذه النافذة ج) أذونات المستخدمين والمجموعات لتخصيص أذونات المستخدمين والمجموعات . اختر الخيار السابق ستلاحظ ظهور هذه النافذة د) حسابات المستخدمين والمجموعات لتعديل المستخدمين والمجموعات وكلمات المرور . اختر الخيار السابق . ستلاحظ ظهور هذه النافذة هـ) معالج الأمان على مستوى المستخدم يتفعل الخيار السابق على قاعدة بيانات Microsoft Access (.adp)‎. عند استخدام أمان مستوى المستخدم في قاعدة بيانات Access، يمكن لمسئول قاعدة البيانات أو مالك الكائن منح أذونات محددة للمستخدمين أو لمجموعات من المستخدمين إلى جداول واستعلامات ونماذج وتقارير ووحدات ماكرو. . لعمل ذلك انقر على الخيار السابق د) ترميز / فك ترميز قاعدة البيانات يؤدي ترميز قاعدة البيانات إلى ضغط ملف قاعدة البيانات وحمايته من القراءة من قبل معالج كلمات. لا يوجد تأثير لترميز قاعدة البيانات التي لم يتم تطبيق إجراءات تأمين عليها لأنه بإمكان أي شخص فتح قاعدة البيانات والحصول على حق وصول كامل لكافة الكائنات الموجودة في قاعدة البيانات. ويكون الترميز مفيداً خصوصاً عند قيامك بإرسال قاعدة البيانات إلكترونياً، أو عند قيامك بتخزينها على أقراص مرنة أو أقراص مضغوطة ......... إلخ من وسائط التخزين . قبل أن تتمكن من ترميز قاعدة البيانات أو فك ترميزها، يجب إما أن تكون مالك قاعدة البيانات أو، إذا تم تطبيق إجراءات تأمين على قاعدة البيانات، يجب أن تكون عضواً من مجموعة المسؤولين لملف معلومات مجموعة العمل الذي يحتوي على الحسابات المستخدمة في حماية قاعدة البيانات. يجب أن تكون قادراً أيضاً على فتح قاعدة البيانات في الوضع الخاص، مما يعني أن يكون لديك أذونات فتح/تشغيل وأذونات الفتح الخاص. - أما فك الترميز عن قاعدة البيانات فيؤدي إلى إلغاء الترميز . للمعلومية يعتبر ترميز قاعدة البيانات أسهل أسلوب للحماية. لأجراء الترميز أو إلغائه اختر الخيار السابق . ثانياً : طباعة ما تريده من قاعدة البيانات لطابعة جدول أو تقرير أو نموذج أو صفحة وصول للبيانات أو استعلام قم أولا بفتح ما تريد طباعته ثم من القائمة ملف اختر طباعة

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