هل يوجد هذا الكود

[Enjoy]

ارجوا المساعدة من جميع الاخوة الكرام في هذا الملف

ارعص هنا

تم تعديل أكتوبر 20, 2006 بواسطه Enjoy

[خليفة]

بسم الله الرحمن الرحيم

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

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

بس لا تاخذ على كلامي عشان خبرتي صفر

في امان الله

اخوك خليفه

[فتى الوادي]

السلام عليكم ...

اللي فهمته أن لديك جدول فيه حقول ( الاسم الأول ) ( اسم الأب ) ( أسم الجد ) ( أسم العائلة )

ولديك عدد كبير من السجلات في الجدول ... وتريد ضم اسماء الشخص في حقل واحد ( الاسم الكامل )

إذا كان هذا المراد فإليك الطريقة :

1- ضع حقل جديد لديك في الجدول وليكن اسمه مثلاً ( fullname )

2- انشيء نموذج جديد وضع عليه زر أمر وضع هذا الكود في حدث الزر عند النقر

 Dim db As Database
 Dim MyTABLE As Recordset
Set db = DBEngine.Workspaces(0).Databases(0)
Set MyTABLE = db.OpenRecordset("الاسم", dbOpenTable)
Do While Not MyTABLE.EOF
MyTABLE.Edit
   MyTABLE![FullName] = MyTABLE![الاسم الاول] & " " & MyTABLE![اسم الاب] _
   & " " & MyTABLE![اسم الجد] _
   & " " & MyTABLE![اسم العائلة]
      MyTABLE.Update
    MyTABLE.MoveNext
  Loop
MyTABLE.Close

على افتراض أن الجدول لديك اسمه ( الاسم )

آمل أن أكون قد ساعدت في مرادك .

نسيت أرد لك المثال بعد التعديل

...

لاحظ الزر وضعته في النموذج اسم الزر ( جمع الأسماء في الجدول )

Test.rar

تم تعديل أكتوبر 20, 2006 بواسطه فتى الوادي

[Enjoy]

شكر للجميع على اهتمامكم

والف شكر لفتى الوادي

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

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

المطلوب هو جمع حقل واحد فقط مثل (اسم الاب) من جميع السجلات المتتالية

يعني (مطحس + سعد + احمد )

مع اني متوقع بانه لايوجد بس - لعل وعسى

[فتى الوادي]

السلام عليكم ...

يمكن ذلك .... لكن سؤالي : مالفائدة من جمع الأسماء الأولى للأشخاص في حقل واحد ؟ وهل بينهما فواصل مثل علامة ( + ) أو لا ؟ وهل تريد جمع الأسماء الأولى التي في الجدول في أي حقل ؟ في الجدول أو في نتيجة خارج الجدول كنموذج أو استعلام ؟

[Enjoy]

الموضوع باختصار انا اشتركت في برنامج ارسال رسائل للجوال من الانترنت

عشان ارسل رسايل لازم تكون الارقام بهذي الطريقة (ارقام تمثيلية)

966555922269,96650592229,966505000000

هذا مثال لثلاثة ارقام

وانا عشان ما اتعب كل مرة اكتبهم وارفقهم قمت بعمل برنامج صغير يتكون من (الاسم-الرقم-ملاحظات)

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

هذا المطلوب وعلى العموم سارفق البرنامج عشان تشوفه وتعطيني رايك اذا ينفع او اغير الفكرة

http://00op.com/up/upus06-10-06/cdd47a3f3c.zip

اذا ماينفع انا عندي فكرة ثانية وهي

اني اسوي عدد 50 حقل اسماء وعدد 50 حقل ارقام وعدد 50 حقل ملاحظات

وتكون كلها في سجل واحد

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

ويكون كل 50 رقم في سجل

[فتى الوادي]

السلام عليكم ...

هذا الكود أفادني به الأخ الأستاذ مصلح الحريصي .... والطريقة :

1- انشيء نموذج جديد يعتمد على الجدول لديك ... وفيه حقل ( txtnum ) مصدره حقل ( الرقم ) من الجدول

2- انشيء مربع نص غير منضم واسميناه ( txt1 )

3- أنشيء زر أمر وضع فيه هذا الكود :

        On Error GoTo Err
    
        Dim I As Integer
        Dim R As Integer
            R = DCount("[الرقم]", "الارقام")
            DoCmd.GoToRecord , , acLast
            
            Me.txt1 = R
        For I = 1 To R
             DoCmd.GoToRecord , , acPrevious
            Me.txt1 = Me.txtnum & " ، " & Me.txt1

        Next I
Err:
        If Err.Number = 2499 Then Exit Sub

الطريقة ناجحة لكن بالنسبة لقناع الأدخال لم يظهر مع الأرقام .. يعني تطلع الأرقام بدون القناع 966

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

تم تعديل أكتوبر 21, 2006 بواسطه فتى الوادي

[Enjoy]

هذي المساعده مراح انساها لك طول عمري

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

[Enjoy]

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

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

الحل هو

Me.txt1 = Me.txtnum & " ،966 " & Me.txt1

بس عندي سؤال بسيط يمكن يكون اسهل من الاول

هل يمكن حذف الصفر من بداية الرقم قبل نسخة مع الارقام

يعني لو خليت الحقل يكتب الرقم بالطريقة العادية مثلا

0555922269

0505922269

فهل استطيع حذف الصفر في الحقل الجديد ويكون بهذي الطريقة بعد النسخ

966555922269,96650522269

واسف على الازعاج

ولاتنسى توصل سلامي لك و للاخ مصلح

تم تعديل أكتوبر 22, 2006 بواسطه Enjoy

[Enjoy]

حبيت اشكر اخوي وحبيبي فتى الوادي واقوله كل عام وانت بخير

اخيرا انتهيت من تصميم برنامج مناسب لبرنامج رسائل الجوال

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

ارجوا ابلاغ شكري ايضا للاستاذ مصلح

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

http://www.academy.com.sa/vb/showthread.php?t=202

هدية العيد

[Enjoy]

خذ نسختك الان بعد التحديث من نفس الرابط

http://www.academy.com.sa/vb/showthread.php?t=202

تم تعديل أكتوبر 26, 2006 بواسطه Enjoy