jo_2010 قام بنشر أغسطس 4, 2020 مشاركة قام بنشر أغسطس 4, 2020 الخبراء الاعزاء اريد عمل نموذج بة مربع نص اكتب بة اي معيار وزر لفتح استعلام croostab علي نفس المعيار قمت بعمل الcroostab ولم استطيع عمل معبار من خلال النموذج ارجو مساعدتي شكرآ رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر أغسطس 5, 2020 مشاركة قام بنشر أغسطس 5, 2020 السلام عليكم ارفق مثال بارك الله فيك ليتم التعديل عليه ان شاء الله تخياتي رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر أغسطس 5, 2020 الكاتب مشاركة قام بنشر أغسطس 5, 2020 الخبراء الاعزاء مرفق القاعدة للتعديل عليها اريد عمل نموذج من خلالة اعمل تصفية للاستعلام BB انيميا - رمد او اى تصفية APE.accdb رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر أغسطس 5, 2020 مشاركة قام بنشر أغسطس 5, 2020 تفضل اخي الكريم انظر النموذج frmBB وهذا كود التصفية Dim myCriteria As String myCriteria = myCriteria & "(" myCriteria = myCriteria & "[BB].[code_proj]= " & Me.Combo19 myCriteria = myCriteria & ")" Me.Filter = myCriteria Me.FilterOn = True APE1.rar تحياتي رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر أغسطس 5, 2020 الكاتب مشاركة قام بنشر أغسطس 5, 2020 معلمى الجليل محمد أبوعبدالله اشكر سعة صدرك ومساعدتى فى عمل التصفية ولكن ارجو الاطلاع على نموذج BB وضعت بة زر لفتح تقرير على حسب التصفية واود اضافة اكثر من كمبو بوكس مرة للاسم مثلا ومرة للمشروع كما فعلت حضرتك اشكرك على تعبك APE12.accdb رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد أبوعبدالله قام بنشر أغسطس 5, 2020 أفضل إجابة مشاركة قام بنشر أغسطس 5, 2020 مرحبا اخي الكريم 4 ساعات مضت, jo_2010 said: واود اضافة اكثر من كمبو بوكس مرة للاسم مثلا ومرة للمشروع تم اضافة المشروع من قبل وبالنسبة للاسم يمكن تنفيذ الكود التالي Me.FilterOn = False myCriteria = "" myCriteria = myCriteria & "(" myCriteria = myCriteria & "[BB].[pname]='" & Combo22.Column(1) & "'" myCriteria = myCriteria & ")" Me.Filter = myCriteria Me.FilterOn = True 5 ساعات مضت, jo_2010 said: وضعت بة زر لفتح تقرير على حسب التصفية وهذا كود الطباعة حسب التصفية Debug.Print myCriteria DoCmd.OpenReport "BB", acViewPreview, , myCriteria وهذا الكود كامل Option Compare Database Dim myCriteria As String Private Sub Cmd01_Click() Debug.Print myCriteria DoCmd.OpenReport "BB", acViewPreview, , myCriteria End Sub Private Sub Combo19_Click() Me.FilterOn = False myCriteria = "" myCriteria = myCriteria & "(" myCriteria = myCriteria & "[BB].[code_proj]= " & Me.Combo19 myCriteria = myCriteria & ")" Me.Filter = myCriteria Me.FilterOn = True End Sub Private Sub Combo22_Click() Me.FilterOn = False myCriteria = "" myCriteria = myCriteria & "(" myCriteria = myCriteria & "[BB].[pname]='" & Combo22.Column(1) & "'" myCriteria = myCriteria & ")" Me.Filter = myCriteria Me.FilterOn = True End Sub APE12.rar تحياتي رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر أغسطس 6, 2020 الكاتب مشاركة قام بنشر أغسطس 6, 2020 استاذى الفاضل الخبير محمد أبوعبدالله اشكرك على تعبك فعلت اكثر ماكنت اتوقع لقد حققت ماكنت احلم بة واكثر خالص الشكر وجعل الله تعبك فى ميزان حساناتك سؤال بسيط كيف ارتب الحقول العمودية بحيث يكون شهر 7/2020 9/2020 وهكذا لانهم غير مرتبين ويبدا بشهر 11/2020 رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر أغسطس 6, 2020 مشاركة قام بنشر أغسطس 6, 2020 الترتيب الموجود في الملف السابق حسب حقل IDED تفضل الترتيب حسب حقل DATER program.rar تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.