محمد أبوعبدالله

السلام عليكم ما رايك نختصر الكود كالتالي If Not IsNull(Me.x) Then Me.[تابع0].Form.Filter = "[id] =" & Me.x Me.[تابع0].Form.FilterOn = True End If Database5_2.rar تحياتي

اخي الكريم بما ان جدول tbl_sheet فارغ فانت ستحتاج الى 1 - استعلام الحاق 2 - استعلام تحديث سيتم تنفيذ الاستعلام Query1 اولاً لالحاق البيانات واذا كان رقم الموظف موجود مسبقاً بالجدول يتم تنفيذ الاستعلام Query2 لتحديث البيانات انظر المرفق تحديث من نموذج الي جدول بشرط.rar تحياتي

السلام عليكم انت غير محتاج الى جدول tbl_sheet الا اذا كان تتحتاجه في امور اخرى لانك بعد انشاء العلاقة بين جدول الموظفين وجدول التذاكر تستطيع عن طريق الاستعلام او النموذج مباشرة استخراج قيمة التذاكر انظر المرفق واعلمني بالنتيجة تحديث من نموذج الي جدول بشرط.rar تحياتي

بالتوفيق اخي الكريم تحياتي

عطل السطر الثاني هكذا Option Compare Database 'Option Explicit Private Sub Form_Current() retvalue = GetSetting("A", "0", "Runcount") GD$ = Val(retvalue) + 1 SaveSetting "A", "0", "RunCount", GD$ If GD$ > 100 Then MsgBox ("انتهت مدة تشغيل البرنامج عليك بشراء البرنامج او الاتصال بالمطور"), , ("AZHAR ALIraqy") DoCmd.Quit End If End Sub تحياتي

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

DBS.accdb

السلام عليكم تفضل اخي الكريم DBS.rar ارجو ان يكون هو المطلوب تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم ' تم اضافة معيار لاسم البنك Like "*" & forms!Form1!Text9 & "*" ' تم اضافة معيار لاسم موظف البنك Like "*" & forms!Form1!Text10 & "*" مثال_3.rar تخياتي

اخي الكريم يوضع الكود كاملاً في النموذج = حدث في الحالي الكود فقط retvalue = GetSetting("A", "0", "Runcount") GD$ = Val(retvalue) + 1 SaveSetting "A", "0", "RunCount", GD$ If GD$ > 100 Then MsgBox ("انتهت مدة تشغيل البرنامج عليك بشراء البرنامج او الاتصال بالمطور"), , ("AZHAR ALIraqy") DoCmd.Quit End If الحدث فقط Private Sub Form_Current() ' هنا يتم كتابة الاكود End Sub تحياتي

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

مرحبا بك اخي احمد Sum فقط في النموذج الرئيسي لن تقوم بالجمع ولكن ستجمع سطر واحدفقط ستحتاج الى DSum وهذا طريقتها DSUM(fieldName; tbaleName; criteria) وفي هذه الحالة ستحتاج الى ضبط criteria واخونا صاحب الموضوع يقوم بعمل فلتر متعدد حسب التاريخ وحسب الكمبوبكس لذلك اسهل طريقة ان تضع مربع نص في تذييل النموذج الفرعي يقوم بعملية الجمع ثم تضع قيمته في النموذح الرئيسي وعند التصفية يعمل معك بكفاءة تحياتي

واياك اخي الكريم بالتوفيق دائما اخي تحياتي

السلام عليكم تفضل اخي الكريم جمع الرواتب.rar تحياتي

السلام عليكم في الاكسيس يمكنك استخدام SubForm = النماذج الفرعية وهي اكثر مرونة في الاستخدام من Grid View لانك تستطيع من خلال النماذج الفرعية التحكم بنوع كل حق ويمكنك ايضاً اضافة ComboBox او CheckBox بكل حرية ومرونة تحياتي

وعليكم السلام ورحمة الله وبركاته استخدم الكود التالي =DSum("[مبلغ الباقي]";"[الوصل]";"[اسم العميل] ='" & [ اسم العميل] & "'") ولكن يجب ادخال اسم العميل في جدول الوصل تحياتي 1212.rar

طبق كما في الصورة لاي تقرير او من كود فتح التقرير كما في الصورة زتاختار ما يناسبك تحياتي

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

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Applicants - FF.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم On Error Resume Next Dim X As Integer mySQL = "Select * From tbl1" ' اذا كان TextBox رقم mySQL = mySQL & " WHERE TName = " & Me.TextBox ' اذا كان TextBox نوعه نصي ' mySQL = mySQL & " WHERE TName ='" & Me.TextBox & "'" Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) X = rst!TName If X <> 0 Then MsgBox "OK" Else MsgBox "No" End If تحياتي

تفضل اخي الكريم StuSaifi_2.rar تحياتي

تفضل اخي الكريم StuSaifi_2.rar تحياتي

المفروض ان يكونوا في جدولين وعمل علاقة بينهما وبين الجدول الرئيسي عموماً دائماً يوجد حل اخر انظر المرفق واعلمني بالنتيجة StuSaifi_2.rar تحياتي

وعليكم السلام ورحمة الله وبركاته اعتقد استاذنا الفاضل ان الامر متعلق بكود البحث نفسه فاذا كنت تقصد موقع اوفيسنا تحديدا فكود البحث الموجود كالتالي <!--بداية كود البحث --> <style type="text/css"> @import url(//www.google.com/cse/api/branding.css); </style> <div class="cse-branding-bottom" style="background-color:#FFFFFF;color:#000000"> <div class="cse-branding-form"> <form action="http://www.google.ae" id="cse-search-box" target="_blank"> <div> <input type="hidden" name="cx" value="partner-pub-4958585055085854:7791406915" /> <input type="hidden" name="ie" value="UTF-8" /> <input type="text" name="q" size="55" /> <input type="submit" name="sa" value="Search" /> </div> </form> <script type="text/javascript" src="http://www.google.com/jsapi"></script> <script type="text/javascript">google.load("elements", "1", {packages: "transliteration"});</script> <script type="text/javascript" src="http://www.google.com/cse/t13n?form=cse-search-box&t13n_langs=ar"></script> </div> <div class="cse-branding-logo"> <img src="http://www.google.com/images/poweredby_transparent/poweredby_FFFFFF.gif" alt="Google" /> </div> <div class="cse-branding-text"> Custom Search </div> </div> <!--نهاية كود البحث --> والتعديل يكون كالتالي <form action="http://www.google.ae" id="cse-search-box" target="_self"> بدلاً من <form action="http://www.google.ae" id="cse-search-box" target="_blank"> تحياتي

معك حق استاذنا الفاضل فعلا كلامك صحيح 100% ومنك نستفيد ان شاء الله دائماً ارجو ان يكون الملف المرفق يفي بالغرض والشكر لك استاذنا Loop.rar تحياتي