نجوم المشاركات

اتفضل اليك هذا DoCmd.OutputTo acOutputReport, "MyReportName", acFormatRTF, "D:\SaveReportInName.rtf" غير MyReportName باسم التقرير في قاعدة بياناتك

هذا الكود لمطلب الاعلى Public Function AhsibNo(F1 As Integer, F2 As Integer, F3 As Integer, F4 As Integer) AhsibNo = 0 If F1 = 0 Then AhsibNo = AhsibNo + 1 If F2 = 0 Then AhsibNo = AhsibNo + 1 If F3 = 0 Then AhsibNo = AhsibNo + 1 If F4 = 0 Then AhsibNo = AhsibNo + 1 End Function وهكذا تستخدمه في المحرر الاكواد Me.APSNT = AhsibNo(Me.PER1, Me.PER2, Me.PER3, Me.PER4) اليك هذا فانكشن Public Function AhsibYes(F0 As Integer, F1 As Integer, F2 As Integer, F3 As Integer, F4 As Integer) AhsibYes = 0 If F1 = -1 Then AhsibYes = AhsibYes + 1 If F2 = -1 Then AhsibYes = AhsibYes + 1 If F3 = -1 Then AhsibYes = AhsibYes + 1 If F4 = -1 Then AhsibYes = AhsibYes + 1 AhsibYes = F0 - AhsibYes End Function وتستخدم هكذا في المحرر الاكواد Me.APSNT = AhsibYes(Me.no_per, Me.PER1, Me.PER2, Me.PER3, Me.PER4) واليك القاعدة بعد تعديلdb3.accdb.zip

اتفضل اليك هذا ترقيم تلقائي جديد.mdb

في حدث بعد التحديث ضع هذا On Error Resume Next Dim varFilter As Variant varFilter = Null If Not IsNull(Me.N1) Then varFilter = "[Sanf] LIKE '*" & [Forms]![frm_Search_New]![N1] & "*'" End If With Me.TB.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .FilterOn = False End If .Requery End With

السلام عليكم لم أشاهد المرفق بعد ، لكن إن كان البحث ضمن نموذج مصدره استعلام ضع في معايير حقل الاستعلام الذي ترغب بالبحث به الدالة INSTR و هي تبحث في أي جزء من النص .

اتفضل اليك هذا Public Function AhsibYes(F1 As Integer, F2 As Integer, F3 As Integer, F4 As Integer) AhsibYes = 0 If F1 = -1 Then AhsibYes = AhsibYes + 1 If F2 = -1 Then AhsibYes = AhsibYes + 1 If F3 = -1 Then AhsibYes = AhsibYes + 1 If F4 = -1 Then AhsibYes = AhsibYes + 1 End Function Public Function AhsibNo(F1 As Integer, F2 As Integer, F3 As Integer, F4 As Integer) AhsibNo = 0 If F1 = 0 Then AhsibNo = AhsibNo + 1 If F2 = 0 Then AhsibNo = AhsibNo + 1 If F3 = 0 Then AhsibNo = AhsibNo + 1 If F4 = 0 Then AhsibNo = AhsibNo + 1 End Function تقدر ان تستخدمه في استعلام و ايضا تقدر تستخدمه في النموذج او في محرر الاكواد في محرر الاكواد ستستخدم هكذا Private Sub Command15_Click() Me.APSNT = AhsibNo(Me.PER1, Me.PER2, Me.PER3, Me.PER4) End Sub db3.accdb.zip

اتفضل kan1.accdb.zip

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

أهلا @ابو زاهر عند مفتاح لأسفل If KeyCode = vbKeyF1 Then KeyCode = 0 'Suppress keypress End If

ضع هذا الكود .... Dim tBox As Textbox Set tBox = Screen.ActiveControl If TypeOf tBox Is Textbox Then tBox.SelStart = Len(tBox) - 1 tBox.SelLength = 1 End If

بسم الله الرحمن الرحيم أولا : وقبل أى شئ كل الشكر والتقدير لكل الاساتذه عمالقه الاكسل واخص بالشكر استاذى الاستاذ (محمد الدسوقى) اثانيا : اقدم لحضراتكم شيت كنترول المرحله الابتدائيه من الثانى حتى السادس وذلك طبعا بعد الغاء امتحان الصف الاول ارجوا أن ينال رضاكم وان يساهم فى مساعدتكم دعوة بظهر الغيب تكفينى (هذا ما عندي فإن أحسنت فمن الله، وإن أسأت أو أخطأت فمن نفسي والشيطان) وانا مستعد دائما لسماع تعليقاتكم ثالثا : التحميل الصف الثانى الصف الثالث الصف الرابع الصف الخامس الصف السادس البرنامج كامل على رابط واحد

شكراً لك أستاذ Shivan Rekany ممنون لكَ بارك الله بكَ وجازاكَ بكل خير

تم اسخدام هذا بعد الحدث Dim varFilter As Variant varFilter = Null If Not IsNull(Me.N1) Then varFilter = (varFilter + " AND ") & "[Sanf]& [ID_Sanf] LIKE '*" & [Forms]![frm_Search_New]![N1] & "*'" End If With Me.TB.Form If Not IsNull(varFilter) Then .Filter = varFilter .DataEntry = False .FilterOn = True Else .FilterOn = False End If .Requery End With وهذا عند التغير SendKeys "{enter}", True شوف هذا البحث.accdb

الاخ AboSaad17 السلام عليكم تفضل طلبك بعد تحويله الى اكسس 2003 واعتذر عن التاخير لاني غالباً غير متواجد على النيت لفتح النماذج حسب مقاس الشاشة 2003.rar

استاذي@Khalf استاذي@ابو ياسين المشولي اريده عند التغير الكود شاكرين لكم

بارك الله فيك اخي محمد مشكورررررررر

تعبتك معى استاذى الغالى @Shivan Rekany لك منى كل الشكر والتقدير

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

لا اخي اعمل انشاء استعلام جديد فارغ ومن ثم اعمل سكويل وانسخ الكود انا سوف ارفع لك ملفك معدل وشوف هل هو المطلوب db4.accdb

العفو اخي بارك الله فيك

SELECT tb1.nam, tb1.salry, tb1.dy_work, tb1.hor_dy, tb1.apsnt, tb1.lat, Round(Nz([salry]/[dy_work],2),"0") AS amo_per, Round(Nz([amo_per]/[hor_dy],2),"0") AS amo_hor, Round(Nz([amo_per]*[apsnt],2),"0") AS amo_apsnt, Round(Nz([amo_hor]*[lat],2),"0") AS amo_lat, Round([amo_apsnt]+[amo_lat],2) AS amo_ded, Round([salry]-[amo_ded],2) AS net_salry, tb1.tak, Round([net_salry]-[tak],2) AS amo_def FROM tb1; استخدم داله nz

هذه بعض المواضيع ..... ابحث باسم ( حماية ) ....

جزاك الله خير شاهد الصورة تعرف الحل New Picture.bmp

السلام عليكم اخي الكريم التقرير عندي شغال بدون أي مشاكل

ممكن هذا حل لطلبك .... 1.accdb

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

السلام عليكم عند حدث عند التركيز للمربع النص ضع هذا الأمر: Me.txt_date.SelStart = 0 Me.txt_date.SelLength = 1 بحيث txt_date هو اسم مربع النص السطر الأول يعني بداية التحديث، و القيمة 0 تمثل الحرف الأول و 1 يمثل الحرف الثاني و هكذا.. السطر الثاني يحدد طول التحديد أو عدد الأحرف المحددة. بالتوفيق إن شاء الله