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

وتعديل على الكود علشان يعمل اسرع 🙂 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

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

فورم ترحيل بيانات للشيت المطلوب عن طريق الMultiPage الفيديو

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

وعليكم السلام 🙂 هذه البرامج اللي اعرفها: وهذه واحدة منهم ، مجانيه: 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

السلام عليكم الى حل الغالي الاستاذ سليم ولاثراء الموضوع شاهد المرفق TxtBox_Tw.xlsm

شاهد هذا الموضوع 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 اقصد في بدايه النشغيل

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

بارك الله فيك وزادك الله من فضله

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

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

بعد فصل الأنترنت أغلق البرنامج نهائيا ثم أعد تشغيله لقد قمت بتغيير العبارت جرب الآن

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

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

تفضل اخي 1.xlsm

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

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

استاذ ابو صلاح معادلة الأستاذ سليم تعمل بكل كفاءة ,فهى لا تحتاج اى تعديل -فاذا اعطت لك خطأ فمنك انت:-وذلك لأحد سببين, فهذه معادلة مصفوفة لابد من الضغط على Ctrl+Shift+Enter وليس Enter فقط كما اخبرك استاذنا سليم و الأخر اذا مازالت لا تعمل معك فعليك باستبدال الفاصلة العادية بفاصلة منقوطة ; فربما نظام الكمبيوتر لديك مختلف

بعد اذن الاخ احمد وزيادة في اثراء الموضوع هذه المعادلة (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

السلام عليكم و رحمة الله وبركاته اسعد الله ايمكم بكل خير اشتقت لكم جميعا بارك الله فيكم اخي الكريم يتم تسمية نطاق البيانات بـ Data_001 ثم يتم استخدام الدالة =SUMPRODUCT((INDEX(Data_001;0;1)=$C$2)*(INDEX(Data_001;0;2)=$D$2);INDEX(Data_001;0;MATCH($D6;INDEX(Data_001;1;0);0))) كما في المرفق جلب البيانات بشروط افقية وراسية.rar

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

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

السلام عليكم اخوانى وجدت هذه معلومات جيدة فاحببت ان تكون ضمن هذه المكتبة لتعم الفائدة . الطريقة الصحيحة لاستخدام الشروط : ان الإستعلامات حساسة جدا لقبول اي صيغة وعند وضع الدوال في تعبير يجب التقيد بشروط معينه مثلا اذا كان الحقل رقمي Numerical ( اي انه في الجدول نوعه رقم ) فيجب ان يوضع في إستعلام بين علامتي تنصيص بهذه الطريقة "[iD]" مثل "[ID]<=" & [ID] لاحظ علامتي التنصيص فهي تخص فقط الحقل الأول وبعدها نضع حرف & لكي نسند القيمة سواء المساواه او اصغر من او اكبر من الى نفس الحقل سواء في الجدول او النموذج مثال لأي دالة من دوال المجال التجميعي DLookup("[FieldName]"; "TableName"; "[FieldName] =" & [FieldName]) لاحظ علامتي التنصيص المزدوجه " " للحقل الرقمي حيث تم وضع اول علامة تنصيص للحقل الرقمي الأول ثم علامة = ثم علامة تنصيص مزدوجه " ثم & ثم الحقل الرقمي الثاني حسنا ماذا لو كان الحقل نصي Strings ( اي ان الحقل في الجدول نوعه نص ) فيجب ان يوضع في الإستعلام بين ثلاث علامات تنصيص بهذه الطريقة "'[NAME]"' مثل "[NAME]<=' & [NAME] & ' " لاحظ كيف اختلف التعبير عن الحقل الرقمي في الكود العلوي حيث تم اضافة عدد اثنين & بعد الفاصلة العلوية الثالثة لحقل الإسم الأول حيث يجب وضع حقل الإسم الثاني بين علامتي تنصيص مفرده ' ' اما علامتي التنصيص المزدوجة " " فهي خاصة لحقل الإسم الأول مثال لأي دالة من دوال المجال التجميعي DLookup("[FieldName]"; "TableName"; "[FieldName] =' " & [FieldName] & " ' ") لاحظ في الكود ترتيب علامات التنصيص سواء المزدوجة او المفرده فأول علامة تنصيص مزدوجه لحقل الإسم الأول يجب ان يغلق بعلامة تنصيص مفرده ' بعد علامة = فهذه اول ثلاث علامات تنصيص ' " للحقل الأول ثم نضع علامة تنصيص مزدوجه " للحقل الثاني لأنه نصي ثم نضع & ثم نضع حقل الإسم الثاني ثم نضع & ثم نغلق علامة التنصيص المزدوجه " للحقل الثاني ثم نغلق علامة التنصيص المفرده ' لحقل الإسم الأول ثم نغلق كامل الجملة بعلامة تنصيص مزدوجة " وهي خاصة بحقل الإسم الأول حسنا ماذا لو كان الحقل من نوع تاريخ DATE ( يعني في الجدول نوعه تاريخ / وقت ) فيجب ان يوضع بين بين علامتي شبكة #[DATE]# مثل "[DATE]<=#" & [DATE] & #" مثال لأي دالة من دوال المجال التجميعي DLookup("[FieldName]", "TableName", "[Date]=#" & [Date] & "#") لاحظ كيف تم استخدام علامات التنصيص المزدوجه " وعلامتي الشبكه # حسنا ماذا لواردنا تجميع كل هذه المعايير حقل رقمي Numerical و حقل نصي Strings و حقل تاريخ Date في دالة واحده فيجب ان نكون حريصين جدا في وضع علامات التنصيص لكل حقل حتى لا نحصل على اخطاء مثال لأي دالة من دوال المجال التجميعي DLookup("[FieldName]", "TableName", "[FieldNumerical] = " & [FieldNumerical] & " AND [FieldString] = '" & [FieldString] & "'" & " AND [FieldDate] = #" & [FieldDate]& "#" ) اتمنى ان اكون قد القيت بعض الضوء على استخدام هذه المعايير واستخدامها المصدر للاستاذة الجليلة زهره