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

هنا اخ محمد كان المطلوب وهو حصرا ورقة بيانات تحياتي

انا برايي اعمل صرف له باسم عجز وانتهت القصة

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

الأخ الكريمredamohamed السلام عليكم جرب المرفق التالى لعلة يفى بالغرض abo_abary_تحويل عملة.zip

تفضل يا أخي تحويل عملة.rar

بعد اذن الاستاذ عبد الله ,, قمت بتعديل ماذال يحتاج الى اصلاح اتمنى ان يفى بالغرض مع خالص تحياتى Aziz2.rar

تحية طيبة اخي الكريم ما رايك لو دمجنا النموذجين معا ؟؟

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

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

اخي الكريم رابط الملف لا يعمل

في مجال اخي الكريم ان ترسل لي ولو ورقة واحدة

اخي مازال الكود لا يعمل باختصار ما اريده كود عند كتابه جزء من الاسم يظهر لي قائمه بالاسماء الموجوده وعندما اختار منها اسم معين يظهر لي باقي البيانات الخاصه بالاسم

شاهد المرفق واخبرنا بما تفكر شريف.rar

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة listview تم ارفاق كود الحل من الفاضل ا / أبوعبد الله مرفق الملف listeview_1.rar listeview.rar و لا تنسونا من صالح الدعاء تحياتى

اخي الكريم هل الملف المرفق لديك اوفى بالغرض ام لا

جرب هذا لملف حاول ان تغير قيمة A1 Or B1 Msg_Box.rar

اضم صوتى لصوت الاستاذ عبد الله

السلام عليكم ورحمة الله وبركاتة تفضل اخي الكريم اخفاء ملف الاكسيل لما يكون الفورم العمل نشط.rar

أسأل الله العظيم ربّ العرش العظيم أن يشفيها، أسأل الله العظيم ربّ العرش العظيم أن يشفيها،أسأل الله العظيم ربّ العرش العظيم أن يشفيها،أسأل الله العظيم ربّ العرش العظيم أن يشفيها، أسأل الله العظيم ربّ العرش العظيم أن يشفيها، أسأل الله العظيم ربّ العرش العظيم أن يشفيها، أسأل الله العظيم ربّ العرش العظيم أن يشفيها. اللهمّ اشفها شفاءً ليس بعده سقمٌ أبداً، اللهمّ خذ بيدها، اللهمّ احرسها بعينك الّتي لا تنام، واكفها بركنك الذي لا يرام، واحفظها بعزّك الّذي لا يضام، واكلأها في الليل وفي النّهار، وارحمها بقدرتك عليها، أنت ثقتها ورجائها يا كاشف الهم، يا مفرّج الكرب، يا مجيب دعوة المضطرّين. اللهم يا مسهل الشديد وملين الحديد ويا منجز الوعيد ويا من توكل كل يوم فى أمر جديد أخرج مرضانا ومرضى المسلمين من حلق الضيق إلى أوسع الطريق بك أدفع عن المسلمين ما لا يطيقون ولا حول ولا قوة إلا بالله العلى العظيم يارب ضاقت بالمسلمين الهموم والمرض فمن لنا سواك يفرجها ربنا أفرغ علينا صبراً وتوفنا مسلمين اللهم أعز الإسلام والمسلمين فى شتى بقاع الأرض أذهب البأس ربّ النّاس، واشفِ وأنت الشّافي، لا شفاء إلّا شفاؤك، شفاءً لا يغادر سقماً. أذهب البأس ربّ النّاس، بيدك الشّفاء، ولا كاشف له إلّا أنت يا ربّ العالمين , امين . اللهمّ إنّي أسألك من عظيم لطفك، وكرمك، وسترك الجميل، أن تشفيها وتمدّها بالصّحة والعافية. اللهمّ لا ملجأ ولا منجا منك إلّا إليك، إنّك على كلّ شيءٍ قدير.

الأخوة الكرام حفظا لجميل الأخ المحترم husamwahab ارجو من جميع الأخوة الأفاضل الدعاء بالشفاء العاجل لوالدة الاستاذ حسام وشكرا للجميع

