رمهان

اشكركم على تعديل العنوان ولكم جزيل الشكر ! وهذا تعديل باضافة استخدام الارقام المحذوفة في الترقيم ! طبعا هناك تعديلات بسيطة كاضافة عمود تسلسلي ( احتجناه لخيار جلب الارقام المفقودة ) ,وادخال الدالة val لتمييز الرقم 10 كرقم ! تحياتي auto_num.rar

اعزائي المشرفين والمراقبين تم تعديل العنوان ! وهو اساس الموضوع وهي التهنة ! هلا اصبح هكذا : تهنئة وهدية ( اكتبو ما يناسبكم ) ! مشكورين

http://www.officena.net/ib/index.php?showtopic=62214

اولا اعتذر اخ وائل عن توجيهك الى مكان اخر لتوقعي ان مشكلتك ليست في الترقيم التلقائي ! وقد قام الاخ وائل بفتح موضوع هنا http://www.officena.net/ib/index.php?showtopic=62220 وهنا ارفع لك الحل وبنفس فكرة الهدية الرمضانية ! استخدام امكانية خصائص مربع التحرير والسرد وكقيمة افتراضية ! وهنا نلاحظ كيف استطعنا الاستغناء عن الاكواد حتى في جلب الارقام المفقودة ! وكما ذكرت في اول مشاركة الفكرة تدور حول التعمق في انشاء استعلام مصدر صف مربع التحرير والسرد ! ثم استخدام الخصائص لجلب القيم من القائمة المنسدله والتي مصدرها الاستعلام وكقيمة افتراضية ! تفضل المرفق KFC.rar

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

حسب مافهمت من كود الترقيم التالي ' ÇáßæÏ ÇáÎÇÕ ÈÇáÊÑÞíã ÇáÊáÞÇÆí On Error GoTo Err Static Counter As Integer Dim ValMax As Integer Dim R As Variant Dim I As Integer ValMax = DMax("[orderno]", "Torderno") For I = 1 To ValMax Counter = Val(Counter) + 1 R = DLookup("[orderno]", "Torderno", "orderno =" & Counter & "") If IsNull(R) Then Me.orderno = Val(Counter) Exit For Else Me.orderno = Val(Counter) + 1 End If Next I Err: If Err.Number = 94 Then Me.orderno = 1 انه يقوم بعمل بعملية الترقيم بالاضافة الى خيار استخدام الارقام المحذوفة ! وهذا مايسبب البطء وفعلا انت تلف على جميع الارقام المحصورة بين 1 واعلى رقم والاكثر تعقيد هو استخدام dlookup للبحث في كل عملية دوران عن الرقم المفقود ؟ اذا كان فهمي صحيح : فمعليش اخ وائل ان جعلتك تنتقل من الموضوع الجديد والهدية وهنا http://www.officena.net/ib/index.php?showtopic=62214 فحبذا نعود هناك ! واسف جدا ! وحبذا تكرما من اصحاب الصلاحية التكرم بدمج الموضوع هناك ! حيث المشكلة الترقيم التلقائي وسنحاول نشوف هدية رمهان في مشكلة كهذه ! تحياتي

ماهي الية الترقيم التلقاني او المعادلة او التعبير ؟

هلا بالمرفق اخ وائل ! ممكن عمل قاعدة جديدة واستيراد الجدول والاستعلام والنموذج الذي به المشكلة

للربط والفائدة ! http://www.officena.net/ib/index.php?showtopic=60965&hl=

حبذا وضع المشاركة هناك اخي وائل .. او يتفضل احد المشرفين بنقلها .. تحياتي

بارك الله فيكم .. وانتم الاجمل ..

http://www.officena.net/ib/?showtopic=44798 http://www.officena.net/ib/index.php?showtopic=61376 http://www.officena.net/ib/index.php?showtopic=53693&page=1 http://www.officena.net/ib/index.php?showtopic=35378 http://www.officena.net/ib/index.php?showtopic=61805 http://www.officena.net/ib/index.php?showtopic=45108 http://www.officena.net/ib/index.php?showtopic=31726 http://www.officena.net/ib/index.php?showtopic=52418 http://www.officena.net/ib/index.php?showtopic=45872 http://www.officena.net/ib/index.php?showtopic=57806

اوك وهناك ملاحظة بسيطة : وضعت جدول لقائمة الموردين ! وهناك جدول اخر لجدول مورد كل محل ! لماذا ؟؟ مع العلم ان جدول موردي المحلات يوجد به اسم المورد والمفروض يربط بجدول الموردين الاساسي ! ويكون الربط برقم المورد ! لضمان عدم اختلاف بيانات الموردين عندما تدخل في جداول متعدده وبدون ربط والمعني فيها هو المورد نفسه ! هل اعدل الجداول والعلاقات للافضل ؟

