الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفية تحويل بيانات من كومبو بوكس الى تكست بوكس

بدأه Ahmad Faisal في 30 أغسطس 2012 · 16 رد · 1,364 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم اخواني مشرفي واعضاء المنتدى

اخواني اريد مساعدة منكم ان شالله تقدرو تساعدوني

عندي نموذج على اكسس

المطلوب...

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

الكومبو بوكس سيكون مصدر بياناته رقم المورد من جدول الموردين وهو من نوع ترقيم تلقائي

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

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

Inventory System.rar

#3

اختي زهرة شكرا لكي على ردك السريع مشالله عنك ..

اختي تسلم ايدك يا رب

بس اختي انا كنت اقصد اني اختار رقم المورد من الكمبو بوكس يطبع اسم المورد في تكست بوكس الخاص بجدول invoice purchase جدول المشتريات وليس تكست بوكس مصدره حقل اسم المورد من جدول الموردين يعني اريد ان استدعي قيمة الرقم من كمبو بوكس ويطبع اسم المور في جدول اخر وهو فواتير الشراء

ويا ريت يا اختي لو تفهميني الطريقة الي عملتي فيها المطلوب

اسف على الاطالة اختي ان شالله ما اكون تعبتك معي

تم تعديل هذه المشاركة بواسطة Ahmad Faisal في 31 أغسطس 2012 في 00:34

#4
Ahmad Faisal كتب:

اختي زهرة شكرا لكي على ردك السريع مشالله عنك ..

اختي تسلم ايدك يا رب

بس اختي انا كنت اقصد اني اختار رقم المورد من الكمبو بوكس يطبع اسم المورد في تكست بوكس الخاص بجدول invoice purchase جدول المشتريات وليس تكست بوكس مصدره حقل اسم المورد من جدول الموردين يعني اريد ان استدعي قيمة الرقم من كمبو بوكس ويطبع اسم المور في جدول اخر وهو فواتير الشراء

ويا ريت يا اختي لو تفهميني الطريقة الي عملتي فيها المطلوب

اسف على الاطالة اختي ان شالله ما اكون تعبتك معي

اخي الفاضل

لا يمكن عمل ذلك بأن تقوم بإختيار رقم من مربع التحرير والسرد Combo26 الذي مصدرة حقل Supplier_Num من جدول Suppliers وتريد ان يقوم بطباعة اسم في جدول Purchase Invoice لعدة اسباب :

1. لا يوجد اساسا لديك حقل نصي لكتابة اسم المورد فيه لذا يجب وضع حقل اسم المورد Supplie_Name

2. لا يمكن وضع نصوص في حقول الأرقام

لاحظ معي جدول الموردين

post-15367-017617700 1346517840_thumb.gi

انت تريد وضع اسم المورد ذو الحقل النصي في حقل رقم المورد ذو الحقل الرقمي في جدول فاتورة المشتريات

post-15367-028883500 1346517929_thumb.gi

ولهذا لديك خياران فقط

1. اما ان يتم تحديث حقل Supplier الرقمي في جدول Purchase Invoice بما يقابله في جدول Suppliers وهو حقل Supplier_Num

2. تقوم بإنشاء حقل نصي بإسم المورد Supplie_Name في جدول Purchase Invoice

عدى ذلك لا نستطيع مساعدتك

لأنه لا يمكن تحديث حقل رقمي بحقل نصي لأختلاف الخصائص بين الحقلين ولن يقبل برنامج الأكسيس بذلك

بالتوفيق

المرفقات
S3.gifS2.gif
#5

شكرا الك اختي زهرة

اختي انا عارف انه نوع نصي ولا يقبل بس نسيت اعدله

اختي يعني تقصدين مافي حل الا اني احط تكست بوكس واعبيه يدوي باسم المورد ؟؟

#6
Ahmad Faisal كتب:

شكرا الك اختي زهرة

اختي انا عارف انه نوع نصي ولا يقبل بس نسيت اعدله

اختي يعني تقصدين مافي حل الا اني احط تكست بوكس واعبيه يدوي باسم المورد ؟؟

نعم اخي الكريم لا يوجد لديك حل سوى وضع حقل ولكن ليس تكست بوكس وانما كمبو بوكس ( مربع تحرير وسرد ) لأنه اسهل وأضمن لمعرفة اسماء الموردين بكل دقه فقد تخطئ في كتابة اسم مورد ما لو استخدمت حقل تكست بوكس

ولذا احصل على اسماء الموردين من جدول الموردين للكمبو بوكس

وبهذا تنتهي مشكلتك

بالتوفيق

#7

مشكورة اختي زهرة الله يخليك يا رب

طيب اختي اخر استفسار

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

يعني لو ادخلت حرف "د" من اسم المورد احمد يطلع في عمليه الادخال فيه

بوركتي اختي

#8
Ahmad Faisal كتب:

مشكورة اختي زهرة الله يخليك يا رب

طيب اختي اخر استفسار

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

يعني لو ادخلت حرف "د" من اسم المورد احمد يطلع في عمليه الادخال فيه

بوركتي اختي

نعم اخي الكريم

يمكن عمل ذلك

راجع هذه المشاركة وقم بتحميل المرفقات وخاصة الأخيره الخاصة بالأخ ابو شفيق فقد تم ايجاد الحل بها

/index.php?showtopic=267838

بالتوفيق

1
#9

شكرا لك على ردك السريع اخت زهرة

اختي عندي سؤال بصراحة غريب شوي

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

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

اسف اختي تعبتك معي بس حضرتك خليتينا نطمع بكرمك

الله يزيدك علم

