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

تغيير نوع الحقل فى الاستعلام

بدأه mtak33 في 22 نوفمبر 2012 · 2 رد · 473 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الاخوة الاعزاء

لى كام سؤال كده ارجو ان اجد عندكم الاجابات الشافيه لهم

1- عندى جدول به عدة حقول - نوعهم نص ( و انا اخزن بهم ارقام لسبب سوف اذكره لاحقا )

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

السؤال هو : كيف يمكنى الابقاء على نوعهم فى الجدول كما هو و عند وضعهم فى التقرير احولهم الى عدد عشرى كى استطيع ان ارسم لهم رسم بيانى و اجرى عليهم بعض الحسابات من متوسطات و ما الى ذلك

----------------------------

سبب احتياجى لتلك الطريقه

انى اجمع داتا لاكثر من جهاز و كل جهاز له العدد الخاص به عند معايرته

مثال : جهاز 1 - 0.12502

جهاز 2 - 0.120

جهاز 3 b420

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

----------------------------------------------------------------------------------------------------------------

السؤال الثانى

منذ ان تعلمت من معلمتنا الجليله ام عهود طريقه حفظ قيم داخل جدول و هى كالتالى :

  Dim strMsg As String
'Dim conn
Set conn = New ADODB.Connection
        conn.Open CurrentProject.AccessConnection
' open table
Set rsrecord = New ADODB.Recordset
    rsrecord.CursorType = adOpenKeyset
    rsrecord.LockType = adLockOptimistic
            rsrecord.Open "t_dmaca", conn, , , adCmdTable
' 
rsrecord.AddNew
    rsrecord!dd = dd
    rsrecord!mm = mm
 rsrecord.Update
    '//////////

rsrecord.Close
conn.Close

تلك الطريقه اراحتنى جدا من عدة مشاكل لانى استخدم معها unbound - textfields

و بالتالى لا اخشى من الحفظ التلقائى او الغلق المفاجئ و هكذا

و لكن كما هو واضح لخبرائنا ان تلك الطريقه افتح بها جدول واحد فقط

فكيف يمكن ان اضيف فى جدولين فى نفس الوقت

--

حاولت فيها بأنى بعد نهاية الاضافة فى الجدول الاول

افتح الجدول الثانى و اعيد الكرة

و لكن هل هناك طريقه اكثر احترافيه لعمل ذلك

جزاكم الله خيرا

كيميائى / محمد طه

#2

اخي الفاضل

السلام عليكم ورحمة الله وبركاته

للإجابة على الشق الأول من السؤال

1. بما ان مصدر السجلات للتقرير هو الإستعلام لذا ليس عليك سوى عمل تنسيق للحقول في الإستعلام للتي تريدها ان تظهر في التقرير بأنها جقول رقمية بدلا من نصية بهذا الشكل

post-15367-080155800 1353589445_thumb.gi

post-15367-060047500 1353589468_thumb.gi

post-15367-069055300 1353589494_thumb.gi

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

بالنسبة للشق الثاني من السؤال استخدم هذه الطريقة

Dim conn
Set conn = New ADODB.Connection
        conn.Open CurrentProject.AccessConnection
' open table  ( t_dmaca )
    Set rsrecord = New ADODB.Recordset
    rsrecord.CursorType = adOpenKeyset
    rsrecord.LockType = adLockOptimistic
    rsrecord.Open "t_dmaca", conn, , , adCmdTable
    rsrecord.AddNew
    rsrecord!dd = dd
    rsrecord!mm = mm
   rsrecord.Update
   rsrecord.Close
conn.Close
'تم فتح وتحديث سجلات الجدول الأول واغلاقه  

' فتح سجلات الجدول الثاني وتحديث السجلات ثم اغلاقة بنفس الطريقة الأولى

Dim conn
Set conn = New ADODB.Connection
        conn.Open CurrentProject.AccessConnection
' open table  ( t_zahrah )
    Set rsrecord = New ADODB.Recordset
    rsrecord.CursorType = adOpenKeyset
    rsrecord.LockType = adLockOptimistic
    rsrecord.Open "t_zahrah", conn, , , adCmdTable
    rsrecord.AddNew
    rsrecord!dd = zz
    rsrecord!mm = yy
   rsrecord.Update
   rsrecord.Close
conn.Close
'تم فتح وتحديث سجلات الجدول االثاني واغلاقه

بحيث تفتح سجلات الجدول الأول وتقوم بتحديثها ثم اغلاق الإتصال بالجدول الأول

ثم تفتح سجلات الجدول الثاني وتقوم بتحديثها ثم اغلاق الإتصال بالجدول الثاني

لا تنسانا من التقييم بارك الله بك

بالتوفيق

المرفقات
R.gifR1.gifR2.gif
1
#3

الاخت الغاليه ام عهود

جزاك الله كل خير

--------

بالنسبة للسؤال الثانى

كخبيره فى الاكسيس

هل تلك الطريقه فى حفظ البيانات جيده من وجهة نظرك

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

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

و جزاك اللله خيرا على تعليمنا اياها

كيميائى / محمد طه

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

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

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

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

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