العفو ! وعارف هي مش قد المقام لانها قد تكون معلومة لدى الكثير ! ولكن هي اللي خطرت في بالي اثناء كتابة التهنئة ! شكرا اخي مارد ورمضان كريم !

السلام عليكم ورحمة الله وبركاته وبعد اولا : احب ان ابارك لكم بقرب شهر الخير والبركات .. شهر رمضان .. فكل عام وانتم بخير ومبارك عليكم الشهر الفضيل جعلنا الله واياكم من صوامه وقوامه .. امين ثانيا : اسمحو ان ارفق مع هذه التهنئة هدية بسيطة في كيفية الترقيم التلقائي بفكرة استخدام خصائص مربع التحرير والسرد وكقيمة افتراضية وهي فكرة اكثر من ان تكون معلومة ! وحسب استراتيجية يبدا الترقيم من اعلى رقم ! تكمن الفائدة الاكثر بتعديل مصدر الاستعلام بوضع شروط معقدة لفلترة قائمة التحرير والسرد للحصول على الترقيم المطلوب مثلا : ترقيم بداية كل سنة - ترقيم باختلاف الصنف .. الخ . فالترقيم ينظر الى الارقام التي بالقائمة وحسب وجودها ! هذه المعادلة او التعبير للترقيم : =Nz([id_no].[itemdata]([id_no].[ListCount]-1);0)+1 يمكن وضع الخاصية ممكن = لا التطبيق بالمرفق ولكم خالص تحياتي aotu_num.rar

اتوقع انني من اساء الظن ومن الشيطان ! عذرا اباخليل ! عذرا للجميع ! مشكورين

اعذرني اولا اخي على التاخير ثانيا : هل تريد التنسيق كذلك في التقارير ! ام نعملها الان في النموذج فقط ! لانه ربما ان عملها بالتقرير ليست نفس طريقة التنفيذ بالنموذج ؟ بالتوفيق

لا اعلم هل للاخ السائل فائدة بهذه المشاركة ؟ ! ولكي لا تسيئ الظن وانا غير مجبر على ذلك : مادفعني للمشاركة معك انه مازال النص المصدر في مثالك السابق مازالت وجود الدبل كوتس والتي هي من اساسيات طلب الاخ السائل بعدم احتواء النص على دبل كوتس . وكنت ساشارك بكيفية التخلص منها وبنفس طريقتك ولكنني فضلت ان اذهب لطريقة نعرفها من عهد الفيجول بيسك 4 لكي نسلم وللاسف لم نسلم ! ولماذا ذهبت تصول وتجول وهنا وفي منتدانا العزيز لهم سبق في ذلك : http://www.officena.net/ib/index.php?showtopic=23394 رمضان كريم

طبعا من المعلوم انه لكل استعلام في عرض التصميم له جملة استعلام تسمى ال sql ! ولعرضها وانت في عرض التصميم تذهب الى عرض sql من ايقونة خيارات العرض ! هي نفس الجملة تقريبا وبوضع جمل ال sql في متغير نصي ومحاطة الجمة ب دبل كوتس " . وخليها في سطر واحد اسهل لك وطبعا اذا لم تكن الجملة طويلة . واليك هذه الروابط http://www.officena.net/ib/index.php?showtopic=40873&page=1 http://www.officena.net/ib/index.php?showtopic=49060 http://www.officena.net/ib/index.php?showtopic=58494 بالتوفيق

اعمل ملف نصي بنفس مكان ملف الاكسس وليكن باسم "ramhan" ضع هذا الكود خلف زر الامر وعند النقر او عند اي حدث مناسب Open CurrentProject.Path & "\ramhan.txt" For Output As #1 Set rs = CurrentDb.OpenRecordset("t2") Do While Not rs.EOF Print #1, rs!all rs.MoveNext Loop rs.Close Set rs = Nothing Close #1 ملاحظة : تم التطبيق على المرفق وبالمشاركة رقم 12 ! فتلاحظ استخدام الجدول t2 والعمود all تحيات رمهان

كيفك ياباشا لما راق المزاج ! اتينا لك بحل ثاني ليمكن استخدامه كاستعلام ! وهنا ماعليك الا استخدام الدالة التالية في الاستعلام ممررا لها اسم العمود فقط ! 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; طبعا وحسب مرفقك السابق ! تحيات رمهان

هل ممكن مرفقك ! والذي به الحقول :الرقم والكود والتاريخ والنوع ؟؟!1

