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

وتعديل على الكود علشان يعمل اسرع 🙂 Set DB = CurrentDb Set RsW = DB.OpenRecordset("item") ' جدول الوجهة Set RsM = DB.OpenRecordset("tmpadvb") 'جدول المصدر Do Until RsM.EOF RsW.FirstFirst "id=" & RsM!ItId RsW.Edit RsW!LastDate = RsM!ExDate RsW!Cost = RsM!Price RsW.Update if RsW.nomatch then 'اذا مافي هذا السجل ، شو تريد عمله end if RsM.MoveNext Loop RsM.Close: set RsM=nothing RsW.Close: set RsW=nothing Set DB = Nothing جعفر

فورم جاهز لاضافة البيانات والبحث بثلاث طرق الفيديو

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

هناك عدة برامج تأتي مع جهاز البصمة ، وكل منها يحفظ البيانات في قاعدة بيانات ، منها SQL Server و dbf و اكسس و mySQL و Oracle وووو ، تستطيع التحكم في الجهاز عن طريق SDK الجهاز ، والذي يعطيك اوامر وطرق السيطرة على الجهاز وتغيير اعداداته وتصدير بياناته ، منها من تستطيع استعمال الاكسس للتعامل مع SDK ، ومنها لابد التعامل مع مكتبات Net. ، ولكن ، وإن لم تتحكم في الجهاز ، والذي لم نحاول التعامل معه مباشرة ، فيمكنك التعامل مع البيانات مباشرة ، وهذا هو المهم 🙂 الجهاز الذي تعاملت معه قبل حوالي 5 سنوات ، كان يصدر بياناته الى dbf ، ولم يكن بالامكان استيراد بياناته مباشرة من الاكسس ، فاشترينا برنامج dbf viewer والذي يمكن التحكم فيه عن طريق commandline : https://www.dbf2002.com/help/command_line_options.htm استخدمنا الاكسس حتى نأخذ البيانات للحفظ Backup ، وبيانات يومية للاكسس ، وتم هذا مباشرة من الاكسس عن طريق البرنامج اعلاه ، وبعدها عملنا برنامج الحضور والانصراف والغياب في الاكسس ، بأكثر من قاعدة بيانات 🙂 وكان عندنا فترة اسبوع واحد فقط للعمل كله ، من يوم شفنا الجهاز الى يوم تطبيق البرنامج ، والعمل كان بمعدل 15 ساعة في اليوم ، والحمدلله كمل العمل جعفر

Private Sub CommandButton2_Click() If trim(EVAL.EV_Label1.Caption) = "" Then EVAL.Ev_text6.Visible = False Else EVAL.Ev_text6.Visible = True End If end sub هذا التعديل

ما رأيك لو اختصرنا الاستعلامات وبدلا من استخدام ثلاث استعلامات نستخدم استعلام واحد فقط ولا داعي لاستخدام جملة iff للسجلات الفارغة بدلا من استعلام المبيعات نضع التعبير التالي في حقل محسوب في استعلامنا الوحيد Nz(DSum("[اجمالي البيع]";"المبيعات";"[التاريخ]=#" & Format([d_date];"mm/dd/yyyy") & "#");0) وبدلا من استعلام المشتريات نضع التعبير التالي في حقل اخر بنفس الاستعلام : Nz(DSum("[اجمالي الشراء]";"المشتريات";"[التاريخ]=#" & Format([d_date];"mm/dd/yyyy") & "#");0) اجمالي البيع .accdb

الله يعطيك العافية ابو اشرف بخصوص توليد التواريخ لا تحتاج اكسيل ممكن تعملها في اكسيس افتح فورم 1 تحياتي وتقديري لك اجمالي البيع .accdb

وعليكم السلام 🙂 هذ التغيير الذي عملته في الكود ، والباقي لم المسه 🙂 On Error Resume Next 'تعديل سجل موجود في الجدول ' W = "" Set rs = CurrentDb.OpenRecordset("Alsnaf") 'البحث عن رقم السجل المعدل 'اذا وجد السجل rs.FindFirst "[ID_Sanf] =" & ID_Sanf 'تحريره rs.Edit rs!ID_Sanf = ID_Sanf rs!Sanf = Sanf rs!Alwsf = Alwsf rs!Price_Bought = Price_Bought rs!Price_Sales = Price_Sales rs!Almwka = Almwka rs!Albdil = Albdil rs!Albdil2 = Albdil2 rs!Albdil3 = Albdil3 rs!rsdaolalmdh = rsdaolalmdh rs!Source = Source rs!Packing = Packing rs!ASRKA = ASRKA rs!A2 = A2 rs.Update rs.MoveNext Me.txt_2 = rs!ID_Sanf If rs.NoMatch Then MsgBox "لم يتم العثور على السجل" Exit Sub End If ' MsgBox "تم الحفظ" 'End If . ولكن يا ابو زاهر ، في طريقة جدا اسهل من طريقتك ، فالاكسس يقوم بكل هذا تلقائيا وتقريبا بدون كود ، وخصوصا اشوف انك داخل في غياهب الـ Recorset اجعل النموذج مصدر بياناته استعلام ومصدر بيانات الاستعلام الجدول Alsnaf ، وحقل البحث يكون غير منتظم ، والاستعلام يكون فيه معيار البحث من النموذج ، والاكسس يواصل عمله من هنا تلقائيا ، سواء بالحفظ او الحصول/عدم الحصول على سجل البحث ، وبدون كود تقريبا 🙂 جعفر 1137.التالي.accdb.zip

