seaprince46

السلام عليكم إخواني الكرام عندي الجملة التاليه rs.Source = "SELECT TblAssetHis.*, EmpMaster.EmpMain_FName FROM EmpMaster INNER JOIN TblAssetHis ON EmpMaster.Sys_EmpID = TblAssetHis.[EmpNo] Where Code LIKE '%" & TxtVar.Text & "%';" المطلوب هو معرفة قيمة EmpMaster.EmpMain_FName الموجوده في الجملة الماضيه ووضعها في ليبل موجود في داتاريبورت شاكر ومقدر لكم حسن تعاونكم

أخي العزيز wael20004 مثال أروع من رائع ومختصر يفي بالغرض جزاك الله خيرا ياغالي مشكور وماقصرت

معقول مافي أحد عارف الجواب لهالدرجه الموضوع صعب

:(

جزاك الله خيرا أخي على الرابط المفيد

up

السلام عليكم إخواني الكرام عندي إستفسار بخصوص التعامل مع الجداول الرياضيه أكسل من خلال الفيجوال بيسك المطلوب كالتالي : يوجد ملف أكسل مرفق فيه عمليه حسابيه بسيطه وهي جمع قيمة خليتين ووضعهما في خليه ثالثه في برنامج الفيجوال بيسك المرفق يوجد فورم فيه 3 تيكست بوكس وكوماند يتم إدخال قيمة في التسكت الأول والثاني وعند الضغط على الكوماند يتم إرسال الرقمين لملف الأكسل في الخلايا المحدده مسبقا لعملية الجمع وتتم عملية الحساب في برنامج الأكسل وإرجاع القيمه الناتجه للتكست الثالث الموجود على الفورم ولكم جزيل الشكر مقدما VB___Excel.zip

تفضل أخي هذا المشروع بعد التعديل عليه _.zip

السلام عليكم إخواني الكرام شكرا لكم على تفاعلكم هذا ليس تحدي مني شخصيا بالعكس انا أوؤمن بهذا المنتدى الرائع وفيه قدرات هائله تضاهي فعلا مبرمجين عالميين وانا شخصيا تعلمت الكثير منه لكن هذه الصيغه اللتي طرحها علي أحد الأشخاص وهو أصلا لايعرف فيجوال بيسك يعمل على VBA الأكسس وقد رأي هذا المنتدى وطلب مني وضع السؤال بهذه الصيغه لأنه محتاج لحل لهذه المسأله وأرجو من الإخوان ان لايأخذو الموضوع على انه تقليل من قدرهم لاسمح الله بالعكس يجب أن يكون دافع للتعلم وإيجاد حل منطقي لمثل هذا المسائل المعقده شاكر ومقدر لكم حسن تعاملكم

طمنتني الله يخليك

السلام عليكم هذه الجمله قالها لي أحدهم تحدي لعمالقة البرمجه ومايكروسوفت وانا بدوري أنقلها لكم أمل أن أجد عندكم الجواب الشافي في المثال المرفق صوره وتيكست المطلوب كتابة الموجود في الصوره في التيكست بنفس الترتيب بنإنتظار تفاعالكم New.zip

مشكور أخي الكريم وبإنتظار جديدك

شكرا لكم إخواني الكرام على مجهودكم الرائع وجزاكم الله الف الف خير كل شي تمام التمام

أخي الكريم أشكر لك تعاونك لكن مازالت المشكله قائمه هذا البرنامج مرفق أرجو التعديل عليه إذا إلى فورم Search المطلوب تحت الزر Command2 مع إختيار ال Request Date وال Status test.zip

اخي الكريم مشكور على الرد السريع لكن للأسف جربت الطريقه ولم تفلح تظهر رساله Type mismatch Adodc2.RecordSource = "select * from T1 where Date between #" + DTPicker1 + "# and#" + DTPicker2 + "# and Status = Combo4.Text;"