سامي الحداد
الخبراء-
Posts
294 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
1
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو سامي الحداد
-
شاركوني تهنئة اخونا سامي الحداد لترقيته الى درجة خبير
سامي الحداد replied to jjafferr's topic in قسم الأكسيس Access
بارك الله فيك أخي العزيز @محمد احمد لطفى بارك الله فيك وجزاك الله خيرا وان شاءالله نخدمكم بقدر ما نستطيع. الله يبازك فيك اخي ابو اشرف جزاك الله خير الجزاء. الله يبارك فيك اخي الكريم. أستاذي الحبيب أبو أحمد بارك الله فيك . واعاننا الله واياكم على خدمه اخواننا الكرام. بارك الله فيك اخي الكريم وجزاك الله خير. -
الف الف مبروك أخي @Eng.Qassim على الترقية ومزيد من التألق . تمنياتي لك بالتوفيق
-
عرض وطباعة تقرير خاص بنتائج بحث شامل في جميع الحقول
سامي الحداد replied to moho58's topic in قسم الأكسيس Access
السلام عليكم تفضل هذه المحاولة وبدون اي استعلام بعد إذن الاستاذ @Ahmed.IQ بالتوفيق بحث شامل2.accdb -
شاركوني تهنئة اخونا سامي الحداد لترقيته الى درجة خبير
سامي الحداد replied to jjafferr's topic in قسم الأكسيس Access
أخى واستاذي الحبيب خالد جزاك الله خيرا وبارك الله فيك انتم اساتذتنا ومنكم تعلمنا الكثير الكثير نفعنا الله بكم ودمتم ذخرا لهذا الصرح الكبير. جزاك الله خيرا وبارك الله فيك . -
وهذه محاولتي بعد ان فهمت طلبك Private Sub المحافظة_AfterUpdate() Dim strFilter As String strFilter = "المحافظة=" & "'" & Me.المحافظة & "'" If Me.FilterOn = True Then Me.Filter = "" Me.FilterOn = False Else Me.Filter = strFilter Me.FilterOn = True End If End Sub Private Sub أمر8_Click() DoCmd.OpenReport "تقرير1", acViewPreview, , Me.Sub1.Form.Filter End Sub بالتوفيق اوفسنا (2).accdb
-
شاركوني تهنئة اخونا سامي الحداد لترقيته الى درجة خبير
سامي الحداد replied to jjafferr's topic in قسم الأكسيس Access
بارك الله فيك اخوي العزيز ابو خليل الشرف لي بما تعلمته منكم اساتذتي الاجلاء. تحياتي لشخصكم الكريم حبيب المنتدى أبو بسملة بارك الله فيك وجزاك الله خيرا واعاننا الله واياكم على خدمه اخواننا الكرام تحياتي لشخصك الكريم -
السلام عليكم اخي ابو اشرف لم افهم بالضبظ اين تريد الفلترة على العموم عملت استعلام وتقرير حسب الاستعلام عسى ان يكون هو المطلوب. تحياتي اوفسنا.accdb
-
تعديل كود فتح وغلق عمود من نوع no , yas
سامي الحداد replied to حمدى الظابط's topic in قسم الأكسيس Access
وعليكم السلام اخي حمدي اليك الكود التالي جرب ووافنا بالنتيجة DoCmd.SetWarnings False If Me.SELCTALL = True Then DoCmd.RunSQL "UPDATE email SET selectrow = True;", dbFailOnError ElseIf Me.SELCTALL = False Then DoCmd.RunSQL "UPDATE email SET selectrow = False;", dbFailOnError End If Me.Requery DoCmd.SetWarnings True بالتوفيق -
السلام عليكم في وضع التصميم ، تحقق من إعداد الصفحة. يجب عليك استخدام "الطابعة الافتراضية" حتى يتمكن أي شخص من استخدام هذا التقرير. بالتوفيق
-
شاركوني تهنئة اخونا سامي الحداد لترقيته الى درجة خبير
سامي الحداد replied to jjafferr's topic in قسم الأكسيس Access
السلام عليكم ورحمة الله وبركاته بصراحة متفاجئ من الموضوع مازلت طالب علم اتعلم منكم اخوانى الاحبه يكفيني فعلا ان اكون بينكم اخوتي واحبتي وهذا وسام غالي من منتدى عظيم مليئ بالأستاذة الكبار علماً وخلقاً والتزاماً أشكر لكم جميعاً هذا الوسام وحسن الظن أساتذتي الكرام كل الشكر والتقدير لفريق الموقع ولأساتذتي وزملائي على هذه الثقة وأتمنى أن أكون عند حسن الظن ويكفيني شرفاً خدمتكم بما يمن الله به أخي وأستاذي ومعلمي الحبيب جعفر جزاك الله خيرا على كل ما تقدمه لنا تعلمنا منكم كرم الخلق في تعاملكم وتواضعكم وإن شاءالله اكون عند حسن الظن. حفظكم الرحمن اخى واستاذى محمد البرناوى بارك الله فيك واعاننا الله واياكم على مساعدة اخواننا الكرام اخى واستاذى الحبيب @AbuuAhmed بارك الله فيك وجزاك الله خيرا واعاننا الله واياكم على خدمه اخواننا الكرام اخى واستاذى المهندس قاسم @Eng.Qassim جزاك الله خيرا وبارك الله فيك وان شاء الله ارى هذا اللقب عن قريب قد اضيف اليك وفقكم الله أحسن الله إليكم، أخي الفاضل @Abou Elhassan اخى واستاذي الحبيب طاهر الوليدي جزاك الله خيرا أنت الورد كله بارك الله فيك ووفقكم الله اخى واستاذى الحبيب @Moosak اسعدك الله وبارك فيك وفى علمكم ونتعلم كل يوم منك ومن اساتذتنا الافاضل معاً نكمل مسيرة نشر العلم و نتعلم كل ماهو جديد اعاننا الله جميعا على هذه الثقه فى خدمه اخواننا الكرام اخى الحبيب حمدى الظابط بارك الله فيك وجزاكم الله خيرا وفقكم الله اخي الكريم @TQTHAMI بارك الله فيك وجزاكم الله خيرا ، شكراً على تشجيعكم وإن شاءالله معا نكمل مسيرة العلم ونتعلم كل ما هو جديد اخي الكريم @qathi بارك الله فيك وجزاكم الله خيرا تقبلوا تحياتي وتمنياتي بالتوفيق واسال الله لى ولكم ان يكون عملنا خالصا لوجهه الكريم -
اريد التخلص من هذه الرسالة المزعجة
سامي الحداد replied to tiger wanted's topic in قسم الأكسيس Access
اسف لم اجرب الكود السابق فقد كتبته على عجالة اليك التعديل على الكود Private Sub Command38_Click() If Me.CurrentRecord = Me.RecordsetClone.RecordCount Then Exit Sub DoCmd.GoToRecord acDataForm, Me.Name, acNext End Sub Private Sub Command39_Click() If Me.CurrentRecord = 1 Then Exit Sub DoCmd.GoToRecord acDataForm, Me.Name, acPrevious End Sub -
اريد التخلص من هذه الرسالة المزعجة
سامي الحداد replied to tiger wanted's topic in قسم الأكسيس Access
Private Sub Command38_Click() Me.Dirty = False DoCmd.GoToRecord record:=acNext End Sub ضع هذا الكود في زر التالي غير السطر الثاني من الكود بالنسبة للازرار الباقية مثلا السابق او سجل جديد الخ. بالتوفيق -
اخي الحبيب محمد الحلبي الشكر لله عز وجل ولكل الاساتذة والاعضاء ولهذا المنتدى الكريم الذي نتعلم منه كل يوم. بارك الله فيك ولك بمثل ما دعوت ربي يحفظك. لك كل التحية والاحترام.
-
اخي العزيز محمد لن تحتاج الى تغير حجم الايفونات لانه يوجد تقريبا كل الاحجام انظر مثلا لهذه الصورة https://iconarchive.com/show/ecommerce-business-icons-by-designcontest/shopping-icon.html نعم الموقع فيه الكثير من الايقونات ويوجد خانة للبحث ايضا. ولك بالمثل اخي الكريم ورحم الله والديك في الدنيا والاخرة. تحياتي لشخصك الكريم
-
وعليكم السلام اخي الكريم محمد الفضل والشكر لله سبحانه وتعالى ولهذا المنتدى الكريم . نحن هنا جميعا نتعلم ونساعد بعضنا البعض . (( ليس العيب ان نقول لا نعرف ولاكن العيب ان لا نتعلم )) أحسنت بارك الله فيك. تحياتي لك
-
السلام عليكم أخي محمد الحلبي تفضل هذا الموقع وفية تجد كل الاحجام المطلوبة والكثير من الايقونات الجميلة . بالتوفيق https://iconarchive.com/tag/pc
-
السلام عليكم أخي الكريم تفضل الملف بعد التعديل كان ناقص فقط الكود التالي الظاهر انك نسيت ان تنقله الى برنامجك. Public Function MakeDir(ByVal strPath As String) As Boolean On Error GoTo err_Handler 'Check if rightmost char is a \ If Right(strPath, 1) = "\" Then 'Strip it strPath = Left(strPath, Len(strPath) - 1) End If 'Check if each individual directory exists, and if not, create it Dim strSplitPath() As String strSplitPath = Split(strPath, "\") Dim intI As Integer Dim strCombined As String 'Loop through, creating each directory if needed For intI = 0 To UBound(strSplitPath) If intI <> 0 Then strCombined = strCombined & "\" End If strCombined = strCombined & strSplitPath(intI) If Dir(strCombined, vbDirectory) = "" Then MkDir strCombined End If Next 'Code ran to end without errors, so creation was succesfull MakeDir = True Exit Function err_Handler: MakeDir = False MsgBox "Error " & Err.Number & " occured." & vbNewLine & Err.Description End Function واليك الملف بعد الإضافة طبعا الشكر موصول للاخ خليفه على الكود تحياتي لك وبالتوفيق إن شاء الله. thaeer.rar
-
عمل فلتر في النموذج لاكثر من قيمه
سامي الحداد replied to Mohamed Khaled Galal's topic in قسم الأكسيس Access
السلام عليكم اخي الكريم البيانات كان مصدرها الاستعلام وقد استندت على تلك المعطيات حسب مصدر النموذج ... على العموم بسيطة بامكانك تغير المصدر من الاستعلام الى الجدول الذي تريده. بالتوفيق -
عمل فلتر في النموذج لاكثر من قيمه
سامي الحداد replied to Mohamed Khaled Galal's topic in قسم الأكسيس Access
وعليكم السلام تفضل اخي الكريم ان شاءالله يكون المطلوب بالتوفيق https://www.mediafire.com/file/1r230l341xdulkc/M.khaled2.rar/file -
Dcount function معتمدة على اختيار من كومبوبوكس
سامي الحداد replied to ابو عبد الله العراقي's topic in قسم الأكسيس Access
السلام عليكم اخي أبو عبدالله اولا النتائج تظهر عندي بدون اي ريفريش للنموذج نانيا بالنسبة للتكرار فهذا لان مصدر السجلات هو الجدول والتكرار موجود لنفس الشخص والبلد اعتقد يجب عمل استعلام لعدم ظهور التكرار ومن ثم البناء على اساس الاستعلام وليس على الجدول.. في الحقيقة اعتقد يجب فصل البلد والمدينة في جدولين منفصلين. ساخاول ان شاءالله فقط امهلني بعض الوقت لاني مشغول جدا هذه الايام.. يمكن احد الاخوة يستطيع المساعدة جزاهم الله خير. تحياتي -
Dcount function معتمدة على اختيار من كومبوبوكس
سامي الحداد replied to ابو عبد الله العراقي's topic in قسم الأكسيس Access
وعليكم السلام تفضل أخي أبو عبدالله بالتوفيق Dcount.accdb