نعم استاذي لقد جربت الكود على 250 الف سجل وكان بطي جدا فرجعت الي استعلام تحديث الحمدلله انتهت المشكله الا عاجبني فيك استاذي الغالي انك ترد علينا بالاجوابه ثم تعقب علينا بالطرق الصحيحه وهذا ممتاز جدا شكرا اليك ابو الجعافر

بس اسهل واسرع لك اذا عملت استعلام تحديث 🙂 جعفر هذه الطريقة تأخرك كثيرا : If RsW!id = RsM!ItId Then تصور اذا عندك 10,000 او 20,000 سجل او اكثر ، فانت تطلب من الكود ان يبحث فيهم سجل بسجل ، ولكل سجلات الجدول المصدر !! جعفر

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

وعليكم السلام 🙂 BOF معناه Begining of File ، اي بداية الملف ، وفي الواقع مافي سجل قبل BOF 🙂 يجب ان تستعمل EOF 🙂 جعفر

لا اعلم اخى حتى قمت بالنظر فى مثال عندى لام عهود للتحكم بخصائص القاعده وبه خواص كثيره سارفقه لك لعلك تصل منه الى نتيجه تمنياتى لك وللجميع بالتوفيق للتحكم الكامل بخضائص قاعدة البيانات ويشمل على 26 وظيفه.rar

السلام عليكم تم عمل المطلوب بمعية أعمدة مساعدة (لتجنب معادلات الصفيف)... بن علية حاجي عكوك.xls

السلام عليكم إليك هذه الطريقة بدون تكرار الكتابة أي طريقة مخالفة لمثال أخونا محمد قائمة فصل منقسمة علي جاني الورقة.rar

السلام عليكم ابو ياسين 🙂 غريبة ما سألتني: في جدول Data ، بما انه هناك اكثر من قماش وطول لكل زبون ، فانت عندك 8 الى الآن ، فالمفروض انك تخرج هذه الحقول من هذا الجدول ، وتعمل جدول جديد مثل sData ، فيه حقل قماش (يجب ان يكون مفهرس) وطول فقط ، طبعا مع حقل يأخذ ID من جدول Data ، ثم في النموذج تعمل نموذج فرعي للجدول sData ، وتضيف فيه اي عدد من الاقشمة والاطوال حتى لو جاب القبيلة كلها 🙂 طبيعة استعلام الـ union اللي انا عملته ، بطيء ، لأني دمجت 8 استعلامات فيه ، والحقل قماش غير مفهرس ، فلما تربط جدولين في استعلام بحقول غير مفهرسة ، فالاستعلام يكون ابطئ جعفر

اتفضل اخي هذا حسب طلبك BackUp.accdb

سيدي الفاضل ، ما قدرت اخلي التحديث اسرع من هاي 🙂 واذا السرعة عجبتك ، اخبرك كيف تجعلها اسرع ان شاء الله 🙂 جعفر 1134.jjafferr.accdb.zip

تفضل لك ما طلبت الحسابات1.xlsx

السلام عليكم جرب المرفق لعل فيه ما تريد... ملف المقارنه.xls

وعليكم السلام 🙂 رجاء توضح شوية زيادة ، واعخبرني على واقع حال البيرنامج و بياناته : ايش ادخل في البحث (عطني مثل) ، ثم ايش لازم يطلع ، ثم .... ما اريد كلام ، اريد بيانات من البرنامج لوسمحت 🙂 جعفر

وعليكم السلام 🙂 هذه البرامج اللي اعرفها: وهذه واحدة منهم ، مجانيه: http://www.skrol29.com/us/vtools.php وهنا شرحه بالعربي: جعفر والجميل في البرنامج ، للشباب اللي يريد يتعلم كيفية عمل هذه البرامج ، انها مفتوحة المصدر ، يعني تقدر تشوف الكود ، وتتعلمه 🙂

حياك الله أخي محمد الجواب : ادخل على النموذج في وضع التصميم ثم اتجه لورقة الخصائص ثم بيانات ثم مصدر السجلات وادخل على الاستعلام ثم ضع هذا الكود في معيار الحقل الذي تريد إخفاءه في حالة كانت قيمته صفر أو فارغة . Not 0 Or Is Null