تفضل عدل الكود الى هذا Dim i As Integer Dim x As Date DoCmd.GoToRecord , , acFirst x = Forms![test1]![Date_M] For i = 0 To Forms![test1]![no] - 1 Me.date1 = x Me.serial = Forms![test1]![serial] Me.no = i + 1 DoCmd.GoToRecord , , acNext x = DateAdd("d", Forms![test1]![no2], x) Next test14.rar

لا تستحى من اخوانك

تعديل رائع استحيت اطلبه لكثرة الطلبات يا غالى جزاك الله كل خير

جرب اضاة السطر التالي If Me.Password_Confirm = [Password] Then DoCmd.Save DoCmd.GoToRecord , , acNewRec Else x = MsgBox("حقل كلمة المرور والتأكيد غير متطابقة", vbOKOnly, " لا يمكن الحفظ") DoCmd.CancelEvent Undo Exit Sub End If

السلام عليكم الى حلول الاخوه الاحبه لاثراء الموضوع تفضل الكود التالي Sub Cmpre_Ali() Dim List_a, Ar(), Cnt&, R& '------- List_a = Range("a2").CurrentRegion.Resize(, 2).Offset(1).Value '------- With CreateObject("Scripting.Dictionary") .CompareMode = vbTextCompare For R = 1 To UBound(List_a, 1) If (Not IsEmpty(List_a(R, 1))) * (Not .exists(List_a(R, 1))) Then .Add List_a(R, 1), Nothing Next ReDim Ar(1 To UBound(List_a, 1), 1 To 1) For R = 1 To UBound(List_a, 1) If Not IsEmpty(List_a(R, 2)) Then If Not .exists(List_a(R, 2)) Then Cnt = Cnt + 1: Ar(Cnt, 1) = List_a(R, 2) Else .Remove List_a(R, 2) End If End If Next If Cnt > 0 Then Range("C1").Offset(1, 1).Resize(Cnt).Value = Ar If .Count > 0 Then Range("C1").Offset(1).Resize(.Count).Value = Application.Transpose(.keys) Erase Ar End With End Sub تحياتي

الأخ الكريم at7daal3alam السلام عليكم يرجى اتباع تعليمات المنتدى بتغيير الأسم الى اللغة العربية جرب المرفق التالى لعلة يفى بالغرض abo_abary_يومي1 1.zip

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

اخى الحبيب معلش معذة للاثقال عليكم فاتنى شئ صغير سيضفى مرونه اكثر برجاء تغيير الكود الموجود على قائمة القيم "t0" بالكود الاتى Me.productname = "" & Me.t0.Column(0) & "" Me.productname.Requery search_Products = "" Me.Requery بذلك بعد البحث عن منتج ما وبعد الضغط على اسم المنتج من قائمة القيم يتم مسح ما تم كتابته فى مربع البحث للعلم ممكن البحث باى جزء من النص فى هذا المربع جرب كتابة كم وجرب مرة اخرى كتابة 05 ولاحظ النتيجة اجمل واطيب التحايا للعلم تم التعديل على معادلة عملية الضرب كان فى بادئ الامر تظهر #خطأ حنى يتم كتابة عدد فى مربع الكمية تم التعديل على الكود

السلام عليكم يصبح الكود هكذا Sub PullUniques() Application.ScreenUpdating = False Dim rngCell As Range For Each rngCell In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) If WorksheetFunction.CountIf(Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row), rngCell) = 0 Then Range("C" & Rows.Count).End(xlUp).Offset(1) = rngCell End If Next For Each rngCell In Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row) If WorksheetFunction.CountIf(Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row), rngCell) = 0 Then Range("D" & Rows.Count).End(xlUp).Offset(1) = rngCell End If Next Application.ScreenUpdating = True End Sub

وهذا تعديل جديد بعدما فهمت ههههههههههههه معلش بافهم على اد حالى اتفضل ان شاء الله يعجبك http://www.4shared.com/rar/pyf3kdI-ce/db4_up.html?

