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

اداة للكتابة بطريقة ثلاثية الابعاد داخل برنامجك صور الشرح واتفضلوا الاداة OFFICENA 3D.rar

السلام عليكم هنا مشاركات يمكن لها علاقة كما انه اعتقد انه لابد من فتح التقرير او عمل نسخة منه في الذاكرة وهنا: 1. طريقة فتح التقرير في وضع التصميم غير مناسبه وخصوصا اذا تم تحويل القاعده الى mde او accde والاصح فتحه مع تمرير باراميتر الاخفاء ليكون مخفي ويمكن كذلك والافضل تعديل مصدر بياناته الى لاشي حتى لا يتم تحميل البيانات وبدون حاجه 2. هناك فكرة غير العنوان وهي الوصف والتي يمكن كتابنها بالماوس الايمن على التقرير ثم خصائص ثم اكتب وصف للتقرير وهنا يمكن قراءة اسم التقرير ووصقه دون الحاجة الى فتحه تقبلو تحياتي تعديل على الملف باول مشاركة اضافة جدول واضافة كمبو بالنموذج تقبلو تحياتي كود أسماء كل التقارير.rar

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

الف شكر استاذي الفاضل بالفعل انت مبدع دائما جزاك الله كل خير وزادك الله من علمه وكل عام وانت بخير بس شوف اخي الفاضل المرفق المفروض حرف العين في ذكر يعطيني لجنه 4 هنا عطيني لجنه 3

اصدقائي الاكارم تحية طيبة استكمالا للموضوع احببت ان اضع تطبيق كامل لانشاء نسخة احتياطية عن جداول قاعدة البيانات الجديد هنا ان النسخة مضغوطة ببرنامج Winrar ومحمية بكلمة سر ملاحظة : التطبيق حاليا ياخد نسخة احتياطية عن الجداول المضمنة في قاعدة البيانات و ليس المرتبطة كلمة السر هي 1 وللموضوع تتمة إن شاء الله rartest1.rar

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

اعتذر ابا جودي لم اكن على اطلاع بمرفقك

الغريبة ، أني تقريبا الوحيد الذي يوقع على كل مشاركة بإسمه ، جعفر ومع هذا ، فتقريبا الكل لا يناديني بإسمي ، وإنما بـ jjafferr jjafferr

طيب على العموم مش لازم نصالحكم النهاردة كمان غدا مش فاضي

ربنا ما يجيب زعل كلنا اخوات

السلام عليكم أخي حمادة هذا الموضوع مخالف لقوانين المنتدى: و بصفة خاصة نؤكدعلى ما يلي1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. و 6. يجب ان يكون عندك سؤال واحد في الموضوع رجاء فتح موضوع آخر ، مع مراعاة النقاط اعلاه جعفر

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

السلام عليكم - جزيت خيرا - العمل ممتاز الله يرضى عليك

ههههههه شوفت يمكن ضغط الشغل بس اصل انا عامله وانا فى الشغل فى اخر نص ساعة كان الواحد خلاص هينام على نفسه

العفوووو اخى الحبيب

لأنه يكتب الكلمة 7 مرات عن شكل طبقات نقدر نقول خدعة جميلة شكرا لك اباجودي على الهدية

السلام عليكم اخى الكريم يمكنك ان تستخدم الكود التالي كأحد طرق الحل .. علة المطلوب تماماً Option Explicit Sub GetUniques() Dim d As Object, c As Variant, i As Long, lr As Long Set d = CreateObject("Scripting.Dictionary") lr = ورقة3.Cells(Rows.Count, 2).End(xlUp).Row c = ورقة3.Range("b2:b" & lr) For i = 1 To UBound(c, 1) d(c(i, 1)) = 1 Next i ورقة9.Range("B2").Resize(d.Count) = Application.Transpose(d.keys) With ورقة9.Range("C2:C" & d.Count + 1) .FormulaR1C1 = "=LOOKUP(2,1/('قائمة حساب الفواتير'!R2C2:R10000C2=RC[-1]),'قائمة حساب الفواتير'!R2C4:R10000C4)" .Value = .Value End With End Sub اعطاء رمز للمادة واعتماد السعر الاخير للمادة123_2.rar

فيديو شرح للتعامل مع الفورم من الموضوع على الرابط التالى

