Enjoy قام بنشر أكتوبر 20, 2006 مشاركة قام بنشر أكتوبر 20, 2006 (معدل) ارجوا المساعدة من جميع الاخوة الكرام في هذا الملف ارعص هنا تم تعديل أكتوبر 20, 2006 بواسطه Enjoy رابط هذا التعليق شارك More sharing options...
خليفة قام بنشر أكتوبر 20, 2006 مشاركة قام بنشر أكتوبر 20, 2006 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اخي العزيز لا اعتقد بوجد دالة مثل كذا عشان انا سبق ان حاولت في قاعدة بيانات عندي فيها اكثر من ثلاثمائة الف اسم اضطريت ان اقوم بتصديرها الي اكسيل وسويتها هناك ورجعتها الي الاكسيس بس لا تاخذ على كلامي عشان خبرتي صفر في امان الله اخوك خليفه رابط هذا التعليق شارك More sharing options...
فتى الوادي قام بنشر أكتوبر 20, 2006 مشاركة قام بنشر أكتوبر 20, 2006 (معدل) السلام عليكم ... اللي فهمته أن لديك جدول فيه حقول ( الاسم الأول ) ( اسم الأب ) ( أسم الجد ) ( أسم العائلة ) ولديك عدد كبير من السجلات في الجدول ... وتريد ضم اسماء الشخص في حقل واحد ( الاسم الكامل ) إذا كان هذا المراد فإليك الطريقة : 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 بواسطه فتى الوادي رابط هذا التعليق شارك More sharing options...
Enjoy قام بنشر أكتوبر 21, 2006 الكاتب مشاركة قام بنشر أكتوبر 21, 2006 شكر للجميع على اهتمامكم والف شكر لفتى الوادي بالنسبة لرد اخي فتى الوادي لم يكن هو المقصود - لكن كان في جوابه شي انا محتاج له اللي هو حفظ الاسم كامل في الجدول وكنت متوقع انه لايمكن ذلك فالف شكر اخي الوادي لانك وصلتني لحل كنت ابحث عنه ولكن بالنسبة لهذي المشاركة فأنا قبل احط الموضوع كنت متوقع انه لايوجد الكود اللي ابغاه - بس قلت يمكن من هنا او هنا المطلوب هو جمع حقل واحد فقط مثل (اسم الاب) من جميع السجلات المتتالية يعني (مطحس + سعد + احمد ) مع اني متوقع بانه لايوجد بس - لعل وعسى رابط هذا التعليق شارك More sharing options...
فتى الوادي قام بنشر أكتوبر 21, 2006 مشاركة قام بنشر أكتوبر 21, 2006 السلام عليكم ... يمكن ذلك .... لكن سؤالي : مالفائدة من جمع الأسماء الأولى للأشخاص في حقل واحد ؟ وهل بينهما فواصل مثل علامة ( + ) أو لا ؟ وهل تريد جمع الأسماء الأولى التي في الجدول في أي حقل ؟ في الجدول أو في نتيجة خارج الجدول كنموذج أو استعلام ؟ رابط هذا التعليق شارك More sharing options...
Enjoy قام بنشر أكتوبر 21, 2006 الكاتب مشاركة قام بنشر أكتوبر 21, 2006 الموضوع باختصار انا اشتركت في برنامج ارسال رسائل للجوال من الانترنت عشان ارسل رسايل لازم تكون الارقام بهذي الطريقة (ارقام تمثيلية) 966555922269,96650592229,966505000000 هذا مثال لثلاثة ارقام وانا عشان ما اتعب كل مرة اكتبهم وارفقهم قمت بعمل برنامج صغير يتكون من (الاسم-الرقم-ملاحظات) والمطلوب هو اني ابغى البرنامج يقوم بجمع الارقام المسجلة في جميع الحقول في حقل واحد عشان مجرد انسخ والصق هذا المطلوب وعلى العموم سارفق البرنامج عشان تشوفه وتعطيني رايك اذا ينفع او اغير الفكرة http://00op.com/up/upus06-10-06/cdd47a3f3c.zip اذا ماينفع انا عندي فكرة ثانية وهي اني اسوي عدد 50 حقل اسماء وعدد 50 حقل ارقام وعدد 50 حقل ملاحظات وتكون كلها في سجل واحد واجمعهم بنفس الطريقة القديمة اللي سويناها ويكون كل 50 رقم في سجل رابط هذا التعليق شارك More sharing options...
فتى الوادي قام بنشر أكتوبر 21, 2006 مشاركة قام بنشر أكتوبر 21, 2006 (معدل) السلام عليكم ... هذا الكود أفادني به الأخ الأستاذ مصلح الحريصي .... والطريقة : 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 بواسطه فتى الوادي رابط هذا التعليق شارك More sharing options...
Enjoy قام بنشر أكتوبر 22, 2006 الكاتب مشاركة قام بنشر أكتوبر 22, 2006 هذي المساعده مراح انساها لك طول عمري انت خليتني امسك الطريق وانا بكمل الباقي الف الف شكر لك وللاخ مصلح وياليتك توصل سلامي له رابط هذا التعليق شارك More sharing options...
Enjoy قام بنشر أكتوبر 22, 2006 الكاتب مشاركة قام بنشر أكتوبر 22, 2006 (معدل) ---------------------------- انتهت المشكلة ومثل ماقلتلك انت حطيتني في بداية الطريق والباقي علي الحل هو Me.txt1 = Me.txtnum & " ،966 " & Me.txt1 بس عندي سؤال بسيط يمكن يكون اسهل من الاول هل يمكن حذف الصفر من بداية الرقم قبل نسخة مع الارقام يعني لو خليت الحقل يكتب الرقم بالطريقة العادية مثلا 0555922269 0505922269 فهل استطيع حذف الصفر في الحقل الجديد ويكون بهذي الطريقة بعد النسخ 966555922269,96650522269 واسف على الازعاج ولاتنسى توصل سلامي لك و للاخ مصلح تم تعديل أكتوبر 22, 2006 بواسطه Enjoy رابط هذا التعليق شارك More sharing options...
Enjoy قام بنشر أكتوبر 24, 2006 الكاتب مشاركة قام بنشر أكتوبر 24, 2006 حبيت اشكر اخوي وحبيبي فتى الوادي واقوله كل عام وانت بخير اخيرا انتهيت من تصميم برنامج مناسب لبرنامج رسائل الجوال وكان بطريقة مختلفة عن اللي انا طلبته في البداية لكن مساعدتك لي وصلتني للنهاية ارجوا ابلاغ شكري ايضا للاستاذ مصلح هذا رابط البرنامج http://www.academy.com.sa/vb/showthread.php?t=202 هدية العيد رابط هذا التعليق شارك More sharing options...
Enjoy قام بنشر أكتوبر 26, 2006 الكاتب مشاركة قام بنشر أكتوبر 26, 2006 (معدل) خذ نسختك الان بعد التحديث من نفس الرابط http://www.academy.com.sa/vb/showthread.php?t=202 تم تعديل أكتوبر 26, 2006 بواسطه Enjoy رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.