اتفضل ده الطلب الاول كل اكواد ازرار الاوامر الاربعة http://www.4shared.com/rar/292xPyBwce/db3_up.html? فى شئ مش فاهمه حضرتك فى المشاركة الاولى قلت المستخدم يشتكي من كثرة الزرائر حيث اني مخصص لهذه العمليه اربعة زرائر بخلاف اني وضعت كود لحذف محتويات جدولين فى حدث عند الخروج من البرنامج وهو بهذا الشكل Private Sub Form_Close() DoCmd.RunSQL "DELETE *FROM Table3;" DoCmd.RunSQL "DELETE *FROM [Copy Of Table2];" MsgBox "سوف يتم الخروج من المقارنة", vbInformation, "انتبه" End Sub حيث ان الجدول الاول يوضع به البيانات ليحسب ال rank وهو مربوط باستعلام ومديول ليخرج الرانك والاخر وهو خزان لتجميع بيانات معينه وعرضها بشكل معين ارجوا المساعده فى دمج هذه الاستعلامات فى زر واحد فقط سؤالى هل تريد عمل زر امر لاغلاق النموذج ووضع الاستعلامات فى حدث عند الاغلاق على زر الامر بدلا من النموذج ؟

ان شاء الله يكون ده طلب حضرتك Aziz2.rar

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

العفو أخي الأستاذ أبا جودي دائما يبهرنا بإبداعه جزاه الله كل خير و نفعنا الله بعلمه هو و جميع أعمدة هذا المنتدى الرائع

السلام عليكم و رحمة الله تعالى و بركاته بعد إذنك أستاذ محمد إبراهيم هذا كود آخر للحل db.rar

هههههههههههههههههههه والله سبحانك يارب بقولك ايه يا استاذ نادر الله يرضى عليك حط ايدك فى ايدى ونساعد بعض انا باعمل للشغل بتاعى قاعدة بيانات تقوم بالاتى استيراد البيانات من جهاز البصمة لعدد حوالى 153 موظف عمل استمرار بالعمل وهنا حالتنا من له وجبة ومن استبدلها بمقابل مادى عمل استمرار بالعمل ايام العطلات الاسبوعيةة والرسمية طبعا هنا عندى اكثر من مشكلة - مواعيد العمل الرسمية فى الايام العادية تختلف عن العطلات وتختلف عن رمضان لكل منهم موعد فى الحضور والانصراف مشكلتى هنا الان لم استطع جمع الساعات ما سلف ذكرة تم بحمد الله تعالى وفضله تعالى للمهم تامين قاعدى البيانات من العبث اولا اغلاق بعض النماذج فى اوقات محددة احددها انا فلا تتم فتحها او العبث بها تم بحمد الله تعالى عمل صلاحيات تحدد لكل شخص وظسفته ومهامة داخل قاعدة البيانات الحمد لله تعالى التحكم فى العناصر داخل النموذج الواحد بتفعيل او تعطيل او اظهار واخفاء لمستخدم دون الاخر فى نفس النموذج كل علىى حسب كلمة مروره حتى لو قام المستخدم نفسه بتغيير كلمة مروره اسال الله تعالى ان يوسع رزق شيخى ووالدى ومعلمى وحبيبى ابو خليل فى هذه النقطة خصيصا امكانية البحث باى جزر او فى اى حقل عن الاسم او الكنية او الكود الوظيفى مع التصفية تغيير لون الكلمة التى تشابه الكلمة المراد البحث عنها اسال الله تعالى كذلك ان يوسع رزق استاذى الجليل ومعلمى القدير الاستاذ رمهان وان يجزيه كل الخير ههههههه لمدة سنه وفضلت وراه حتى انه قالى ما خلصنا من شبح هذا الموضوع بص فى حجات تانى كتير ومش فاكرها بصراحة اها اهم شئ وضع الصور للموظفين على السيرفر او على جهاز فى شبكة ويتم عرضها واستعراضها من اى مكان على الشبكة ومن اى جهاز دون محاولة اى تعديل على روابط العلم لله وسبحان الله تعالى الذى هدانا لهذا هذه فكرة العبد الفقير الى الله تعالى نساعد بعض ونكمل لبعض الشغل ونستفيد من افكار بعض انا كده واللا كده كنت ناوى انزل القاعدة مفتوحه كاملة مكملة بما وصلت اليه دون حذف او اخفاء اى شئ منها اهداء لكل اخوانى واحبائى ولكل رواد المنتدى عند انتهائى منها انا تقريبا شغال على تصميم القاعدة دى من سنه طبعا انا بدات وانا لا اعرف عن اكسس الا اسمه اما الان بفضل الله تعالى ثم اساتذتنا اصبحت هاوى مبتدئ وملم بما يساعدنى على تكوين واخراج فكرتى طبعا وقتى ضيق كذلك ولم ابخل على نفسي بمتابعة المنتدى او متابعه اخوانى فى محاولة مساعدتهم منتظر رد حضرتك اجمل التحايا

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

