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

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

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

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

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

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

الاخوة الزملاء شرح مبسط للاكسل بالبوربوينت للمبتدئين بعض الصور رابط الموضوع https://www.4shared.com/rar/SgZgpiN9ei/___.html

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

السلام عليكم و رحمة الله هذا كود منقول من أحد الكتب يجلب أسماء كل التقارير فى القاعدة ويشغلها من كمبوبوكس الكود فى حدث عند التحميل للنموذج Private Sub Form_Load() Dim newvallist As String newvallist = "" Dim obj As AccessObject For Each obj In CurrentProject.AllReports newvallist = newvallist + Chr(34) + obj.Name + Chr(34) + ";" Next obj Me.objCombo.RowSource = "value list" Me.objCombo.RowSource = newvallist Me.objCombo.Value = Me.objCombo.ItemData(0) End Sub ثم فى حدث بعد التحديث للكمبوبوكس لفتح التقارير حسب الاسم المختار Private Sub objCombo_AfterUpdate() DoCmd.OpenReport Me.objCombo, acViewPreview End Sub الملف المستخدم 2003 - 2007 كود أسماء كل تقارير القاعدة الحالية.rar و هذا تعديل للكود بحيث يجلب أسماء التقارير مع مسمياتها التوضيحية كود أسماء كل 8التقارير.rar

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

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

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

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

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

اعذرني أستاذ شفان أصل أنا مبسوط منذ فترة زيادة عن الحد وبحاول أفرغ الشحنة علشان أرجع لأيام النكد أصلها وحشاني

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

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

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

الله الله يا ابا جودي ايه الابداعات دي

لأنه يكتب الكلمة 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

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

طيب جرب النموذج 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 اعطي ماتريد وانا عندي سؤال ما هذه المرفقات مع القاعدة ؟

جرب الاستعلام 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

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

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

هذا مثال بسيط اخي الكريم اذا كان يلبي طلبك ارسل برنامجك ليتم التعديل test1.rar

انا لا أومن بالصدفة وانما هو تخطيط ربّاني والسبب قد يكون مثل ما قال أخي أوس بالفعل محترفين برمجيا وخُلقيا ، ومحترمين جداً وانا أشهد بأن الادارة ايضا هكذا ، وفي مقدمتهم الأستاذ المهندس @محمد طاهر صاحب الموقع ، والقلب النابض له ، وأوسعنا علماً ، وأبسطنا خُلقاً وكلما جار عليّ الدهر ، ألجأ الى الجدار المنيع وأخو الجميع ، أخونا العود @ابوخليل ، وبحكمته ترجع المياه الى مجاريها ، وبعلمه وإصراره يفتح لنا آفاق جديدة ، نتوسع فيها جعفر

في الواقع ، في الكثير من البرامج المجانية التي استعملها ، ولما اجد انها تعمل بالطريقة التي تخدمني ، فانا اذهب الى صفحة الشركة واضغط على زر Donate واتبرع بمبلغ ويكون هذا البرنامج خدمني أكثر من قيمته اضعافا جعفر

وعليكم السلام نعم هو من البرامج القوية في هذا المجال ، ولكن للعلم ، فإن الرنامج تجريبي وبعد مدة تنتهي صلاحيته ولا يعمل ، للعلم فقط جعفر

أحبابي وإخواني الأعزاء لقد افتقدتكم جميعاً ويعلم الله لم يمنعني عنكم إلا الظروف الشديدة والحمد لله على كل حال . هذه هدية متواضعة لكم أحبابي . هام جداً : أرجو قبل التعامل مع الملف ضرورة الاطلاع على ورقة شرح الملف والتي أسميتها " HELP" ويمكن الانتقال إليها وسائر الأوراق من مفتاح " الانتقال إلى " والموجود بكل الأوراق ، وأرجو أن تكون الفكرة فيها ولو بعض الفائدة . وتقبلوا حبي وتقديري أبو عبدالله _________________________________.rar

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