jjafferr

🙂

وعليكم السلام 🙂 اختي ، هذا الموضوع فيه طلبك ، رجاء قراءة الموضوع والكود بالتفصيل : جعفر

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

الحمدلله ، واخبرنا عن فعالية الاداة 🙂 جعفر

رجاء عمل صورة للخطأ ، وارفاقه هنا . كذلك يمكنك تجربة التالي: في كود النماذج (وليس الوحدة النمطية) ، استعمل Shell بدلا عن Shell_n_Wait في: Shell_n_Wait Command_Line, vbHide اما قارئ بالباركود ، فيجب ان تبحث لماذا لا يعمل مع unicode او utf8 ، جعفر

وهذه طريقة اخرى 🙂 مثل سابقتها ، ولكن بطريقة تختلف قليلا ، وبدون Recordset للانتقال للسجل التالي 🙂 جعفر 1137.3.مثال.accdb.zip قصدك الاستاذ خالد 🙂

هذه الطريقة اللي كنت اتكلم عنها 🙂 الافضل والاسهل 🙂 جعفر 1137.2.مثال.accdb.zip

برنامج التنصيب ، انقر عليه بالفأرة اليمين ، ثم اختر التنصيب كمسؤول : جعفر

تفضل 🙂 التعديل الآن شمل النموذج بالكامل تقريبا ، فرجاء ان تنظر في كل جزئية من الكود 🙂 ولكن يا ابو زاهر ، ايش لك في البحر واهواله ، و رزق الله على السيف 🙂 هذه الطريقة انت تعرفها حق المعرفة ، ومافي اسهل منها ، بينما الـ Recordset بحر بحد ذاته ، جدا سهل للي يعرفه 🙂 جعفر 1137.1.مثال.accdb.zip

وعليكم السلام 🙂 جرب هذا المرفق ، واخبرنا بالنتيجة لوسمحت 🙂 ولا تنسى ان تضع هذا المرفق في نفس المجلد اللي فيه البرنامج الموجود في مشاركتي الاولى 🙂 جعفر QR_2.zip

وعليكم السلام 🙂 عليك تنصيبها كمسؤول 🙂 انا اعطيك افضل ما يمكنني التفكير فيه ، اذا انا كنت مكانك ، فما ممكن اعطي لنفسي الا الافضل 🙂 خذ من وقتك شوي ، وصدقني ما بتندم 🙂 شكرا لأخوي ابو الكرم على توفير رابط فيه شرح لإستعمال الاداة ، واستسمحك عذرا ، فالبحث اللي عملته البارحة (وتأكيدا قبل شوي) داخل المنتدى لم يعطني رابطك 🙂 ولكني انصح بتنزيل آخر تحديث من الموقع ، ثم اتبع خطوات ابو الكرم 🙂 صحيح اليد الواحدة ما تصفق ، شكرا اخوي الوزير على المشاركة ❤️ جعفر جعفر

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

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

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

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

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

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

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

نعم صحيح ، وعندك احد الحلين 1. طبعا ، هنا سيتم زيارة الوحدة النمطية مرتين لكل سجل: mySQL = "SELECT Id, G1, R1, add_all([id]) AS A FROM tbl1" mySQL = mySQL & " WHERE add_all([id])='OK'" 2. اما الحل الآخر ، فتعمل استعلام1 مثلا لاستخراج قيمة A ، ثم تعمل استعلام 2 و .... لقراءة الحقل A من استعلام1 . وبرمجيا ممكن الاستفادة من QueryDeff لعمل الاستعلامات في الكود. جعفر

وعليكم السلام 🙂 اعطنا الصورة الاوسع ، وخلينا نفكر معاك 🙂 جعفر

من تجربتي مع جهاز قارئ البصمة ، فلازم تنصب البرنامج على الكمبيوتر ، ثم البرنامج يتعرف على الجهاز 🙂 وعليه يصير تخاطب بين الجهاز والكمبيوتر:) بس ما عندي فكرة عن هالجهاز 🙂 جعفر

وعليكم السلام 🙂 هذ التغيير الذي عملته في الكود ، والباقي لم المسه 🙂 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

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

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

اذا البرنامج بصيغة mdb او mde ، فنعم في برامج لفك كلمة السر ، ولكن لا يوجد برنامج لفك كلمة السر للبرامج بصيغة accdb او accde ، فكل البرامج عندها محاولات لفك كلمة السر ، كما ذكرت في الرابط اعلاه 🙂 والحكم الانترنت ، ابحث ، وبتشوف النتائج 🙂 جعفر