جزيت خيرا اخي الغالي ابو البراء على الشرح الوافي تقبل تحياتي

السلام عليكم هذا مثال لما اوردته باستخدام في مشاركتي السابقة عن استخدام سلكت كوس غير معطياتك كعميل او مورد Sub kh_AddItem(nSh As String) Dim MyRng As Range Dim R As Integer Dim ContRow As Long, i As Long Dim tFindNum As String Dim dt1 As Date, dt2 As Date '------------------------- On Error GoTo 1 '------------------------- Set MyRng = Sheets(nSh).Range(MyTopColmnRng) '------------------------- With MyRng ContRow = .Worksheet.Cells(Rows.Count, .Column).End(xlUp).Row - .Row End With If ContRow = 0 Then Exit Sub '------------------------- ' اسم الحساب المطلوب tFindNum = LCase(saad1.ComboBox1.Value) '------------------------- ' التواريخ dt1 = CDbl(CDate(saad1.ComboBox2)) dt2 = CDbl(CDate(saad1.ComboBox3)) '------------------------- With MyRng.Offset(1, 0) For R = 1 To ContRow Select Case .Cells(R, dColmn).Value2: Case dt1 To dt2 If LCase(.Cells(R, MyColmnFind)) Like tFindNum Then '''''''''''''''''''''''''''''''' 'مثلا هذه الاعمدة مطلوبة في كل الحسابات Cells(ii, "B").Resize(1, 6).Value = .Cells(R, 1).Resize(1, 6).Value ' المعيار اسم الورقة Select Case .Worksheet.Name 'باقي الاعمدة وهي اربعة نختار فيها مانريده Case "مشتريات", "م.مبيعات" Cells(ii, "H").Resize(1, 4).Value = Array(.Cells(R, 7).Value, .Cells(R, 8).Value, "", .Cells(R, 9).Value) Case "مبيعات", "م.مشتريات" Cells(ii, "H").Resize(1, 4).Value = Array(.Cells(R, 7).Value, .Cells(R, 8).Value, .Cells(R, 9).Value, "") Case "خزينة" Cells(ii, "H").Resize(1, 4).Value = Array("", "", .Cells(R, 7).Value, .Cells(R, 8).Value) End Select '''''''''''''''''''''''''''''''''''' ii = ii + 1 End If End Select Next End With '------------------------- 1: Set MyRng = Nothing End Sub المرفق 2003 تقرير حساب بين فترات مأخوذ من عدة اوراق1.rar

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

مثال على كيفية تغيير تنسيقات الحقول افتح النموذج تجد ثلاثة خيارات الأول يفتح نموذج يعرض كيفية تغيير تنسيق التاريخ بعدة اشكال الثاني لتغيير تنسيق حالة الأحرف - كبيرة - صغيرة الثالث لتغيير تنسيق النصوص و اضافة مسافات بينها أو فواصل أو .. الخ StringStuff2k.rar