نجوم المشاركات

السلام عليكم 🙂 ملاحظة: يجب تغيير صيغة الامر If ، وتجعل تنفيذ الاوامر بداخلها ، هكذا : Private Sub Form_Load() If DateSerial(YEAR(Date), Month(Date), 11) = Date Then Call Form_frmTarhell.tarhel_AfterUpdate Call Form_frmTarhell.Command6_GotFocus end if End Sub . واترك التتمة مع اخي ابو بسملة 🙂 جعفر

Private Sub Workbook_Open() Dim ws As Worksheet Sheet"الرئيسية".Visible = xlSheetVisible Sheet"الرئيسية".Select Range("a1").Select For Each ws In ThisWorkbook.Worksheets If Not ws.Name = "الرئيسية" Then ws.Visible = xlSheetVeryHidden Next ws Application.ScreenUpdating = true End Sub

السلام عليكم 🙂 فيه خطوط جاهزة تعمل مثل خطوط شاشات العرض LCD ، مرفق احدها ، واليك طريقة استعمال الخط Font : أ. قم بتنصيب الخط في الوندوز ، ثم في الاكسس استعمله كأي خط عادي ، وفي حالتك ، استعمله للارقام 🙂 ، او ب. او اذا لا تريد ان تنصب الخط في الوندوز (قد لا تستطيع الوصول لحاسبة جميع المستخدمين) فيمكنك ان تجعل برنامجك يستعمله لبرنامجك فقط (في احد برامجي ، استعمل خط الباركود code39.ttf ويجب ان يكون في البرنامج علشان ينتج الباركود ، فاستعمل هذه الطريقة) : 1. ضع الخط في نفس مجلد برنامجك ، 2. اعمل وحدة نمطية مستقلة ، احفظها باسم mod_AddFonts ، واضف فيها هذا الكود: Option Compare Database Option Explicit Private Declare PtrSafe Function AddFontResource Lib "gdi32.dll" Alias "AddFontResourceA" ( _ ByVal lpFileName As String) As Long Public Function AddFonts(Font_Name_Path As String) Dim result As Long result = AddFontResource(Font_Name_Path) 'MsgBox Result & " fonts added" End Function 3. في حدث "عند تحميل" اول نموذج في برنامجك ، نادي الدالة اعلاه هكذا (طبعا تكتب اسم الخط ومساره في مجلد برنامجك) : 'Code39.ttf Font, install it, just in case it is not installed before Call AddFonts(CurrentProject.Path & "\Barcode_Font\code39.ttf") 4. بس على كمبيوترك (كمبيوتر المبرمج) ، يجب ان تنصب الخط في الوندوز لأول مرة ، ثم تعمل برنامجك ، ولما كل شيء يكون تمام ، تقدر تحذف الخط من الوندوز ، وتستعمل الطريقة اعلاه 🙂 وبما انه خط عادي ، فما فيه داعي لكود خاص علشان تعرض الارقام ، والتعديل والالوان وحجم الخط ووووو ، يكون بكل سهولة ، لأنه مجرد خط 🙂 جعفر digital-7.zip

السلام عليكم اخواني الكريم ارجو منكم المساعدة وارسال اي شي يخص الذكا والتنقيب على البيانات almeklafi22@gmail.com

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

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

وفيك بارك الله مفيش مشكله اتفضل Public Sub Command6_Click() ' Me.Text0 = DateSerial(2020, 3, 1) ' Me.Text2 = DateSerial(YEAR(Date), Month(Date), 1) - 1 DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE tbl_Items SET tbl_Items.iBillStatus = ""مرحل"" WHERE (((tbl_Items.iDate) Between DateSerial(2020, 3, 1) And DateSerial(YEAR(Date()), Month(Date()), 1) - 1));" DoCmd.SetWarnings True End Sub بالتوفيق TESTCODE (2).accdb

الملف لايعمل فى ويندوز 7 اوفيس 2010 32 بت

جرب هذا البرنامج .. نزلته من فترة من أحد المواقع الأجنبية .. Translator.accdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير الكود شغال تمام مثل ما قلتلك ولكن طريقه التنفيذ اللى هتختلف سيتم الوضع باكمله فالنموذج frmTarhell فحدث عند الفتح الفكره كلها بتعتمد انت عاوز ايه وعاوز يتنفذ امته وتبدا تنسق امور وترتب الاحداث بتاعتك بس افتح الملف المرفق ثم افتح الجدول اولا سوف تجد الحقل iBillStatus فارغ قم بفتح النموذج frmTarhell فقط ومتعملش حاجه انظر للجدول سوف تجد بان الحقل iBillStatus تم تحديث الحاله للسجلات التى تنطبق عليها شروط التاريخ عاوز تخليهم فالزر عادى انقل الكود لحدث عند النقر مش عند التركيز عاوز تخليه زى ماهو مفيش مشكله بالتوفيق TESTCODE.accdb

وعليكم السلام -تفضل الكود Sub ØÈÇÚå_ÚÇãÉ() Application.ScreenUpdating = False ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "d:\" & Format(Now, "- dd-mm-yyyy-") & Nombre & " " & QualityxlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Application.ScreenUpdating = True End Sub