انت على الحق الخطأ من عندي افتح محرر فيجوال واحذف هذا Or Left(Me.myname, 1) = "ع" من هذا السطر وبالنسبة ما شفت في الكود اي خطأ وحقا النتيجة بيعطي الخطأ واخير عملت تغير تسلسلي في الكود وضبطت اليك ملفك بعد تعديلين فيها بحث مساهم.rar

وحرف الحاء في ذكر المفروض يعطيني لجنه 2 بيعطيني لجنه 1

بسيطة لا تستخدم الماوس عفوا قصدي يعني هناك كود عند تحريك الماوس .. ماهو الكود ؟ و هل هو مهم جدا ام لا ؟ هل نقدر بدل ان نستخدم عند تحريك الماوس ان نستخدم في مكان اخر ؟ هذا وهذا و هذا واليك اكثر من هذا لازم نعرفه جيدا ! لذا يجب ان ترفق قاعدة مصغرة من قاعدة بياناتك اي نريد تلك النموذج مع مصدره لكي نشوفه تقبل تحياتي

شكرا جزيلا لك أخي الغالي شفان هذه هو بضبط

وهذه الأداة هدية مني خاص لاستاذي الحبيب @ابوخليل ولكل اعضاء ومن يستخدم اوفيس اصدار 2003 ويريد ان يستخدم اصدرا احدث بواجهة 2003 اي بها قوائم اصدر 2003 او من يستخدم اصدار اعلى من 2003 وعنده ذكريات مع قوائم اصدار 2003 اتفضل من هنا http://www.officeclassicmenu.com/en/download.html

طيب جرب النموذج frm_MonthlyWorkers 11115.rar

بكل سرور اتفضل اليك قاعدتين الاول قاعدة بياناتك عملت فيها العملية الرياضية والثاني هو خاص لتحصيل الى رقم التسجيل يعني فقط راح تعطي القاعدة الاولى الى المشتري والثاني راح يكون عندك حين واحد بيحاول فتح القاعدة بياناتك يجب ان يسجل وكيف راح يسجل يجب ان يتصل بك و راح تطلب منه الرقم اللي ظهر عنده بعد هو يعطيك الرقم راح تكتب انت الرقم في مربع الاول اللي عندك بعدين تضغط على زر كشف رقم التسجيل سيظهر لك رقم الاخر وراح ترسل له هو راح يدخل ذاك الرقم وراح يسجل عنده هذا راح يصير فقط لمرة واحدة وبعد تسجيل ماراح يطلب منه مجددا على ذلك الجهاز الا بعد الفورمات الجهاز Database6.rar crackForCudi.rar

تحية طيبة اخوتي اخي ابا جودي جعلت الامتداد Rarx عوضا عن Rar لكي يميز المستخدم النسخة الاحتياطية عند استعادتها لو كانت بالامتداد Rar عندها ستظهر جميع الملفات المضغوطة و قد يخطئ المستخدم في الملف و يفتح ملف آخر اخي شيفان كلامك صحيح بالنسبة لكلمة المرور فهي بعد الحرفين -hp اما الملفات المرفقة فهي برنامج الوين رار نفسه و نسخة التسجيل الخاصة به طبعا قمت ايضا بتعديل لاحقة برنامج الوين رار حتى لا يصاب بفيروس

استأذن من استاذنا @ابا جودى و @أمير2008 اتفضل القي نظرتا الى هذا تقدر تستخدم احد هذه الاكواد Private Sub Form_Current() On Error Resume Next Me.Text15 = Me.رقم_الدرجة Me.Refresh If Me.Text15 <= DCount("[رقم الطالب]", "جدول_الدرجة", "[رقم الطالب]=" & Me.رقم_الطالب) - 1 Then Me.رقم_الدرجة.Locked = True Me.رقم_الطالب.Locked = True Me.رقم_المادة.Locked = True Me.اسم_المادة.Locked = True Me.الدرجة.Locked = True Else Me.رقم_الدرجة.Locked = False Me.رقم_الطالب.Locked = False Me.رقم_المادة.Locked = False Me.اسم_المادة.Locked = False Me.الدرجة.Locked = False End If End Sub او Private Sub Form_Current() On Error Resume Next Me.Text15 = Me.رقم_الدرجة Me.Refresh If Me.Text15 <= DCount("[رقم الطالب]", "جدول_الدرجة", "[رقم الطالب]=" & Me.رقم_الطالب) - 1 Then Me.AllowEdits = False Else Me.AllowEdits = True End If End Sub اليك قاعدة بياناتك stu.rar

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

