كيفية تحديث جزء من حقل

[ابو البشر]

الأخوة الافاضل :

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

لدي حقل في جدول وأريد تحديث جزء في الحقل لجميع السجلات مثلا مكتبة 1 الشعبة 2 الى مكتبة 01 الشعبة 02

ومثلا احياء 1 الشعبة 13 الى أحياء 01 الى الشعبة 13 .... بمغنى كل رقم في الحقل يتم تحويله الى رقمين باضافة صفر في خانة العشرات واذا كان الرقم مكون من رقمين يتجاوزه ..... ولكم جزيل الشكر مقدما .

 

                                                                   Barna

[ابو البشر]

bat.rar

[أحمد وجيه]

 الطريق : هتقف على كل حقل انت عايز تعمل تغيير في سجلاته وتضغط Ctrl + H  الي هي " استبدال "   وتغير الي انت عايزه

وده المرفق بعد التعديل

bat2.rar

[ابو البشر]

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

[راعي الغنم]

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

وليش مايكون ياسيدي الحقل الوحيد بالمرفق لديك يصير 3حقول

الاول اسم المادة فيزياء

الثاني الرقم 04

الثالث الشعبة 14

هذا يكون اسهل للترتيب والتعديل..

مجرد اقتراح

[ابو البشر]

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

لكن المشكلة اساس هذه البيانات كان ملف اكسل ثم تم استيراده للاكسس فتظهر بهذه الصورة ... واريد تعديلها بالشكل المذكور في الموضوع فعلا بهدف الترتيب .. بارك الله فيك .

[ابو البشر]

UP ......

[رمهان]

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

 

ممكن تشرح هذه العبارة ؟ اي كيف تتكرر ؟ اي الية الاستخدام ؟ حاب اعرف الية العمل ؟

[ابو البشر]

اخي رمهان

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

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

[رمهان]

تفضل باشا !!

وما تتعاودها مرة ثانية باسئلة زي كذا ! !!! مرة ثانية حندفعك  !!

Set rs = CurrentDb.OpenRecordset("t1"): rs.MoveFirst
Do Until rs.EOF
For i = 1 To 9
If InStr(1, Trim(rs(0)), i & " ") > 0 Then
xx = Replace(Trim(rs(0) & " "), i & " ", "0" & i)
rs.Edit
rs(0) = xx
rs.Update
End If
Next i
rs.MoveNext
Loop
DoCmd.RunSQL "update t1 set clas = Replace([clas],Right(Trim([clas]),2),Format(Right(Trim([clas]),2),' 00')) where clas is not null"
DoCmd.OpenTable "t1"

بالتوفيق

[ابو البشر]

هههه ... اشكرك حبيبي .... جاري التجربة

[ابو البشر]

تمت التجربة يا باشا ( افضل اجابة )     

[رمهان]

كيفك ياباشا

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

Function ramhan(fld)
On Error GoTo 10
vr = Split(Trim(fld), " ")
For i = 0 To UBound(vr)
xnew = xnew & IIf(IsNumeric(vr(i)), Format(vr(i), "00"), vr(i)) & " "
Next i
10: ramhan = Trim(xnew)
End Function

والاستعلام هكذا :

SELECT t1.clas, ramhan([clas]) AS Expr1
FROM t1;

طبعا وحسب مرفقك السابق !

 

تحيات رمهان

[Hosain21]

اخي رمهان

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

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

أخي الكريم الغالي :

إذا كنت ترغب استيراد جداول الطلاب في نظام المقررات فهذا الملف يساعدك ، ولاتوجد حقوق (عدّل عليه ، أو اطلب أيّ تعديل)

http://www.mediafire.com/download/qvcc43e11bmg1av

 

[ابو البشر]

كيفك ياباشا

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

Function ramhan(fld)
On Error GoTo 10
vr = Split(Trim(fld), " ")
For i = 0 To UBound(vr)
xnew = xnew & IIf(IsNumeric(vr(i)), Format(vr(i), "00"), vr(i)) & " "
Next i
10: ramhan = Trim(xnew)
End Function

والاستعلام هكذا :

SELECT t1.clas, ramhan([clas]) AS Expr1
FROM t1;

طبعا وحسب مرفقك السابق !

 

تحيات رمهان

 

كل عام وانت بخير .... اخي رمهان . الله يجعل ايامك كلها روقان وسعادة . يكفيني شرفا أن يصبح موضوعي همك وشغلك .. لا يسعني الا أن اقف لك احترامنا استاذي الفاضل ... وما تتعاودها مرة ثانية باجابات زي كذا ! !!! مرة ثانية حندفعك  !!     

 

 

 

اخي رمهان

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

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

أخي الكريم الغالي :

إذا كنت ترغب استيراد جداول الطلاب في نظام المقررات فهذا الملف يساعدك ، ولاتوجد حقوق (عدّل عليه ، أو اطلب أيّ تعديل)

http://www.mediafire.com/download/qvcc43e11bmg1av

 

 

 

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

[Hosain21]

أخي الكريم الغالي :
هنا ملفات أخرى لنظام المقررات (لاتتردد في التعديل عليها ، أو طلب التعديل).
الأول : لنقل بيانات الطلاب إلى البرامج الأخرى ، وللكشوف .
والثاني : لحصر الاحتياج من المعلمين .
والثالث لاستكمال تقارير النتيجة (المبيضة) .
كما تم تعديل التقويم الدراسي في ملف الجداول (للعام الدراسي القادم 1436 / 1437).
 

بيانات طلاب المقررات.zip

مبيضة المقررات.zip

الاحتياج.zip

الجداول36.zip

تم تعديل يونيو 16, 2015 بواسطه Hosain21

[ابو البشر]

اشكرك يا استاذ / حسين ... غمرتني بكرمك ... بارك الله في جهدك ووقت ونفع بك ....