A L M A I S T R O

ممكن حضرتك تصححلى الكود السابق من فضلك

ممكن مثال توضيحى بالمعادلات

اريد معادلة او كود vba لحساب عدد القطع المراد تخزينها بمكان معين بناءا على الطول والعرض والارتفاع لمساحه المكان وبناءا على طول وعرض وارتفاع القطعه المراد تخزينها شكرا

ليس هذا ما اريدة عموما وجدت الحل الحمد لله

السلام عليكم كيف لى عند النقر المذدوج على الخلية "+" يتم فتح تفاصيل الصنف ويتم ملء البيانات بشكل اتوماتيكى من شيت اخر بمثابة قاعدة البيانات Book1.xlsm

الله يفتح عليك حذفت الصفر فعلا وخليت الخلية TEXT وظبطت معايا الف الف مليون شكر ا/محمد صالح

انا اسف لتعبك معايا عند البحث بالموبايل والفاتورة معا تأتى النتيجة مطبوطة تمام وعند البحث بالموبايل فقط تأتى ايضا مظبوطة تماما ولكن عند البحث برقم الفاتورة فقط لا تأتى اى نتائج

اليك مثال مرفق اخى محمد صالح Desktop.rar

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

ا/محمد صالح ما ظبتت معى Source = "SELECT * FROM Table2 WHERE [fdName4] BETWEEN #" & startdt & "# And #" & stopdt & "#" & _ IIf("G1" = "" And [G2] = "", "", " And ([fdName16] = " & "G1" & " Or [fdName1] = " & [G2] & ")") & ";" يرجى المساعدة

لما خليته يبحث عن شرط واحد فقط اشتغل Source = "SELECT * FROM Table2 WHERE [fdName4] BETWEEN #" & startdt & "# AND #" & stopdt & "#" & _ IIf([inv] = "", "", " AND ([fdName1] = " & [inv] & ")") & ";" حقل الموبايل فى الاكسيس نصى وحقل الفاتورة فى الاكسيس رقمى

وضعت هذا الاستعلام كما ذكرت mobi = Sheets("Find").Range("G1") invois = Sheets("Find").Range("G2") Source = "SELECT * FROM Table2 WHERE [fdName4] BETWEEN #" & startdt & "# AND #" & stopdt & "#" & _ IIf(mobi = "" And invois = "", "", " AND ([fdName16] = " & mobi & " OR [fdName1] = " & invois & ")") & ";" علمان بان الخلية G1 هى رقم الموبايل والخلية G2 هى رقم الفاتورة .. ولكن لا تعطى اى نتائج

الف شكر ... تمت بنجاح ا/محمد صالح ... لى سؤال اخر لو تسمحلى عايز اعدل فى الكود التالى لاضافة اكثر من اختيار للبحث بقاعدة البيانات بحيث اقدر اخلى المستخدم يبحث برقم الهاتف ورقم الفاتورة علما بان اسم الحقل الخاص برقم الفاتورة اسمه fdname1 واسم الحقل الخاص برقم الموبايل fdname16 وسيتم فى ورقة الاكسيل كتابة رقم الفاتورة فى الخلية مثلا A1 ورقم الموبايل فى الخلية A وفى حالة كانت الخلية A1 و A2 فارغه يجعل البحث كما هو بين التاريخين Source = "SELECT * FROM Table2 WHERE [fdName4] BETWEEN #" & startdt & "# And #" & stopdt & "# "

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

السلام عليكم السادة الافاضل لدى كود للبحث فى اكثر من قاعدة بيانات اكسيس من داخل الاكسيل المشكلة ان الكود يقوم بالبحث فى اول واخر قاعدة بيانات فقط ولا يبحث فى القواعد بالترتيب علما بانهم حوالى 6 قواعد بيانات For r = 2 To 18 'Sheets("Settings").[B18].End(xlUp).Row DBFullName = Application.ActiveWorkbook.Path & "\" & Sheets("Settings").Cells(r, "B").Value '"\Database#01.accdb" ' Open the connection Set Connection = New ADODB.Connection Connect = "Provider=Microsoft.ACE.OLEDB.12.0;" Connect = Connect & "Data Source=" & DBFullName & ";" Connection.Open ConnectionString:=Connect Set Recordset = New ADODB.Recordset With Recordset ' Source = "SELECT * FROM Table2 WHERE [fdName4] BETWEEN #" & startdt & "# AND #" & stopdt & "# ORDER BY [fdName4]" Source = "SELECT * FROM Table2 WHERE [fdName4] BETWEEN #" & startdt & "# AND #" & stopdt & "#" ' Source = "SELECT * FROM Table2 WHERE [fdName2] BETWEEN " & startdt & " AND " & stopdt & " ORDER BY [fdName2]" .Open Source:=Source, ActiveConnection:=Connection For Col = 0 To Recordset.Fields.Count - 1 ' Range("A2").Offset(0, Col).Value = Recordset.Fields(Col).Name Next Range("A5").Offset(1, 0).CopyFromRecordset Recordset End With '//------------------------End Conditioanl 1 ------------------------------------------- Next r ' ActiveSheet.Columns.AutoFit Set Recordset = Nothing Connection.Close Set Connection = Nothing End If