الف شكر علي التعاون وربنا يجعله في ميزان حسناتكم

السلام عليكم اخي الكريم المطلوب غير واضح.. ما المقصود بإعطاء رمز لكل ماده.. هل تقصد بكتابه الرمز تظهر الماده؟؟؟؟... واي سعر باي عمود يعد السعر الاخير للماده.. ايضا لاحظت ان الاسعار بالدينار العراقي وليس الدولار..؟؟؟؟ يرجي مزيد من التوضيح

شكرا استاذي الفاضل هذا بالضبط ما اريده جعلها الله حسنات في ميزانك

اتفضل اليك هذا الكود If DCount("[id]", "table1", "[id]=" & Me.Text1) > 0 Then If MsgBox("هل تريد ان تحذف سجل رقم ( " & Me.Text1 & " ) فعلا", vbYesNo + vbMsgBoxRight, "") = vbYes Then Dim sql As String sql = "DELETE Table1.ID, Table1.NAME, Table1.TEL, Table1.DATE FROM Table1 WHERE (((Table1.ID)=[Forms]![Form1]![Text1]));" DoCmd.SetWarnings False DoCmd.RunSQL (sql) DoCmd.SetWarnings True MsgBox "تم حذف السجل المرقم ( " & Me.Text1 & " ) بنجاح" Me.Text1 = "" End If ' msgbox Else MsgBox "ليس لدينا اي سجل برقم ( " & Me.Text1 & " ) في جدولنا" End If ' dcount وهذا قاعدة بايناتك بعد اضافة الكود الاعلاه ID.rar

وعليكم السلام انا كلما رأيت الى رسالة OLE و عنصر ActiveX ، كلما جاء في بالي اعدادت الوندوز: جعفر

الاخ وائل شكرا لك واليك هدية على الرابط التالى

اشكرك على تقبلك وشرحك لقد اضفتهم الان كيف ربطت بينهم كيف جعلت البيانات تظهر بسجل واحد

