Tarekfathallah قام بنشر أكتوبر 4, 2015 قام بنشر أكتوبر 4, 2015 السلام عليكم عندي قاعدة بيانات بالباركود اريد عند ادخال الباركود ان يجزء ه لي في الجداول المرفقة اي الحرف والرقم في اوله مثلا d1= زحلة مرفق ربطا القاعدة ارجو المساعدة بالسرعة الممكنة db barcode new.rar
jjafferr قام بنشر أكتوبر 4, 2015 قام بنشر أكتوبر 4, 2015 وعليكم السلام الأخ طارق انزلت مرفقك واطلعت عليه ، ولكن لم افهم المطلوب بالتفصيل !! انت صاحب الموضوع والذي تعرف مداخيل برنامجك ، فلوسمحت تأخذ من وقت وتشرح المطلوب بالتفصيل ، يعني اي نموذج /جدول ننظر فيه ، اي حقل ، ثم ماذا ، ثم ... جعفر
Tarekfathallah قام بنشر أكتوبر 5, 2015 الكاتب قام بنشر أكتوبر 5, 2015 السلام عليكم يا اخي المطلوب عند ادخال الباركود في الفورم table 2 عندي اول حرف ورقم اريده ان يترجمه في جدول table2 عامود nfous المرتبط بالجدول nfous table كما هو مرفق في النموذج جدول table 2 اي A1 = بيروت D1= زحلة D10=النبي شيت وهكذا وشكرا لك
Tarekfathallah قام بنشر أكتوبر 6, 2015 الكاتب قام بنشر أكتوبر 6, 2015 شكرا لك اخ جعفر لم استطع تنفيذ ما وضعته لي في قاعدة البيانات على قاعدتي ارجو من حضرتك ولو فيها ثقلة ان تعلمني طريقة تنفيذها على قاعدتي المرفقة وكيفية توزيع الباركود على العواميد اي A1 = nfous table = بيروت 00= 00 لاحقا لها عمل 0= اخر خانة في الباركود رابع هانة من اليسار في الباركود = رقم الجدول الجديد وهو رقم مرفق قاعدة البيانات الجديدة وسؤال هل يمكن ربط هذه القاعدة بقاعدة بيانات خارجية بحيث irsalieh هو نفسه في القاعدتين رقم ويجب ان يتساوي اي يجب ان يكون 80224466 في نفس القاعدتين القديمة والحديثة ليعطيني المعلومات القديمة في القاعدة القديمة والمعلومات الجديدة في القاعدة الجدية اي رقم الباركود وتوابعه وشكرا لاطالتي عليك ارجو الرد سريعا لضيق الوقت علما ان القاعدة القديمة كبيرة 1.6gb db barcode new.rar
jjafferr قام بنشر أكتوبر 8, 2015 قام بنشر أكتوبر 8, 2015 أخي طارق شكرا لك اخ جعفر لم استطع تنفيذ ما وضعته لي في قاعدة البيانات على قاعدتي ارجو من حضرتك ولو فيها ثقلة ان تعلمني طريقة تنفيذها على قاعدتي المرفقة وكيفية توزيع الباركود على العواميد اي A1 = nfous table = بيروت 00= 00 لاحقا لها عمل 0= اخر خانة في الباركود رابع هانة من اليسار في الباركود = رقم الجدول الجديد وهو رقم مرفق قاعدة البيانات الجديدة . انا آسف ، لم افهم قصدك اعطني مثال لكي اهتدي به لوسمحت ، مثلا ، ماذا تريدني ان اعمل بالمعلومة A1+2000+00+00101+B اخبرني بالتفصيل لوسمحت ، بالقيم واسماء الحقول. وسؤال هل يمكن ربط هذه القاعدة بقاعدة بيانات خارجية بحيث irsalieh هو نفسه في القاعدتين رقم ويجب ان يتساوي اي يجب ان يكون 80224466 في نفس القاعدتين القديمة والحديثة ليعطيني المعلومات القديمة في القاعدة القديمة والمعلومات الجديدة في القاعدة الجدية اي رقم الباركود وتوابعه وشكرا لاطالتي عليك ارجو الرد سريعا لضيق الوقت علما ان القاعدة القديمة كبيرة 1.6gb db barcode new.rar . آسف لم افهم المطلوب ابدا ولكن وبشكل عام ، نعم نستطيع ان نربط قواعد البيانات ببعض ، واجراء اي عمل عليها جعفر
Tarekfathallah قام بنشر أكتوبر 8, 2015 الكاتب قام بنشر أكتوبر 8, 2015 سيدي الكريم الاخ جعفر شكرا لردك علي وسعة قلبك المطلوب هو تفقيط الباركود الى اجزاء مثلا A1 = بيروت وهو مرتبط بجدول nfous table اي اريده عندما اطلب الباركود ان يكتبه برمجيا في حقله بيروت او حسب الخانة الاولى ثانيا خانة 2000 في الباركود تكتبها 2000 في حقل جديد خانة 00 =00 تكتبها برمجيا 00 خانة رقم 4 مثلا 00116 تكتبها في حقل جديد برمجيا مثل ما هي وكل رقم جديد تكتبه برمجيا نقلا عن الباركود كما هو اما الخانة الخامسة فممكن ان تكون رقم او حرف تنقله الى عامود حقل كما هو هذا فيما خص الشق الاول من السؤال _ اما فيما خص الشق الثاني فان رقم الباركود عندي حاليا مرتبط برقم عددي مؤلف من 8 ارقام مثلا 80225577 له عندنا رقم باركود وهذا الرقم موجود في قاعدة بيانات اخرى حجمها كبير حوالي 1.6 gb وفيه عدة حقول مرتبطة بالقاعدة الجديدة منها رقم الجدول مثلا 80225577 وحقل قلم النفوس nfous table وعدد الاستمارات و نوع الطلب وتاريخ الادخال ..... وقد فتحت في الجدول القديم خانة جديدة للباركود text حيث انزل الباركود كما هو A1+2000+00+00116+7مثلا فكيف لي ربط القاعدة القديمة مع الجديدة بحيث عندما اطلب رقم الجدول مثلا 80993355 يعطيني النتيجة في القاعدة القديمة اسم قلم النفوس ورقم الجدول ونوع الطلب وعدد الاستمارات ورقم الباركود ( رقم الباكود وكافة المعلومات في القاعدة الجديدة نقلا من القاعدة الجديدة ) برمجيا لقد اطلت عليك ولكن اكثر من هكذا توضيح لا استطيع سوى ان افرغ القاعدة القديمة واضغطها وارسلها لحضرتك ومع ذلك انا اشكرك جزيل الشكر وشكرا لسعة صدرك
jjafferr قام بنشر أكتوبر 8, 2015 قام بنشر أكتوبر 8, 2015 تفضل يا سيدي الجزء الاول يعتمد على هذا الكود لتفكيك نص الباركود عند علامة + : Private Sub barcode_LostFocus() 'only split is nfous is empty If Len(Me.nfous & "") <> 0 Then Exit Sub Dim x() As String x = Split(Me.barcode, "+") Me.nfous = DLookup("[NoufousName]", "NoufousTable", "[Field1]='" & x(0) & "'") Me.[0000] = x(1) Me.[00] = x(2) Me.[00000] = x(3) Me.[0] = x(4) End Sub . اما بالنسبة للجزء الثاني ، فرجاء عمل نسخة منه ، وحذف جميع البيانات ، وابقاء بيانات قليلة تخدم المطلوب ، وبعدها تخبرني عن اي حقل من البرنامج الاول له علاقة بالبرنامج الثاني ، واعطني مثال استطيع ان اقتدي به ، لوسمحت جعفر 229.1.db barcode new.mdb.zip
Tarekfathallah قام بنشر أكتوبر 9, 2015 الكاتب قام بنشر أكتوبر 9, 2015 شكرا لك اخ جعفر جزيل الشكر ساعمل فورا على الموضوع
Tarekfathallah قام بنشر أكتوبر 9, 2015 الكاتب قام بنشر أكتوبر 9, 2015 شكرا لك اخ جعفر لقد افرغت القاعدة القديمة وادخلت القاعدة الجديدة بها الدخول من ملف الهويات user = tarek Pass= 26180 User الدخول = tarek Passالدخول = hiba والجدول الجديد sheet1 و الفورمsheet 1 الذي نفذتهم لي اما في القاعدة القديمة فالجدول الاساسي لدي هو irselyehtable المطلوب عند ادخال الباركود ورقم الجدول irselyeh في sheet1ان يقوم بادخال الباركود في جدول irselyeh tabel حقل barcobe بشرط رقم جدول الارسالية irsalieh في sheet1= رقم الجدول irselyehnumber في الجدول irselyehtable وقلم النفوس noufousid في irselyehtable = nfous في sheet1 وعند البحث عن رقم جدول irselyeh من form search result ان يخرج لي كما هو مضاف اليه المعلومات الكاملة نقلا عن form sheet1 ملاحظة يتم البحث عن الباركود من form = search form وانا لك من الشاكرين القاعدة بعد ازالة كل ما فيها من معلومات تقريبا وبعد الضغط اصبح حجمها 38.7mb صديقي حاولت رفعها فلم استطع لكبر حجمها هل لديك طريقة اخرى للرفع انا بالنتظار
jjafferr قام بنشر أكتوبر 9, 2015 قام بنشر أكتوبر 9, 2015 انزل البرنامج المجاني من هذا الرابط http://www.7-zip.org/ ثم اضغط البرنامج بصيغة 7z ، وعندما يكون الحجم مناسب ، تستطيع ان: إما ان ترفعه في رابط خارجي ، ثم ترفق الرابط هنا ، او ان تغير اسم الملف وتغير صيغته الى zip بدلا عن 7z ، ثم تستطيع ان ترفقه في مشاركتك في هذا المنتدى وتخبرنا بصيغة المرفق جعفر
Tarekfathallah قام بنشر أكتوبر 9, 2015 الكاتب قام بنشر أكتوبر 9, 2015 https://www.dropbox.com/sh/y54lt2v74hqs lxp/AAC2N9yOoayGNUJx7kWZrHrqa?dl=0 متاسف لم استطع او افهم سوى هكذا او اذا امكن ان ارفعها على الميل لو سمحت
Tarekfathallah قام بنشر أكتوبر 10, 2015 الكاتب قام بنشر أكتوبر 10, 2015 (معدل) https://www.dropbox.com/s/ws95gqa4zpac2rh/fin - Copy.rar?dl=0 تم تعديل أكتوبر 10, 2015 بواسطه tarek_f26180
jjafferr قام بنشر أكتوبر 10, 2015 قام بنشر أكتوبر 10, 2015 أخي طارق البارحة انزلت الملف ، ولكن وللأسف لم استطع فتح برنامجين ، احصل على رسالة اني لا املك الصلاحية لفتحهم انزلت الان الملف من رابطك الجديد ، وان شائ الله خير جعفر
jjafferr قام بنشر أكتوبر 10, 2015 قام بنشر أكتوبر 10, 2015 أخي طارق وبعد جهد ، استطعت الدخول في البرنامج غدا ان شاء الله اشوف طلبك جعفر
Tarekfathallah قام بنشر أكتوبر 13, 2015 الكاتب قام بنشر أكتوبر 13, 2015 السلام عليكم اخ جعفر انني انتظر ردك على احر من الجمر لان عملي متوقف على ردك لانني بحاجة الى ادخال جدول جديد ملحق بالجدول sheet1 ارجو الرد سريعا وشكرا لك واعاده الله عليك وعلى الامة الاسلامية بالخير والبركة
Tarekfathallah قام بنشر أكتوبر 16, 2015 الكاتب قام بنشر أكتوبر 16, 2015 السلام عليكم يا اخ جعفر ليست اول مرة اقع في هذه المشكلة تساعدوني بجزء من العمل وتتركوني ولا احد يجيب اريد ان اعلم جازاكم الله كل خير هل انتم في هذا المنتدى تتعاملون مع الافراد على حسب اهواؤكم ام لديكم مشاغل اخرى لي 3 ايام بانتظار ردكم ولا احد يجيب على الاقل كلمة صغيرة تبرد قلبي عذرا للوقاحة ولكنها ليست المرة الاولى
jjafferr قام بنشر أكتوبر 16, 2015 قام بنشر أكتوبر 16, 2015 وعليكم السلام أخي طارق انا عندي حالة طارئه من كم يوم ولازالت ، ولم ادخل المنتدى. انا شخصيا لا اتعامل مع الافراد حسب هواي (ولم ألاحظ هذا على اي من المشاركين) ، ولكننا جميعا نساعد قدر استطاعتنا ووقتنا المتاح. سأحاول الليلة عمل المستطاع لإيجاد الحل لطلبك جعفر
jjafferr قام بنشر أكتوبر 16, 2015 قام بنشر أكتوبر 16, 2015 تفضل 1. أضفت حقل جديد للنموذج وجعلته مخفيا . 2. الكود اصبح: 'only split is nfous is empty If Len(Me.nfous & "") <> 0 Then Exit Sub Dim x() As String x = Split(Me.barcode, "+") Me.nfous = DLookup("[NoufousName]", "NoufousTable", "[Field1]='" & x(0) & "'") Me.nfous_ID = DLookup("[NoufousID]", "NoufousTable", "[Field1]='" & x(0) & "'") Me.[0000] = x(1) Me.[00] = x(2) Me.[00000] = x(3) Me.[0] = x(4) 'we will use the query method instead of the Recordset 'update the Record, if found DoCmd.SetWarnings False DoCmd.OpenQuery "qry_Update_BC_NF" DoCmd.SetWarnings True . 3. عملت استعلام تحديث: . للعلم ، بسبب كبر حجم قاعدة بياناتك ، اضطررت ان اضغط المرفق بصيغة 7z وتستطيع ان تنزل برنامج فك الضغط المجاني من هذا الموقع: http://www.7-zip.org لذلك بعد انزال المرفق fin.zip ، رجاء تغيير اسمه الى fin.7z ، ثم فك الضغط. جعفر fin.zip
jjafferr قام بنشر أكتوبر 19, 2015 قام بنشر أكتوبر 19, 2015 أخي طارق اذا عندك اي استفسار ، رجاء ان تسأل ، لأني يوم الاربعاء صباحا على سفر ولن استطيع دخول المنتدى لفترة. جعفر
Tarekfathallah قام بنشر أكتوبر 20, 2015 الكاتب قام بنشر أكتوبر 20, 2015 السلام عليكم اخ جعفر وشكرا لك لكن القاعدة لم تفتح ساحاول العمل على طريقة شرحها لي كما مبين ومرة ثانية شكرا لك ووفقك الله لما فيه الخير في سفرك هل استطيع التواصل مع احد غيرك في المنتدى اذا احتجت لشيء ام انني بحاجة للدخول من جديد بموضوع اخر
jjafferr قام بنشر أكتوبر 20, 2015 قام بنشر أكتوبر 20, 2015 وعليكم السلام الجميع يستطيع المشاركة ، ولكن عادة يفضل أن تفتح موضوع جديد ولكن الجميع عندما يريد المشاركة ، يجب أن يكون السؤال واضح وبالتفصيل ، وإلا فالاحتمالات تصبح ضئيلة للمشاركة ، وللأسف شرحك غير واضح وحتى مسميات الحقول ليست صحيحة ولا ترفق مثال للإقتداء به فالأفضل أن تتبع تعليمات تغيير إسم المرفق (right click on the file, rename the extension from zip to 7z) جعفر
jjafferr قام بنشر أكتوبر 20, 2015 قام بنشر أكتوبر 20, 2015 تفضل ، استطعت ان اجعل البرنامج صغير ، بإزالت الصورة الخلفية fin_New.zip
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.