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

استبدل في الكود "F18" بــــ "D20" تعديل الملف Rawateb_New.xlsm

السلام عليكم جرب هذا الكود بزر مع ملاحظة تغيير اسم الطابعة عندك بهذا الكود تختار الطابعة من غير التأثير على الطابعة الافتراضية Set Application.Printer = Application.Printers("HP LaserJet Series II") DoCmd.OpenReport "اسم التقرير", acViewNormal وهذا برنامج لاحد الاخوة بالموقع للتحكم الكامل بطباعة التقارير اتمنى ان يفيدك تحياتي Full Control Of Print Report.rar

السلام عليكم اخي حسين 🙂 قام اخونا العود ابو خليل مشكورا بجمع بعض المواضيع الدروس والمواضيع المهمة هنا: دروس وشروح وتطبيقات وأفكار واول درس كان SQL Server ، وفيه عدة امثله: أكسس و اسكيوال سيرفر Access with Sql Server فأرجو ان تحصل على جوابك هناك ان شاء الله 🙂 جعفر

السلام عليكم أعضاء المنتدى الكرام أريد وضع فاصل مابين الارقام والحروف في استعلام بطرق أخرى أفضل من طريقتي وشكرا Nouveau Microsoft Access Base de données.accdb

السلام عليكم ورحمة الله اخواتى واساتذتى لقد رأيت ان اشرح طريقة عمل ايقونة بطريقة بسيطة باستخدم خيارات الاكسس .. فقمت بشرحها على اليوتيوب لكي يستفيد منها كل الاعضاء المبتدئين وانا اعرف المنتدي غنى بمثل تلك المشاركة وبطرق مختلفة https://youtu.be/jav3HFmrbEE

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

السلام عليكم ورجمة االله بفضل الله وبحمده اوجدت طريقة ل تفويم البضاعة وفواتير المبيعات يطريقة الوارد اولا صادر اولا fifo ارفق اخواني لكم المثال متنمنيا ابداء النصح والتنويه على الخطا ان وجد fifomod17.zip

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

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

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

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

السلام عليكم اخي الكريم منطقيا الافضل هي الاحدث لان فيها مميزات جديده والواجهات الجميلة واضافات تسهل الكثير على المستخدم بالاضافة انها تستطيع التعامل مع النسخ الاقدم منها اما مسالة كونها ثقيلة او تعلق / السبب هو في جهاز الحاسوب لان كل برنامج تقوم بتثبيته في جهاز الحاسوب له متطلبات منها: 1- مساحة كافية من القرص الصلب (الهارد) 2- ذاكرة عشوائية كافية (الرام كافية) على الاقل 4 كيكابايت 3- سرعة معالجة (المعالج يجب ان يكون جيد) على الأقل معالج ثنائي النواة 4- نسخة حديثة من DirectX تحياتي

السلام عليكم الرجاء ارفاق قاعده بيانات او مثال عند طرح السؤال لتوفير الوقت على الجميع

الف شكر الكود اشتغل تمام شكرا ليك

أستاذ هشام كمال ليه لم يتم الضغط على الإعجاب لهذه الإجابة ,وأعتقد ان هذا هو اقل ما يقدم لصاحب الفضل بعد ربنا فى حل مشكلتك وانت تعلم يقيناً ان الكل هنا يعمل لوجه الله ويضحى بأوقاته فى تفريج كربات الناس ؟!!💙

اتفضل اخى التجميع يكون فى تذيل التقرير تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق db(1).accdb

الأخ medobest اعتذر عن شرح الكود وذلك فقط لضيق الوقت ربما يقوم احد الاساتذة بعمل ذلك

الخلايا المدمجة من جديد (تقوم بارباك اي ماكرو و اي معادلة) تم ازالة الخايا المدمجة التي يسري عليها الكود انظر الى الملف واضغط فقط على الزر في صفحة Repport Rawateb.xlsm

واتفضل اخى اطلع على هذا الرابط http://arabteam2000-forum.com/index.php?/topic/287502-إنشاء-قاعدة-بيانات-علي-الانترنت-وربطها-بمايكروسوفت-أكسيس-شرح-فيديو/#comment-1379286 تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