اولا اضفت لك حقل جديد في جدول لرمز اللجنة و ستكتب في حدث بعد تحديث ال gender او تقدر تستخدم في حدث عند الحالي او اذا اذا عندك اسماء مكتوبة تقتدر تستخدم في خلف زر و تستخدم مع الكود فور تو لكي يسجل في كل سجلات لكن بعد ما عطيتني كل الاحتمالات اتفظل قاعدة بياناتك بعد اضافة حقل الخاص للجنة واضافة هذا الكود Private Sub Gender_AfterUpdate() If Me.Gender = "ذكر" And Left(Me.myname, 1) = "ا" Or Left(Me.myname, 1) = "أ" Or Left(Me.myname, 1) = "إ" Or Left(Me.myname, 1) = "آ" Or Left(Me.myname, 1) = "ب" Or Left(Me.myname, 1) = "ت" Or Left(Me.myname, 1) = "ث" Or Left(Me.myname, 1) = "ج" Then Me.committee = "لجنة 1" ElseIf Me.Gender = "انثى" And Left(Me.myname, 1) = "ا" Or Left(Me.myname, 1) = "أ" Or Left(Me.myname, 1) = "إ" Or Left(Me.myname, 1) = "آ" Or Left(Me.myname, 1) = "ب" Or Left(Me.myname, 1) = "ت" Or Left(Me.myname, 1) = "ث" Or Left(Me.myname, 1) = "ج" Or Left(Me.myname, 1) = "ح" Then Me.committee = "لجنة 1" ElseIf Me.Gender = "ذكر" And Left(Me.myname, 1) = "ح" Or Left(Me.myname, 1) = "خ" Or Left(Me.myname, 1) = "د" Or Left(Me.myname, 1) = "ذ" Or Left(Me.myname, 1) = "ر" Or Left(Me.myname, 1) = "ز" Then Me.committee = "لجنة 2" ElseIf Me.Gender = "انثى" And Left(Me.myname, 1) = "خ" Or Left(Me.myname, 1) = "د" Or Left(Me.myname, 1) = "ذ" Or Left(Me.myname, 1) = "ر" Or Left(Me.myname, 1) = "ز" Or Left(Me.myname, 1) = "س" Or Left(Me.myname, 1) = "ش" Then Me.committee = "لجنة 2" ElseIf Me.Gender = "ذكر" And Left(Me.myname, 1) = "س" Or Left(Me.myname, 1) = "ش" Or Left(Me.myname, 1) = "ص" Or Left(Me.myname, 1) = "ض" Or Left(Me.myname, 1) = "ط" Or Left(Me.myname, 1) = "ظ" Then Me.committee = "لجنة 3" ElseIf Me.Gender = "انثى" And Left(Me.myname, 1) = "ص" Or Left(Me.myname, 1) = "ض" Or Left(Me.myname, 1) = "ط" Or Left(Me.myname, 1) = "ظ" Or Left(Me.myname, 1) = "ع" Or Left(Me.myname, 1) = "غ" Or Left(Me.myname, 1) = "ف" Or Left(Me.myname, 1) = "ق" Then Me.committee = "لجنة 3" ElseIf Me.Gender = "ذكر" And Left(Me.myname, 1) = "ع" Then Me.committee = "لجنة 4" ElseIf Me.Gender = "انثى" And Left(Me.myname, 1) = "ك" Or Left(Me.myname, 1) = "ل" Or Left(Me.myname, 1) = "م" Or Left(Me.myname, 1) = "ن" Or Left(Me.myname, 1) = "ه" Or Left(Me.myname, 1) = "و" Or Left(Me.myname, 1) = "ي" Then Me.committee = "لجنة 4" ElseIf Me.Gender = "ذكر" And Left(Me.myname, 1) = "غ" Or Left(Me.myname, 1) = "ف" Or Left(Me.myname, 1) = "ق" Or Left(Me.myname, 1) = "ك" Or Left(Me.myname, 1) = "ل" Or Left(Me.myname, 1) = "م" Or Left(Me.myname, 1) = "ن" Or Left(Me.myname, 1) = "ه" Or Left(Me.myname, 1) = "و" Or Left(Me.myname, 1) = "ي" Then Me.committee = "لجنة 5" End If End Sub وفي حدث الحالي انا كتبت Gender_AfterUpdate لكي اذا تفتح اي سجل يسجله اذا عندك سجلات مسجلة من قبل وتقدر تحذفه بعد تسجيل بحث مساهم.rar

حسب فهمي للموضوع هنا سيتم تغير الرقم سري a -hp1 بدل رقم 1 اعطي ماتريد وانا عندي سؤال ما هذه المرفقات مع القاعدة ؟

عفوا على التأخير الرد اتفضل اليك طريقة تقدر تستخدم دالة if هكذا If Me.Gender = "ذكر" And Left(Me.myname, 1) = "ا" Or Left(Me.myname, 1) = "ب" Or Left(Me.myname, 1) = "ت" Or Left(Me.myname, 1) = "ث" Or Left(Me.myname, 1) = "ج" Or Left(Me.myname, 1) = "ح" Then Me.committee = "لجنة 1" ElseIf Me.Gender = "انثى" And Left(Me.myname, 1) = "ا" Or Left(Me.myname, 1) = "ب" Or Left(Me.myname, 1) = "ت" Or Left(Me.myname, 1) = "ث" Or Left(Me.myname, 1) = "ج" Then Me.committee = "لجنة 1" ElseIf Me.Gender = "ذكر" And Left(Me.myname, 1) = "خ" Or Left(Me.myname, 1) = "ر" Or Left(Me.myname, 1) = "د" Or Left(Me.myname, 1) = "ز" Or Left(Me.myname, 1) = "ذ" Then Me.committee = "لجنة 2" ElseIf Me.Gender = "انثى" And Left(Me.myname, 1) = "خ" Or Left(Me.myname, 1) = "ر" Or Left(Me.myname, 1) = "د" Or Left(Me.myname, 1) = "ز" Or Left(Me.myname, 1) = "ذ" Then Me.committee = "لجنة 2" End If انا قلت لك اعطيني كل الاحتمالات اي أي لجنة بيأخذ اي حروف للرجال والنساء مثلا اذا لجنة رقم 3 بيأخذ الحروف ط ش س ع ق مثلا للرجال والنساء تقدر ان لا تستخدم في ذلك السطر من الكود Me.Gender = "انثى" او "ذكر" لأن كل منها بيأخذ نفس الحروف اتمنى لن يوصل لك المطلوب تقبل تحياتي

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