السلام عليكم امسح البيانات بعد ترحيلها من صفحة الرئيسية Sub trheel() Dim Rng As Range Dim cl As Range, i As Integer Set Rng = Range("G3:G" & [G10000].End(xlUp).Row) For i = 2 To 41 For Each cl In Rng If cl <> "" Then If cl.Value = Sheets(i).Name Then cl.Offset(0, -6).Resize(1, 7).Copy Sheets(i).Range("A" & Sheets(i).[A10000].End(xlUp).Row + 1) End If End If Next Next If Rng.Rows.Count > 7 Then Rng.Offset(0, -6).Resize(, 7).ClearContents Set Rng = Nothing End Sub

السلام عليكم حمل هذا البرنامج ادخل اسماء الخصوم والموكلين عدد 2 ثم اغلق البرنامج واعد فتحه مرة ثانية وشاهد ماذا يطلب منك البرنامج صور الشاشة وابعثها على الواتس اب على رقم 00962787787573 Lawyer2020.rar

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

شاهد هذا الموضوع db1.rar

ربما ينفع هذا الكود Option Explicit Sub Lopping() Dim txt As Object For Each txt In Me.Controls("TextBox") If Mode(txt.Value, 4) <> 0 And txt.Value < 9 Then MsgBox "القيمه المدخله خاطئه" End If Next End Sub

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

وما هو البديل عن AUTOEXEC اقصد في بدايه النشغيل

جرب هذا الماكرو Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) With Me.UsedRange .Columns.AutoFit .Rows.AutoFit End With End Sub

يمكنك تجربة هذا -فكان عليك لزاما استخدام خاصية البحث فى المنتدى : اصلاح ملفات الاكسيل التالفه استعادة ملفات Microsoft Excel تالفة كيفية استرجاع ملف إكسل تالف ويمكنك ايضا بتحميل هذا البرنامج من هذا الرابط: برنامج Advanced Excel Repair للكمبيوتر وهذا برنامج اخر Repair My Excel 1.1.0.71 اصلاح ملفات اكسل التالفة ببرنامج رائع

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

مرفق صور وملف العمل وصورة للكود المستعمل ادارة العيادات الطبية.accdb

بارك الله فيك وجزاك الله خير الثواب ورحم الله والديك

ممكن نسخة تعمل على اوفيس 2007

أولا: قمت بإضافة حقل فارغ اسمه تجميع فصل لإستخدامه لتجميع في التقرير ثانيا: في خصائص تجميع فصل رأس غيرت خاصية تكرار المقطع إلى نعم ثالثا: جعلت عرض العمود في إعدادات الصفحة 9.7سم

جزاك الله خيرا استاذنا الفاضل تحياتي

السلام عليكم ورحمة الله وبركاته تفضل اخي قائمة فصل منقسمة علي جاني الورقة.rar تحياتي

نعم استاذ عصام الآن يعمل الكود بشكل سليم .. تحية لك على هذا المجهود الرائع بارك الله فيك

أخي لا يمكن أن أبخل على نهر أشرب منه دائما أنا الذي له الشرف عزيز فأنت صاحب الموضوع و صاحب الفكرة أنا أخذت منك الفكرة و إجتهدت على تطبيقها بطريقة الخاصة. لا أدري ربما تكون نفس الأكواد التي استعملته أنت و ربما لا و رغم ذلك تبقى أنت السيد يا سيد لكن كما يقول الأستاذ @jjafferr دائما نعود للبرنامج: يعتمد البرنامج على رقم النسخة و قد وضعت مربع نص لكتابة رقم النسخة لكن لما نكون في برنامج فعلي راح نخليه يقرأ رقم النسخة تلقائيا كل ما عليك فعله هو ادخال رقم من 1000 الى 1005 أنا وضعت 6 أرقام فقط ثم. تضغط على استيراد و سوف تلاحظ النتائج جرب غير في كل مرة رقم و لاحظ الفرق. بعيدن خبرني راح أغير الرسائل لإتمام تجربة البرنامج و أتمنى من الجميع التجربة active file.rar

السلام عليكم تم التعديل/ مرفق الملف 101استعلام عن طريق الاسم.xls

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

وعليكم السلام 🙂 شكرا لك اخوي ابو زاهر ، ليس بصفتي عضو في فريق الموقع فقط ، وانما بصفتي العضو جعفر ايضا 🙂 مكان رائع نجتمع فيه ، حُباً في خدمة بعضنا البعض 🙂 جعفر

بعد اذن الاخ احمد وزيادة في اثراء الموضوع هذه المعادلة (Ctrl+Shift+Enter) =INDEX(ورقة1!$B$5:$CI$500,MATCH($C$2&$D$2,ورقة1!$B$5:$B$500&ورقة1!$C$5:$C$500,0),MATCH($D6,ورقة1!$B$4:$CI$4,0))

تعديل للعمل على العامودين جلب البيانات بشروط افقية وراسية.xls

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

تحية إجلال للمعلم الجليل المهندس سيد بدران صاحب قناة سيد بدران المشهورة .

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

السلام عليكم ورحمة الله أخي الكريم، هذا حل أول باستعمال الدالة SUMPRODUCT (إن كنت قد فهمت المطلوب).... أخوك بن علية متابعة الأقساط.rar