Shivan Rekany

اليك حل تاني اضفت حقل جديد باسم اي دي وعملت نموذج مستمر باسم فرم1 وعملت عند فتح اوردر باي بتاريخ الحركة اي يعني بيعمل لنا تسلسل التواريخ الحركة وعملت على نموذج زر لكي بيعمل لنا تسلسل جديد في حقل اي دي واستخدمت هذا الكود لذلك On Error Resume Next r = DCount("[id]", "صندوق") DoCmd.GoToRecord , , acFirst Me.id = 0 For n = 1 To r Me.id = n DoCmd.GoToRecord , , acNext Next n Me.Refresh وفي تقرير ايچا عملت اوردر باي بتاريخ الحركه‌ مپل الفرم هناك ملاحظة اذا اضفت ريكورد جديد بتاريخ الماضي يجب عليك ان تفتح النموذج فرم1 وتعمل تسلسل جديد وبعدين ان تنطي التواريخ وتفتح التقرير تحياتي

شيء حلو استاذ Sandanet لكن بدون هذا نكدر نعمل بواسطة تغير بسيط في الكود وذاك الكود بيعمل معك اي اذا بيكون في اي سنة راح يستخدم ذاك السنة تحياتي لك

على الرغم ان العمليات الاعلى هم واحد ضد واحد لكن انا عملت هذا وما اعرف هل هو المطلوب ام لا تحياتي الرصيد المتبقي.rar

اخي الكريم لكي لا تفهم بالغلط انا ما عملت شي للوحدة النمطية فقط في استعلام التحديث انا غيرت #01/10/2017# الى "01/10/" & Year(Date()) اي يعني غير الكود من هذا CalcAge3(#01/10/2017#;[birth_date]) الى هذا CalcAge3("01/10/" & Year(Date());[birth_date]) والواحدات النمطية هي نفسه

اليك هذا الصور واليك هذا الرابط

اليك هذا غير تاريخ الجهاز عندك الى سنة اخرى وجرب فصل الاسم وتاريخ الميلاد (1).zip

ما هو المشكلة اللي بيظهر عندك

اولا لا داعي للشكر علواجب ثانيا ذاك الوحدة النمطية ليس من صنعي وما اعرف صاحبه ثالثا هل تريد لكل سسنة بيكون للشهر العاشر ام اي ؟

اتفضل اخي الكريم فصل الاسم وتاريخ الميلاد (1).zip

اسف انا عملت تاريخ الولاده‌ مع تاريخ اليوم هسه‌ راح ارجع لك ان شاء الله مع المطلوب

انت عملت شي كبير يا استاذ sandanet شكرا كثيرا شوف المشاركتي السابقه‌ هل هو المطلوب

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

عفوا منك استاذ sandanet على التدخل اتفضل سيد haniameen شوف هذا هل هو ماتريد فصل الاسم وتاريخ الميلاد (1).zip

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

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

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

استخدم هذا الكود لعل بها المطلوب وغير MYTABLE باسم جدول المشرفين DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy DoCmd.OpenTable "MYTABLE", acViewNormal, acAdd DoCmd.RunCommand acCmdPaste

اسف ماعرفت ان عندكم بيرجع التواريخ الى الوراء وبعدين بيتقدم من جديد !!

وهذا الكود بيرسل جدول الى ملف اكسل DoCmd.OutputTo acOutputTable, "table1", "excelworkbook(*.xlsx)", "D:\TABLE1.XLSX" ملاحظة 1 - اذا كان تريد ان ترسل التقرير الى ملف اكسل لازم تتعير هذا الجزء الكود acOutputTable الى acOutputQuery وللفورم acOutputForm وللتقارير acOutputReport 2 - واذا تريد ان ترسل الى pdf بدل هذا السطر من الكود "excelworkbook(*.xlsx)" الى "pdf format(*.pdf)" 3 - وغير مكان الخزن اي مسار الخزن الى اي مسار تريد لكن انتبه اذا حولت الى pdf مثلا غير .XLSX الى .pdf في نهاية المسار مع اسم الملف اي بأي اسم اللي تريد ان يخزن عليه تحياتي

جرب هذا style = vbYesNoCancel + vbMsgBoxRight + vbQuestion Title = "تجربة" x = MsgBox("تجربة1", style, Title) If x = vbYes Then MsgBox "تم بنجاح", vbInformation ElseIf x = vbNo Then MsgBox "تم بنجاح نو", vbInformation ElseIf x = vbCancel Then MsgBox "تم بنجاح كانسل", vbInformation End If واليك ملف لتعم الفائدة ifmsgbox.rar

جرب هذا الملف الاخير.rar

عفوا منك سيد ماكسويل انا نزلت المرفق وبحث بالتواريخ 18\2\2017 و 19 و 20 وما طلعت معي ذاك لمشكلة لكن رغم ذلك اكتب في الاول الكود زر Run Query هذا الكود On Error Resume Next تحياتي

بعد انا ما جربت شي هكذ لكن اذا ما كان على الخطأ ذاك المشكلة هو نفس المشكلة في اللغة العربية ب ( أ و إ و ة الخ ) لذا نكدر نستفيد منها وفي المنتدى بها كتير من موضوعات على ذلك

اتفضل ما تريد شوف الاستعلام وفي حقل بالانس1 شوف الكود مع فورمات وهذا هو الكود BALANCE1: FormatNumber(DSum("[balance]";"صندوق";"[المعرف]<=" & [المعرف]);"0") واليك ملفك بعد تعديل Database1 (2).rar

اي نعم