ابو جودي

فكرة بسرعة 
New.accdb

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

السب عدم تكرار السجلات 
 
---------------------
ثم انشأت استعلام الحاق وطبعا ما ينفعش يكون فاضى
افتح الاستعلام اللى انا عملته لحضرتك فى وضع التصميم تلاقيه كالاتى

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

بخصوص المشكلة التى حدثت معكم مع الكود
iif([BillTayp]="مرجوعات";([ItemBuy]*-1);[ItemBuy]) ان هناك اكثر من جدول يحتوى على حقل ينفس الاسم BillTayp

حضرتك تريد اخفاء كل الصفوف ان كانت القيمة فى الحقل Total =0  او كانت فارغة
لو انا قدرت افهم صح اتفضل 
DatabaseX.accdb

تم بحمد الله تعالى وفضله التوصل للنتيجة المطلوبة
موديول لتجميع كل السجلات فى حقل واحد
 
Public Function ToMrg() As String Dim strTemp, i Dim strSQL As String strSQL = "select Aya from tblAyatSource;" strTemp = CurrentProject.Connection.Execute(strSQL).GetRows For i = 0 To UBound(strTemp, 2) ToMrg = ToMrg & strTemp(0, i) & Space(1) Next ToMrg = Mid(ToMrg, 1, Len(ToMrg) - 1) End Function  
والان موديول فصل الايات من حقل واحد الى جدول اخر لتكون كل اية فى سجل
Public Sub ToSplitForTabel() Dim db As DAO.Database Dim rs As DAO.Recordset Dim rsADD As DAO.Recordset Dim strSQL As String Dim strField1 As String Dim strField2 As String Dim varData As Variant Dim i As Integer Set db = CurrentDb strSQL = "SELECT ayat FROM TableA " Set rsADD = db.OpenRecordset("TableB", dbOpenDynaset, dbAppendOnly) Set rs = db.OpenRecordset(strSQL, dbOpenDynaset) With rs While Not .EOF strField1 = !ayat varData = Split(strField1, ChrW(1757)) For i = 1 - 1 To UBound(varData) With rsADD .AddNew !ayat = varData(i) & ChrW(1757) .Update End With Next .MoveNext Wend .Close rsADD.Close End With Set rsADD = Nothing Set rs = Nothing db.Close Set db = Nothing End Sub  

السلام عليكم ورحمة الله تعالى وبركاته 
الاستاذ الفاضل والاخ الحبيب و استاذى القدير الأستاذ @أحمد الفلاحجى🌹
جزاكم الله خيرا كثيرا كثيرا كثيرا بعدد خلقه ما علمنا منهم وما لم نعلم 🌹🌹🌹🙏
اتعبتك معى بارك الله فيك 
الحمد لله تعالى تم التغلب على المشكلة من خلال استعلامين الاول وهو لتجميع البيانات QryAll
والاستعلام والثانى QryCollectData  والذى رزقنى الله تعالى الحل فيه  لإجراء العمليات الحسابية بناء على الاستعلام الاول  
وتقريبا حتى الان بفضل الله تعالى العمليات الحسابية صحيحة لم الاحظ اى خطأ حتى الآن وبتلك الطريقة امكن وضع اكثر من وحدة قياس عدد و جرام وكيلو جرام فى حقل واحد فقط وتم التجميع والاحتساب لكل نوع منهم على حده وكل بتنسيقه الصحيح
هذا ولله الحمد سبحانه وتعالى ما كنا لنهتدى لولا ان هدانا الله عزوجل
واليكم المرفق النهائي
Qs For Weight (UP2).mdb

اتفضل 🌹
المشكله بسبب الكود الموضوع على حقل القراءة الحالية فى حدث عند الإدخال فى النموذج الفرعى جعل السحل الحالى فى وضع التعديل لذلك كان يحدث تعارض
تم العمل على الابتعاد عن التداخل مع الحفاظ على الية العمل تع تصميمك 
اسف ع التاخير شغال من موبايل  والموضوع صعب عليه
تجربة-2.zip

ع العموم اتفضل 🌹جرب المرفق
 
الفلتره بين تاريخين 2.accdb

السلام عليكم ورحمة الله وبركاته
بعد اذن استاذى الغالي الاستاذ @محمد ابوعبد الله 🌹
هذه الفكرة خطرت على بالي 
 
input mask with code.mdb

اتمنى اكون قدرت افهم حضرتك 🌹
 
بالقائمة الفرعية والاسم - Copie.accdb

اتفضل 
غياب_الطلاب.mdb

بعد اذن استاذى واخي خالد سيسكو
Database8 (3).accdb

بعد كوب الشاي الرائع والنظر الى الأفكار والتحليل للمرفق
مع الاخذ في الاعتبار هذه الملاحظة
ومع الاطلاع على الموضوع 
 
تم بحمد الله تعالى تم الوصول الى هذه النتيجة  
اتركم مع التجربة على اى ملف إكسل مع انتظار آرائكم 
Ju_ Import Frome Excel File.zip