أستاذ / مالك يمكنك عمل زر ( الصفحة الرئيسية ) ووضعه فى كافة صفحات العمل و ربطه بكود للعودة للصفحة الرئيسية التى تريدها كما يلى Sub main() Application.Visible = True ' Sheet 1يمكنك اختيار اسم الصفحة الرئيسية بدلا من Sheet1.Activate End Sub

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

أكثر من مرة اكرر لا لزوم لدمج الخلايا حيث توجد معادلات الحل هنا HISHAM_1.xlsx

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

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

مشاركة مع اخي الاستاذ خالد اذا كان مصدر التقرير استعلام ، اعمل عمود جديد وضع هذه القيمة فيه واجعله هو مصدر بيانات الحقل date1 : format([textedate];"dd/mm/yyyy") باعتبار textedate هو حقل التاريخ الموجود في الاستعلام اذا توصلت للحل والا كما اشار عليك الاستاذ خالد بارفاق مثالك

السلام عليكم بعد اذن الاستاذ خالد تفضل اخي العزيز ارجو ان يكون طلبك Root300.rar

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

حدد صف العناوين وصف (أو صفوف) تحته ثم من قائمة إدراج بالأعلى اختر (جدول) الثالثة من اليمين تقريبا وتستطيع الوصول له من خلال لوحة المفاتيح بالضغط على CTRL+L تحياتي

وعليكم السلام ورحمة الله وبركاتة مع الاسف لايوجد sql للتطبيق والتجربه جرب ضع هذا الكود بعد الاتصال ف النموذج او عند الحدث المناسب ف ادخال او تحديث البيانات Set rstSUB = Me.Form.RecordsetClone Set rst = CurrentDb.OpenRecordset(mysql, dbOpenDynaset, dbSeeChanges) ::بالتوفيق::

حرب هذا الماكرو Option Explicit Sub get_my_studiants() Application.ScreenUpdating = False Dim A As Worksheet Dim B As Worksheet Set A = Sheets("ALL_STD") Set B = Sheets("B") Dim col%, r, x, LB LB = B.Cells(Rows.Count, "B").End(3).Row If LB < 5 Then LB = 5 B.Range("a5").Resize(LB - 4, 6).Clear Dim my_clas$: my_clas = B.Range("e2") Dim my_mad$: my_mad = B.Range("K2").Value If my_clas = "" Or my_mad = "" Then GoTo Exit_Sub col = A.Rows(1).Find(my_clas, lookat:=1).Column r = A.Columns(1).Find(my_mad, lookat:=1).Row x = Application.CountIf(A.Columns(1), my_mad) B.Range("b5").Resize(x).Value = _ A.Cells(r, 2).Resize(x).Value B.Range("c5").Resize(x, 3).Value = _ A.Cells(r, col).Resize(x, 3).Value With B.Range("A5").Resize(LB - 4, 6) .Columns(1).Formula = "=if(B5="""","""",max($A$4:a4)+1)" .Columns(1).Interior.ColorIndex = 6 .Borders.LineStyle = 1 .Columns(6).Formula = "=RANK(E5,$E$5:$E$29,0)+COUNTIF($E5:E$5,E5)" .Value = .Value .Font.Size = 26 .Font.Bold = True .InsertIndent 1 End With Exit_Sub: Application.ScreenUpdating = True End Sub الملف مرفق My_students.xlsm

عندي برنامج جاهز سعره 100 دولار اذا الك مصلحة مرفق صور البرنامج

السلام عليكم اسمحوا لي ان اوضح بعض المعلومات صيغة accdb بدأت بالاكسس 2007 ، ولكن ليس جميع خواص accdb متوافقة بين الاصدارات 2007-2016 !! وهناك الكثير من الميزات الموجودة في 2010 ، ليست موجودة في النسخة الاولى من اصدار 2007 ، وانما هي موجودة عند تحديث 2007 بحزم التحديث Service pack ، ولكن ، الميزات الاخرى والموجودة في 2010 او 2013 او 2016 مثل: حدث الجداول ، برامج الويب ، تكبير الصفحات (zoom) ، و .... ، فإنها اصلا غير موجودة لإصدارات الاكسس الاقدم. جعفر