منور معلمى العزيز @jjafferr وجزاك الله خيرا 💐 يعمل بشكل جيد وراجعته فتح النموذج frmTarhell اول حاجه ثم النموذج Index ثم الضغط ع زر الترحيل بالنموذج الاول ويتم التنفيذ وعندك تاريخ واحد مطابق للشروط 6/4/2022 ويتم تحديث الحقل iBillStatus الى مرحل هى دى خطوات العمل ع المثال المرفق منك بالتوفيق

هل تقصدين عدم ادخال التاريخ قبل ادخال اسم العميل

السلام عليكم اخى @ABOLO2 يجب عليك حذف القيمه المخزنه بالتيم فار TempVars.Remove "user" بالتوفيق

اسعد الله اوقاتك اخى الكريم بكل خير استاذى حبيبىjjafferr بارك الله فيك اخى الكريم تسلم ايدك اخى فى الله استاذى الحبيب احمد الفلاحجي بعد التنفيذ اخى ارجوا لو وقت حضرتك يسمح مراجعة الكود والوقوف على سبب عدم التنفيذ اكون شاكر فضلك اخى الكريم بارك الله فيكم اخوانى الاحباء لقلبى احترامى TESTCODE.accdb

كل الشكر والتقدير استاذي وبارك الله فيك الاجابة صحيحة 100%

يمكنك متابعة هذه الروابط أخي الكريم عسى أن تفيدك رابط1 رابط2 رابط3 تقبل تحياتي

تفضل أخي أبو هالة هذا هو الكود : Private Sub تاريخ_الاستحقاق_AfterUpdate() If IsNull(Me.المرحلة) Then Me.المرحلة = 1 ElseIf Me.المرحلة = 11 Then Else Me.المرحلة = Me.المرحلة + 1 End If End Sub وكذلك تم تعديل الحقل في الجدول لكي يحمل قيمتين ( رقمية ونصية ) لكي يعمل الكود بشكل صحيح . مع مراعاة نصائح الإخوان بجعل جميع المسميات باللغة الإنجليزية دائما 🙂 علاوة.accdb

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

جزاك الله كل خير استاذ حسين مأمون وجعلها في ميزان حسناتك هذا ما كنت اريده بالضبط هذا مكنني من متابعة اسعار مادة ما حسب الواقع مع ملاحظة تعديل اسعارها🌷

السلام عليكم ورحمة الله وبركاته أخي الكريم من خلال الصورة التي أرفقتها يتبين أنك تريد نتيجة البحث بناء على معطيين اثنيين الأول: اختيار الصف الثاني : تحديد رقم الجلوس وبذلك أرفق لك هذه الصورة للبحث بناء على هذين المعطيين معاً ، وعليه لا تتحقق نتيجة البحث إلا بكليهما ولذلك اعتمدنا على عمود مساعد في الجدول ...أما إن أردت البحث بناء على تحديد رقم الجلوس حصراً ستحصل عليها بمعادلة أخرى بغضّ النظر عن اختيار الصف لست بحاجة إلى عمود مساعد بناء على معطى واحد(لسنا بصددها حسبما أوردت). لتحديد معطيين نضع المعادلة التالية مقابل الاسم: =IFERROR(VLOOKUP(D6&D7;Table1;5;0);"") ونضع مقابل النتيجة المعادلة التالية: =IFERROR(VLOOKUP(D6&D7;Table1;6;0);"") والمرفق التالي يوضح لك بإذن الله تعالى ما أردت أما إن أردت معرفة كيفية سحب البيانات من موقع يمكنك متابعة الرابط التالي الذي يشرح لك كيفية سحب بيانات ما من موقع وتسجيلها في ملف إكسيل. البرنامج التعليمي: استيراد البيانات Microsoft Excel تقبل تحياتي العطرة والسلام عليكم. بحث بمعطيين.xlsx

طيب ما هو المعيار الذى بابني عليه المطلوب يعنى ما القيمه او الشرط التى اذا تحقق يفعل كذا عموما طلبك ممكن تنفيذه باستعلام او دالة if او دالة Select

هلا تكرمت بمزيد من التفاصيل عن هذه الشاشة كالاسم/ المديل/ طريقة اتصالها بالحاسوب/ طريق مباشر كـ usb أم عن طريق غير مباشر كربط من خلال الشبكة حتي تسهل علي من يحاول المساعدة المساعدة

قيمة رقمية.accdb

الان فهمت ..لانك تفتح السلك قبل الوظيفة طبعا لاتفتح لان استعلامها يعتمد على الاختيار الاول انت اردت تصفية السلك على حسب الوظيفة

شاهد المرفق Tq.xlsm

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

السلام عليكم ورحمة الله وبركاته ، أنا أبحث عن شيء يتعلق بالتنقيب عن البيانات وكذلك المعلومات المتعلقة بتعدين العملات المشفرة لبعض الكازينوهات على الإنترنت كذلك.

تفضل هذا الكود: Private Sub رقم_الحافظه_DblClick(Cancel As Integer) 'File_Path="C:\Temp" File_Path = Application.CurrentProject.Path & "\" File_Name = Me.رقم_الحافظه & ".pdf" Name_Path = File_Path & File_Name If Dir(Name_Path) <> "" Then Application.FollowHyperlink Name_Path Else MsgBox "File not found." End If End Sub جعفر New Microsoft Office Access Application.zip