مساعدة في الباركود

[Tarekfathallah]

السلام عليكم عندي قاعدة بيانات بالباركود اريد عند ادخال الباركود ان يجزء ه لي في الجداول المرفقة اي الحرف والرقم في اوله مثلا d1= زحلة 

مرفق ربطا القاعدة  ارجو المساعدة بالسرعة الممكنة 

db barcode new.rar

[jjafferr]

وعليكم السلام الأخ طارق

 

انزلت مرفقك واطلعت عليه ، ولكن لم افهم المطلوب بالتفصيل !!

انت صاحب الموضوع والذي تعرف مداخيل برنامجك ، فلوسمحت تأخذ من وقت وتشرح المطلوب بالتفصيل ،

يعني اي نموذج /جدول ننظر فيه ، اي حقل ، ثم ماذا ، ثم ...

 

جعفر

[Tarekfathallah]

السلام عليكم يا اخي المطلوب عند ادخال الباركود في الفورم table 2 عندي اول حرف ورقم اريده ان يترجمه في جدول table2 عامود nfous المرتبط بالجدول nfous table كما هو مرفق في النموذج جدول table 2

اي A1 = بيروت  D1= زحلة  D10=النبي شيت وهكذا 

وشكرا لك 

 

[jjafferr]

وعليكم السلام 

 

تفضل 

 

جعفر

db barcode new.zip

[Tarekfathallah]

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

A1 = nfous table = بيروت 

00= 00 لاحقا لها عمل 

0= اخر خانة في الباركود 

رابع هانة من اليسار في الباركود = رقم الجدول الجديد  وهو رقم 

مرفق قاعدة البيانات الجديدة 

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

ارجو الرد سريعا لضيق الوقت علما ان القاعدة القديمة كبيرة 1.6gb  

db barcode new.rar

[jjafferr]

أخي طارق

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

A1 = nfous table = بيروت 

00= 00 لاحقا لها عمل 

0= اخر خانة في الباركود 

رابع هانة من اليسار في الباركود = رقم الجدول الجديد  وهو رقم 

مرفق قاعدة البيانات الجديدة 

 

.

انا آسف ، لم افهم قصدك

اعطني مثال لكي اهتدي به لوسمحت ، مثلا ، ماذا تريدني ان اعمل بالمعلومة A1+2000+00+00101+B

اخبرني بالتفصيل لوسمحت ، بالقيم واسماء الحقول.

 

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

ارجو الرد سريعا لضيق الوقت علما ان القاعدة القديمة كبيرة 1.6gb  

db barcode new.rar

.

آسف لم افهم المطلوب ابدا 

ولكن وبشكل عام ، نعم نستطيع ان نربط قواعد البيانات ببعض ، واجراء اي عمل عليها 

 

جعفر

 

[Tarekfathallah]

سيدي الكريم الاخ جعفر شكرا لردك علي وسعة قلبك 

المطلوب هو تفقيط الباركود الى اجزاء مثلا 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]

تفضل يا سيدي 

 

الجزء الاول يعتمد على هذا الكود لتفكيك نص الباركود عند علامة + :

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]

شكرا لك اخ جعفر جزيل الشكر ساعمل فورا على الموضوع 

[Tarekfathallah]

شكرا لك اخ جعفر لقد افرغت القاعدة القديمة وادخلت القاعدة الجديدة بها  الدخول من ملف الهويات 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]

انزل البرنامج المجاني من هذا الرابط

http://www.7-zip.org/

 

ثم اضغط البرنامج بصيغة 7z ، 

وعندما يكون الحجم مناسب ، تستطيع ان:

1. إما ان ترفعه في رابط خارجي ، ثم ترفق الرابط هنا ،
2. او ان تغير اسم الملف وتغير صيغته الى zip بدلا عن 7z ، ثم تستطيع ان ترفقه في مشاركتك في هذا المنتدى وتخبرنا بصيغة المرفق 

 

جعفر

[Tarekfathallah]

https://www.dropbox.com/sh/y54lt2v74hqs

lxp/AAC2N9yOoayGNUJx7kWZrHrqa?dl=0

متاسف لم استطع او افهم سوى هكذا او اذا امكن ان ارفعها على الميل لو سمحت 

[Tarekfathallah]

https://www.dropbox.com/s/ws95gqa4zpac2rh/fin - Copy.rar?dl=0

تم تعديل أكتوبر 10, 2015 بواسطه tarek_f26180

[jjafferr]

أخي طارق 

 

البارحة انزلت الملف ، ولكن وللأسف لم استطع فتح برنامجين ، احصل على رسالة اني لا املك الصلاحية لفتحهم 

 

انزلت الان الملف من رابطك الجديد ، وان شائ الله خير 

 

جعفر

[jjafferr]

أخي طارق 

 

وبعد جهد ، استطعت الدخول في البرنامج 

غدا ان شاء الله اشوف طلبك 

 

جعفر

[Tarekfathallah]

شكرا لك اخ جعفر 

 

[Tarekfathallah]

اخ جعفر انا ما زلت بانتظارك 

[Tarekfathallah]

السلام عليكم اخ جعفر انني انتظر ردك على احر من الجمر لان عملي متوقف على ردك لانني بحاجة الى ادخال جدول جديد ملحق بالجدول sheet1 ارجو الرد سريعا وشكرا لك واعاده الله عليك وعلى الامة الاسلامية بالخير والبركة

[Tarekfathallah]

السلام عليكم 

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

[jjafferr]

وعليكم السلام أخي طارق

 

انا عندي حالة طارئه من كم يوم ولازالت ، ولم ادخل المنتدى.

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

 

سأحاول الليلة عمل المستطاع لإيجاد الحل لطلبك

 

جعفر

[jjafferr]

تفضل 

 

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]

أخي طارق 

 

اذا عندك اي استفسار ، رجاء ان تسأل ، لأني يوم الاربعاء صباحا على سفر ولن استطيع دخول المنتدى لفترة.

 

جعفر

[Tarekfathallah]

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

[jjafferr]

وعليكم السلام

الجميع يستطيع المشاركة ، ولكن عادة يفضل أن تفتح موضوع جديد 

ولكن الجميع عندما يريد المشاركة ، يجب أن يكون السؤال واضح وبالتفصيل ، وإلا فالاحتمالات تصبح ضئيلة للمشاركة ، وللأسف شرحك غير واضح وحتى مسميات الحقول ليست صحيحة ولا ترفق مثال للإقتداء به 

 

فالأفضل أن تتبع تعليمات تغيير إسم المرفق (right click on the file, rename the extension from zip to 7z)

 

جعفر

[jjafferr]

تفضل ، استطعت ان اجعل البرنامج صغير ، بإزالت الصورة الخلفية 

fin_New.zip