السلام عليكم ورحمة الله تعالى وبركاته
أساتذتي الكرام إخواني وأحبابي في الله اوفيتم وكفيتم جزاكم الله الحير كله ورزقكم الجنة ان شاء الله 
اسمحوا لعبد الله المسكين ان يساهم في هذا الخيـر 
يا أستاذ nabil2255
شرح ع السريع
1- اعلان عن متغير نصى سوف يستخدم لاسم الجدول المؤقت
Dim TblNm As String 2- تم اسناد اسم الجدول 
TblNm = "tblTemp" 3-حذف الجدول المؤقت 
DoCmd.DeleteObject acTable, TblNm 4-وهنا يتم معالجة البيانات من خلال الاستعلامات
الإستعلام الأول هنا لحساب العمر وتعديله في الجدول المؤقت
الإستعلام الثاني هنا لإلحاق البيانات في الجدول الرئيسي 
DoCmd.SetWarnings False DoCmd.OpenQuery "qryckEgeToExel" DoCmd.OpenQuery "qryAppendToSourctbl" DoCmd.SetWarnings True 5-
 
JU_01_ import From Excel To Acces.zip

وأخيرا ولله الحمد تم التوصل للنتيجة المطلوبة
بفضل الله تعالى ثم ارشادات وتوجيهات معلمى القدير واستاذى الجليل واخى الجبيب الاستاذ @AlwaZeeR 
أخبرنى انه يمكن تثبيت والتحكم فى هوامش التقارير برمجيا وبحثت عن ذلك ووجدت الأكواد
جزاكم الله حيرا استاذى واللهم اسأل ان يفرج عنك كربات الدنيا والآخرة كما فرجت عنى كربى 
-----------------------------------
كما اننى أدين كذلك بكل الفضل لاستاذى الجليل ومعلمى القدير ووالدى الحبيب الاستاذ @jjafferr  لتصحيحه ما وقعت به من خطأ وبفضل الله تعالى ثم فضلكم الذى سوف اظل ادين به لكم ما حييت تم حل مشكلتى وتدارك ما وقعت به من خطأ 
بارك الله تعالى لكم فى العمر والعلم والاهل والولد ورزقكم من طيبات الدنيا وطيبات اعلى درجات الجنان ان شاء الله تعالى 
 

ولتعم الفائدة اضع المرفق ليكون مرجعا لمن يتعثر فيما تعثرت فيه
 
 
Consumable Material Check List.accdb

وبفضل الله تعالى تم الوصول الى النتيجة المطلوبــــة
اضع هذا العمل المتواضع بين اياديكم
شكرا لكل استاذتى الكرام الذين اثقلت عليهم بهذا الامر
شكر لكل من ساعدنى سواء بالمحاولة او التشجيع او الافكار
شكر لكل من اثقلت عليهم وكنت اطلب منهم التجربة فى رسائل خاصة ولم يكلوا او يملوا 
شكر لكل القائمين على هذا الصرح الشامخ فلولا الله سبحانه وتعالى اولا ثم كل اساتذتى واحبابى ما توصلت لشئ 
شكر الله لكم واحسن اليكم وغفر الله لكم ورزقكم البركة فى العمر والعلم والاهل والولد ورزقكم جميعا والمسلمون ان شاء الله شربة هنيئة مريئة من يد سيدنا وحبيبنا محمد صلوات ربى وسلامه عليه 
 
Connect To Network.mdb

بعد اذن استاذى الجليل ومعلمى القدير الاستاذ @essam rabea
وزيادة فى الخير
قد تعجبك الافكار ان شاء الله بهذا المرفق
https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=166769

شوف الحيله دى
 
test2 (2).mdb

انظر الى ها المرفق 
ان شاء الله تجد فيه ضالتك
Automatically relink Access tables.zip

جرب الكود ده ورد على بالنتيجة لة تكرمت
Dim NetworkObject As Object Dim FSO As Object Dim Directory As Object Dim Filename As Object Dim ServerShare As String Dim UserName As String Dim Password As String ServerShare = "\\corp-server\HostingFolder" UserName = "mydomain\myuser" Password = "freddie123" Set NetworkObject = CreateObject("WScript.Network") Set FSO = CreateObject("Scripting.FileSystemObject") NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, Password Set Directory = FSO.GetFolder(ServerShare) For Each Filename In Directory.Files Debug.Print Filename.Name Next Set Filename = Nothing Set Directory = Nothing Set FSO = Nothing NetworkObject.RemoveNetworkDrive ServerShare, True, False Set NetworkObject = Nothing  

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

اتفضل 
Function Date.mdb

جرب المرفق ده اسم العميل موجود 
Base de données13 - Copie (3).accdb

اتفضل 
 اهلا اهلا استاذى الجليل ومعلمى الاستاذ @essam rabea  حبيبى انا كلى لك 
بس اللى يدفعونه لى انا 
Open Folder.zip

صلاة علي النبي المصطفي (صلي الله عليه وسلم)
 

واجهة ادارة قضايا مكتب محامى.zip