بارك الله لك أستاذ إبراهيم ولإثراء الموضوع وتطوير الدالة وجعلها أكثر احترافية Function GetNumbersOnly(SText as string) as double Dim Numbers as string For i = 1 To Len(SText) If IsNumeric(Mid(SText, i, 1)) or mid(sText,i,1) = "." Then Numbers = Numbers & Mid(SText, i, 1) End If Next GetNumbersOnly = cdbl(Trim(Numbers)) End Function تم إضافة تعريف بعض المتغيرات وشرط للعلامة العشرية وتحويل ناتج الدالة لرقم من نوع دبل كل عام وانتم جميعا بخير وسعادة ورضا

نعم أستاذ شيفان.. إليك الوظيفة التالية Function GetNumbersOnly(SText) Dim Numbers For i = 1 To Len(SText) If IsNumeric(Mid(SText, i, 1)) Then Numbers = Numbers & Mid(SText, i, 1) End If Next GetNumbersOnly = Trim(Numbers) End Function New Microsoft Access Database.zip

استاذنا ابوابراهيم الغامدي هل هناك وظيفة ان يستخرج الارقام كلها من بين نصوص مثلا 34HRV5T765HH545 بيكون 345765545

وعليكم السلام ورحمة الله يمكنك أيضا استخدام الوظيفة التالية في استعلام Function GetNumbers(SText) For i = 1 To Len(SText) If Not (IsNumeric(Left(SText, i))) Then GetNumbers = Left(SText, i - 1) Exit Function End If Next End Function New Microsoft Access Database.zip

لأني كسلان اذا اردت استعمالها ، فيجب ان يتغير الكود الى: Option Compare Database Option explicit Function Seperate_Digits(T as string) as string dim i as integer dim C as string dim Which_Letter as string 'T = Text From Query If Len(T & "") = 0 Then Seperate_Digits = "" Exit Function End If For i = 1 To Len(T) 'the ascii number of each number C = Asc(Mid(T, i, 1)) 'ascii numbers we want '46= . '47= / '48= 0 '49= 1 '50= 2 '51= 3 '52= 4 '53= 5 '54= 6 '55= 7 '56= 8 '57= 9 Select Case C Case 46, 48 To 57 Which_Letter = Which_Letter & Mid(T, i, 1) Case 47 Which_Letter = "" End Select Next i Seperate_Digits = Which_Letter End Function جعفر جعفر

تفضل ، هذه الوحدة النمطية الجديدة 1. نحسب طول المعلومة ، اذا كانت صفر ، فلا ندخل في بقية المعادلات ، 2. واذا لقينا Case 47 ، فنحذف كل ما كان قبله ""=Which_Letter ، ونبدأ البحث عن الارقام من جديد Function Seperate_Digits(T) 'T = Text From Query If Len(T & "") = 0 Then Seperate_Digits = "" Exit Function End If For i = 1 To Len(T) 'the ascii number of each number C = Asc(Mid(T, i, 1)) 'ascii numbers we want '46= . '47= / '48= 0 '49= 1 '50= 2 '51= 3 '52= 4 '53= 5 '54= 6 '55= 7 '56= 8 '57= 9 Select Case C Case 46, 48 To 57 Which_Letter = Which_Letter & Mid(T, i, 1) Case 47 Which_Letter = "" End Select Next i Seperate_Digits = Which_Letter End Function جعفر

وعليكم السلام عملت وحدة نمطية لحل الموضوع: . والنتيجة . والوحدة النمطية: Function Seperate_Digits(T) 'T = Text From Query For i = 1 To Len(T) 'the ascii number of each number C = Asc(Mid(T, i, 1)) 'ascii numbers we want '46= . '47= / '48= 0 '49= 1 '50= 2 '51= 3 '52= 4 '53= 5 '54= 6 '55= 7 '56= 8 '57= 9 Select Case C Case 46 To 57 Which_Letter = Which_Letter & Mid(T, i, 1) End Select Next i Seperate_Digits = Which_Letter End Function . جعفر 562.ExtractNumbers.accdb.zip

السلام عليكم Transaction_his.rar