#10
Ahmad Faisal كتب:

شكرا لك على ردك السريع اخت زهرة

اختي عندي سؤال بصراحة غريب شوي

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

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

اسف اختي تعبتك معي بس حضرتك خليتينا نطمع بكرمك

الله يزيدك علم

اخي الفاضل

اين هو المربع الصغير الشفاف الذي به خيارات وفي اي مثال تتحدث

ياريت توضح ذلك لنا بالصوره

لأنني لم اجد في الامثلة سوى مربع نص عادي يأخذ القيمه من مربع التحرير والسرد ولا يوجد اي خيارات

بالتوفيق

#11

اهلا فيكي اختي زهرة الله يجزيكي الخير

اعتذر عن عدم التوضيح

لاحظي الصورة والقاعدة في المرفقات

النموذج اسمه في القاعدة Purchase Invoice ومربع السرد باسم supplier

والصورة التوضيحية بالمرفقات

شكرا اختي

Inventory System.rar

post-266418-070063500 1346708791_thumb.j

المرفقات
untitled.JPG
#12
Ahmad Faisal كتب:

اهلا فيكي اختي زهرة الله يجزيكي الخير

اعتذر عن عدم التوضيح

لاحظي الصورة والقاعدة في المرفقات

النموذج اسمه في القاعدة Purchase Invoice ومربع السرد باسم supplier

والصورة التوضيحية بالمرفقات

شكرا اختي

تفضل اخي الكريم

عند فتح النموذج سنضع هذا الكود

Private Sub Form_Open(Cancel As Integer)
Me.Supplier.AllowValueListEdits = False
End Sub

post-15367-029922900 1346716563_thumb.gi

عند النقر المزدوج على مربع التحرير والسرد Supplier سنضع هذا الكود

Private Sub Supplier_DblClick(Cancel As Integer)
Dim strPassword
Dim strPrompt
Dim strTitle
strPrompt = "ادخل الرقم السري"
strTitle = "الرقم السري"

If MsgBox("هل تريد تحرير القائمة", vbCritical + vbYesNo, "تحرير القائمة") = vbYes Then
strPassword = InputBox(strPrompt, strTitle)
If strPassword = "123" Then
Me.Supplier.AllowValueListEdits = True
ElseIf strPassword <> "123" Then
MsgBox "عذرا اخي الكريم ... الرقم السري خطأ .. اعد المحاولة "
Me.Supplier.AllowValueListEdits = False

Else
Cancel = -1
Me.Supplier.AllowValueListEdits = False
End If
End If
End Sub

post-15367-089330200 1346716721_thumb.gi

post-15367-093160000 1346716880_thumb.gi

post-15367-091123500 1346716991_thumb.gi

za-Inventory System-UP.rar

بالتوفيق

المرفقات
M1.gifM2.gifM3.gifM4.gif
#13

مشالله عنك يا اخت زهرة لا يصعب عليكي شئ الله يزيدك علم ومعرفة

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

ما المشكلة فيها اختي

#14
Ahmad Faisal كتب:

مشالله عنك يا اخت زهرة لا يصعب عليكي شئ الله يزيدك علم ومعرفة

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

ما المشكلة فيها اختي

المشكلة بارك الله بك انك مخربط حالك ( يعني شغلك كله ملخبط

والسبب .....

يوجد لديك جدول الموردين والذي من المفروض ان يكون فيه جميع اسماء الموردين ويكون مربع التحرير والسرد Supplier مصدر الصف له هو جدول الموردين

ولكنك بدلا من عمل ذلك قمت بارك الله بك بجعل مصدر الصف لمربع التحرير والصف هو قائمة القيم وكتبت فيه ثلاث شركات فقط

طبعا هذا الشيء راجع لك على حسب تصورك انت

ولكن الصحيح ان يكون مصدر الصف هو جدول الموردين لمربع التحرير والسرد

وعلى هذا الأساس سوف تحل المشكلة لديك

راجع المثال الخاص بالأخ ابو شفيق وستجد ان مصدر الصف لمربع التحرير والسرد الخاص بالمدارس هو جدول المدارس حيث ستجد جميع المدارس موجوده في الجدول

بالتوفيق

تم تعديل هذه المشاركة بواسطة zahrah في 4 سبتمبر 2012 في 19:02

#15

اختي كلامك مزبوط والله

بس يا اختي انا اريد اضافة اسم المورد في جدول "فواتير المشتريات" واذا سويت المصدر جدول الموردين رح يختاره من جدول الموردين وما رح ينضاف على فاتورة المشتريات

فهمتيني اختي

#16
Ahmad Faisal كتب:

اختي كلامك مزبوط والله

بس يا اختي انا اريد اضافة اسم المورد في جدول "فواتير المشتريات" واذا سويت المصدر جدول الموردين رح يختاره من جدول الموردين وما رح ينضاف على فاتورة المشتريات

فهمتيني اختي

اخي الفاضل

لقد ابلغتك بارك الله بك ان هذا الأمر عائد لك وحدك ولتصورك حسب طبيعة عمل البرنامج

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

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

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

لذا لديك خيارين اما التخلي عن الفرز المطبق في المثال والإبقاء على عملك كما هو وهذا هو الأفضل

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

لذا لا استطيع اجبارك على اي شيء انت مقتنع به لذا انا ارشح لك الخيار الأول .

بالتوفيق

تم تعديل هذه المشاركة بواسطة zahrah في 4 سبتمبر 2012 في 23:16

#17

تسلمي يا اخت زهرة الله يبارك فيكي

ساعمل بالنصيحة كما قلتي لكي لا يصبح تداخل عندي

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…