Shivan Rekany

اتفضل كما تريد سويت استعلام باسم Q1 وغيرت مصدر البيانات التقرير بين تاريخين الى الاستعلام الاعلى بين تاريخين.rar

سامحني على التدخل في الموضوع اخي الكريم فرضنا عندك مربعين نصي واحد باسم text1 و تكتب فيه مثلا اي شي تريد مپلا اسمي shivan وتريد بيكون مربع الاخر text2 بيأخذ اربع حروف الاولى لاسمي shiv راح تكتب هذا الكود في زر امر خاص بك لتنفيذ العملية او لتيكست 1 بعد تحديث Dim x x = Left(Me.nav, 4) text2 = x او اذا كان حقل تاريخي تكدر تكتب هذا الكود Me.Text2 = Format(Me.Text1, "yyyy") او تكتب في مصدر البيانات التيكست 2 هذا الكود =Format([Text1];"yyyy") هل هذا هو المطلوب ؟ وافينا بالنتيجة

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

تكدر تتغير في اعدادات اكسس بهذه الخطوات اتبع ويوجد هذه الالوان فقط ازرق وسيلفر و اسود مع تقدير وايظا تكدر تتغير بواسطة اكواد

اتفضل كما تريد Test (6).rar وعملت فورم واشفت الى الفورم زر وكتبت هذه الكود مع تقدير

اتفضل مع طريقة الطريقة الاولى اللي بواسطة فونتات كما في الصورة الاولى والطريقة الثانية شوف الصورة اتبع الصورة الثالثة اتفضل مع القاعدة بيانات db4 (2) (1).rar

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

افتح نموذجك في وضع تصميم اعمل زر جديد عليه وفي محرر فيجوال اكتب الكود الاعلاه

هل اصدار اوفيسك العربية ام انكليزية هذا للانكليزية SendKeys "{F10}" SendKeys "tdc" وهذا لاصدار العربية SendKeys "{F10}" SendKeys "]sq"

شو رأيك بهذه النتيجة

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

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

ممكن ترفق الملف لكي نعمل العملية عليه

اتفضل اخي الكريم اليك هذا الرابط لعل تستفيد منها مع تقدير

اتفضل اخي ملفك بعد تعديل انا غيرت كما قال استاذنا ابو خليل القدير و اضفت طريقة اخرى بواسطة فونت C39HrP48DhTt اكتب اي رقم تريد وراح يظهر كما هو فقط شوف نظرة ووافينا بالنتيجة db4 (2).rar

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

كما اتفضل استاذي ابو الخليل شوف الصورة

اخي الكريم راجع قاعده‌ بياناتك مجددا اعمل تعديلات عليه Database5 (1).rar

الان انا بستخدم موبايل غدا ان شاء الله راح اعمل على القاعدة البيانات اذا ما سبقني احد انتظرني

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

اهلا وسهلا بك في منتدى اوفيســـــــــــــــــــــــــــــــــــــــــــــــنا اعمل زر واكتب هذا في محرر فيجوال Private Sub أمر14_Click() If MsgBox("هل تريد طباعة الفاتورة؟", vbYesNo) = vbYes Then DoCmd.OpenReport "p", acViewNormal, , "[id]=forms!from_data!id" DoCmd.Save Else Exit Sub End If End Sub

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

اتفضل استخدمت ايميلي الخاص احذف ايميلي في محرر فيجوال واكتب ايميل خاص تبعك وراح يرسل تقرير ريب1 شوف الاكواد ارسال تقرير بواسطة اوتولوك كملف بي دي ئيف.rar

نعم ارفق المرفق لكي نتم العملية عليه

اسف على التاخير وايظا لكل حقل الاربع مع تقدير قاعدة بيانات (1) (1).rar