انا برد بمعلومة ! فان كانت لماتبحثين عنه فقد فهمت ماتريد ! وان كان لا فهي معلومات اضافية : لادخال زبون في نموذج المبيعات سنختارطبعا من القائمة ولكن عندما لا يكون الزبون ضمن القائمة فلابد من اضافته وعن طريق نموذج الزيائن ! هنا يوجد طريقة مختصرة لفتح نموذج الزبائن اثناء ادخال البيانات وهنا نقصد المبيعات : من خصائص مربع التحرير والسرد تبع الزبائن >> خاصية "نموذج تحرير عناصر القائمة" ومن تبويب بيانات = اختر اسم نموذج الزبائن . وهنا عند انسدال القائمة سترى علامة صغيرة في الاسفل "تحرير عناصر القائمة" وبالنقر عليه سيتم فتح النموذج! فتضيف الزبون الجديد ثم تعود للقائمة وتختاره ! بالتوفيق

ذكرتني مادري كيف نسيت امسحها ... تم عمل اللازم .. مشكور ههههه حلوة تدس ملف ... تصور يكون ملف علاقي جميع ما اذكره ادناه مستهلك اي قد طرق مرارا ومعروف لكل مبرمج سيغلقها طواعية .. لانه بحاجة لبرنامجي .. والا كيف يتم تركيب الملفات التشغيلية لزيادة الفائدة يمكن مراجعة http://www.officena.net/ib/index.php?showtopic=52980 بطريقتي .. لا لايمكن واذا كنت تعتقد خلاف ذلك دعنا نطبق عليك تجربة عملية لنرى هل هي مجدية ام لا ( لان التنظير يختلف عن التطبيق ) ولا تاخذ كلامي من باب التحدي ولكن من باب التجربة ونفع الآخرين ، لاننا نظن عندك خلفية كراكرية رمهانية يتم اعطاء العميل رقما خاصا لجهازه بناء على معطيات من اللوحة الأم وبكذا يكون للعميل حق تفعيل برنامجه مدى الحياة ( او حياة اللوحة الأم ) وبدون مراجعة المبرمج الغريب كل هذه المناقشات سببها راعي الغنم .. اين اختفى ؟ هذا كلام عام اخي ابا خليل بل به غموض ورموز ! وليش جبتو سيرة الحماية باللوحة الام ؟!! موضوع النقاش كان جدوى طريقة زراعة ملف ؟؟ وليس قراء سيريال عتاد الحاسب فهذه طريقة اخرى واتوقع راعي الغنم له وجهة نظر بها اخرى ؟ نحن نريد نتيجة النقاش : هل طريقة زرع ملف مجدية ام لا وحسب وجهة نظر اخينا راعي الغنم والذي وافقه صاحب الاستفسار ومالك النقاش الاخ نجم ابو الليل ؟؟ وخالفهم ابا خليل ! فقط نريد ان نتكلم في صلب الموضوع ! ولنترك الهمز بانك لا تعرف .. وان ليس لديك الخبرة ... وان لدي طريقتي الخاصة.... وان لكل مبرمج كذا وكذا.. وان هذا معروف... وو! قلت لك مرارا ياابا خليل : فيه معلومات محفورة في ذاكرتكم مصدرها المنتديات !! رمهان راح يغيرها ان شاء الله والفائدة للجميع ! تحياتي

ماشي ابو خليل ترى في بالي زيارتك وشرب فنجال قهوة عندك ان شاء الله خصوصا لما عرفت انك من بلدياتي ! بل اصبح لدينا نحن الاعضاء بريدك الالكتروني وجوالك وان لديكم برامج عديدة منها المجاني ومنها المدفوع ! عزيزي ابا خليل هل نفهم كلامك انك تاتي عند عميلك وتدس له ملفا في جهازه هي طريقة تجعل من رمهان خبير تسويق برامج ! رمهان غير مقتنع بهذه الطريقة وهي ليست على مستوى رمهان ! ليش : وخلينا نتحاور علميا علشان نحقق هدفا من اهداف هذا الصرح العظيم ! راح نخليها على شكل نقاط : واريد الرد على كل نقطة بوجهة نظرك: 1. هل تضمن ان عميلك ليس لديه برامج حماية ! ترفض ملفات معينة او عامة ! 2 . اليس يمكن ومن خلال الويندوز فقط وبدون برامج الحماية المحترفة استطيع معرفة الملفات الجديدة التي بجهازي ! ومنها سيظهر ملف الاكسس والملف المزروع وكما اسميتموه ! 3.لو فرمة العميل جهازه وهو المسكين ماخذ باك اب لملف الاكسس وحسب علمه ان هذا برنامجه ! ثم يعيد انزاله وبدون الملف المزروع ! هنا عيب جديد اداري بزنس هل ياترى تستطيع اكتشافه ؟ ملاحظة : انا اناقش وليس جازما ان الصواب مع رمهان ! فقد تناقشني بما يقنع فاتراجع واتعلم ! تحياتي