انا عجتنى الفكرة جدا وفى انتظار استكمال الموضوع وكيف يمكن تغيير رقم كلمة مرور الملف المضغوط وليه حضرتك عملت امتداد الملف الناتج عن النسخ بهذا الشكل .RARX وليه مش .RAR ؟؟؟؟

ممكن المرفق اخى الكريم

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

جرب الاستعلام Qry_Insurance5 11114.rar

السلام عليكم قمت بتجربت مرفق حضرتك منذ قليل الذى يحمل عنوان new على أوفيس 2010 نظام 64 بت وقد حدثت عندى المشكلة التى ذكرتها تماما - واليك الآن ملاحظاتى: 1- المشكلة الآن لا علاقة لها بكون الفورم Pupup - أو Module نعم أو لا 2- سوى أنك تحاول الأنتقال داخل سجلات جملة sql بكود الانتقال داخل الفورم وهذا السبب وراء المشكلة فلكى تنتقل داخل جملة sql نستخدم sql.movefirst - أو sql.movenext وهكذا. جرب هذا التعديل ووافنا بالنتائج DoCmd.OpenForm "Robot2" DoCmd.GoToRecord , , acNewRec Forms![Robot2]![Doc] = Me.T7 Forms![Robot2]![Warehouse] = Me.T9 Forms![Robot2]![Order] = Me.t0 Forms![Robot2]![orient] = Me.T13 Forms![Robot2]![Zdate] = Me.T6 Forms![Robot2]![Type] = "صرف" Forms![Robot2]![entrydate] = Me.Text80 Forms![Robot2]![Ameen] = Me.com DoCmd.Close Dim sql As Recordset Set sql = CurrentDb.OpenRecordset("Transactions", dbOpenDynaset) 'DoCmd.GoToRecord , , acFirst sql.MoveLast: sql.MoveFirst For m = 1 To T8 With sql .AddNew !Code = Code1 !Item = T1 !Doc = T12 !Out = T2 !Notes = T5 .Update End With sql.MoveNext Next m MsgBox "تم الصرف بنجاح", vbInformation, "تم الصرف" T6 = "" T7 = "" T3 = "" T9 = "" T10 = "" T13 = "" Me.Requery

السلام عليكم أخي أوس رجاء النظر في الرابط التالي جعفر

استاذي ومعلمي الفاضل اهلا بك واشكرك علي اهتمامك استاذي الفاضل لاتوجد احتملات غير التي ذكرتها طبعا الرجال هتاخد كل الحروف والنساء كذلك الرجال لجنه (1) يكون اول حرف من اسمهم أ ب ت ث ج ح ولجنه (2) هيكون اول حرف من اسمهم. خ د ز ر ز ولجنه (3) س ش ص ض ط بمعني اني الرجال 5 لجان قسم عليهم الحروف الابجديه علي خمسة لجان طبعا النساء تختلف في انها ليست نفس الرجال في ترتيب الحروف فلجنه (1)في النساء هيكون اول حرف من اسمهم ) أ ب ت ث ج ح خ مع العلم انا لجنه ( 1) في الرجال. هيكون اول حرف من اسمهم. أ ب ت ث ج ح وهذا للتوضيح وللعلم لماذ اخترت في الشرط حقل الجنس لهذا السبب طبعا هنقسم الحروف لابجديه للنساء علي 4 لجان وارجو ان اكون قد اوضحت ما اريد وحزاكم الله خيرا

اولا: شروط المنتدى لا تسمح بهذا ، ثانيا: البرنامج الذي استفيد منه ، اشتريه ، وخصوصا اذا استعماله خلال الفترة التجريبية اثبت جدارته جعفر

النسخة الاخيرة من البرنامج شكرا لكل من ساعدنى وشكرا للسادة الافاضل القائمين على هذا الموقع اسم المستخدم : محمود الرقم السرى : 1990 برنامج حساب 1العجز والزيادة.rar

السلام عليكم ورحمة الله إليك بالملف التالي الذي يحوي 5 صفحات وزعتها على 5 مقاطع (كل صفحة بمقطع) وكل صفحة لها إطارها الخاص بها... Ex_Bord.doc Ex_Bord.rar