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

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

السلام عليكم 🙂 عندي مجموعة ملاحظات في هذا الموضوع ، فرجاء تتحملوني 🙂 1. لو كان اخونا عبد اللطيف واضح في سؤاله ، ومرفق الملف الصحيح ، لو كنا وصلنا للحل بدري 🙂 2. اتفق مع الجميع ، فنحن بحاجة الى معيار آخر كذلك ، قد يكون التاريخ ، حتى مع الحل الاخير الذي قدمه الاستاذ ابا جودي ، فالايجار لن يظل نفسه لطول العمر !! 2.1. لابد من استعمال المسميات الانجليزية في تسمية جميع كائنات الاكسس ، لأن التسميات العربية تقلب الاوامر ولا نستطيع ان نضبط الكود بها ، 3. بدل استخدام Dlookup (لا ننسى انك يجب ان تكتب الاسم بالضبط وبطريقة صحيحة ، حتى يعمل Dlookup ويجلب القيم الصحيحة) ، الافضل استخدام Combobox ، فممكن ان يعطيك اكثر من قيمة لإيجار الشقة ، وتختار منها. ويكون عندك في حقل Combobox اعمدة بجميل الحقول الاخرى ، وعلى حدث "بعد تحديث" الحقل ، يتم توزيع/فرز القيم على بقية الحقول 🙂 4. الامر Dlookup في الواقع هو استعلام ، لذلك فنحاول قدر الامكان ان نجلب كل البيانات من الجدول مرة واحدة ، ثم نفرزها في النموذج ، وهذا اللي يعمله كود الاستاذ ابا جودي ، بالاضافة الى كتابه اقل 🙂 5. اتفق مع الشباب ، بأنه في اعتقادي ، مشاركة أكثر من شخص في الرد على السؤال ، يفتق الاذهان ويدمج التجارب ويبلور الافكار وفائدة للجميع ، فمنه نتعلم الطرق الاخرى للإجابة على السؤال جعفر

الاخ عبد اللطيف : اذا كنت على سجل جديد ، طبعا تحصل على سجل جديد وتتكرر القيمة ، ولكن جرب ان تكون على سجل موجود مسبقا ، مثل سجل حسن ، جرب بدل حسن اكتب احمد ، فهل ستحصل على سجل جديد !!! جعفر

همممم 1. الموضوع كان ، لماذا يحدث تكرار في البيانات كلما استعملنا delookup ، 2. يا سلام ، اشوف الجميع يتفق مع توقيعي: 🙂 جعفر

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

بارك الله فيك اخي @ابا جودى هذه العبارة انا اتفق معك تماما فيها ... لان اساس المنتدى تعليمي .... 🌷

شرح رائع استاذ . ربيع 🌷

عدل خصائص مربع التحرير والسرد كما في الصورة --------->>>>>>>

شكرا استاذي َ @essam rabea على هذا الشرح المبدع وشكرا أستاذ @kanory لمرورك

هنا بيت القصيد وانظر الى عنوان الموضوع لماذا يحدث تكرار في البيانات كلما استعملنا delookup ؟؟ لذلك من الطبيعي تكرار البيانات

الأخ الفاضل ازهر عبد العزيز بفرض ان المعيار فى حقل ال ID مثلا = 100 ويكون حقل ال Name برضه مثلا = "محمد" يعنى الشرطين مع بعض (And) يبقى كدة هيبحث عن رقم 100 و إسم محمد ولكن لو عاوزين نبحث عن رقم 100 أو إسم محمد يبقى نضع الشرط المعيارى فى أو (Or) وبكدة تكون النتيجة ان يظهر رقم 100 بالاضافة الى اى حد اسمه محمد "فسر الما بعد جهد بالماء" .. أنا نفسى مفهمتش .. صح؟

من واقع المرفق الطالب المعرف الاسم الهاتف المعدل النتيجة 1 احمد 078 88 ناجح 2 احمد 077 46 راسب بادئ ذى بدئ اؤيد وبكل شدة رأى اخى الحبيب الاستاذ @مسفر هنا الاسم تكرر دائما لن تأتيك الا النتيجة التى تخص السجل الأول اون كنت تريد الكود الذى يأتيك بالبيانات دون اضافة سجل جديد اليك الحل استبدل سطر الكود تبعك بهذه الأكواد Dim rs As DAO.Recordset Set rs = Me.RecordsetClone rs.FindFirst "[الاسم] = '" & Me![fname] & "'" If Not rs.NoMatch Then Undo Me.Bookmark = rs.Bookmark MsgBox ("موجود من قبل ") End If سؤال على ديلوكاب.accdb من وجهة نظرى الثوابت التى تريحك تمام ويمكنك الاعتماد عليها بدلا من الاسم لان الاسم قد يتكرر مع الكثيرين من الاشخاص - رقم الشقه اعتقد فى العمارة الواحد رقم الشقة لا يتكرر مطلقا -رقم هوية المستأجر فرقم الهوية ايضا حتما لم يتكرر لشخص اخر

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

المرفق مافيه مشكله 🙂 جعفر

منطقيا .. يجب ان يكون الحل متاح .. لماذا ؟ لأن العلامات تظهر على محدد السجلات عند تغير الخاصية بحثت كثيرا وتوصلت الى طريقة تحايل على السجل باستخدام : Me.Dirty .. false or true الآن افتحوا المرفق وجربوا .. يشتمل على نموذجين تم ضبط السجلات = محرر .. بمعنى اننا سنعمل على المثال وكأننا على الشبكة افتحوا النموذج frm1 وغيرو في قيمة الحقل واتركوه مفتوحا ثم افتحوا النموذج frmtest 1- حاولوا تغيير قبمة الحقل وانظروا الصورة التي ستظهر 2- ادر عجلة الفأرة للانتقال الى سجل آخر او جديد ثم اكتب شيئا وانظر ماذا يحدث للصورة اتمنى ان يكون حلا مرضيا db1.mdb

وعليكم السلام استخدم الحدث التالي DoCmd.SetWarnings False DoCmd.OpenQuery "اسم الاستعلام" DoCmd.SetWarnings True

بالتوفيق اخي الكريم

السلام عليكم ورحمة الله وبركاته اعزائي مشرفين ومشتركين هذا الصرح الاكثر من رائع والذي استفدت منه كثيرا جعله الله في ميزان حسناتكم جميع الميديولات لا تعمل في الاكسس عندي لاضافة ملف صوتي للاكسس ليعمل عند فتح فورم او تشغيل زر او اي حدث من احداث الاكسس برجاء الافاده لا هذه الطريقة Option Compare Database Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" _ (ByVal filename As String, ByVal snd_async As Long) As Long Function PlaySound(sWavFile As String) ' Purpose: Plays a sound. ' Argument: the full path and file name. If apisndPlaySound(sWavFile, 1) = 0 Then MsgBox "The Sound Did Not Play!" End If End Function ولا هذه الطريقة Option Compare Database Const snd_async = (1) Const SND_NODEFAULT = (2) Declare Function sndplaysound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Public Sub API_PlaySound(pWavFile As String) Dim LResult As Long 'Make a Windows API call to play a wav file LResult = sndplaysound(pWavFile, SND_NODEFAULT + snd_async) End Sub وشكرا حضور .mdb

الحمد لله

تفضل لعله هذا مطلوبك مشكلة سابق ولاحق2.accdb تقدر تضيف في مربع التحرير والسرد ما تريد مثل تاريخ القراءة ،،،،،

شكرا جزيلا kanory

انضممت لهذا المنتدى الرائع بتاريخ 13/10/2017 واكتشفته بطريق الصدفة ونزلت سؤال كان بالنسبة لي معجزة اني اتوصل للحل وساعدني على حله الاخ @Shivan Rekany الله يجزيه الخير علما اني فاقده من زمان ما شفت مشاركات له ثم بعد ذلك تعمقت بالمنتدى وبدأت احمل ما تقع عينه عليه واقرأ واتعلم واتعلم وخلال ثلاث شهور اصبحت استطيع ان اصمم برنامج بسيط ومنذ ذلك التاريخ لا يمكن أن يمر يوم دون ان ادخل الى المنتدى وأصبح تاساعد الزملاء واحل بعض الامور التي استطيع علها وعندي خبرة بها الان ولله الحمد صممت 23 برنامج وأبيع البرنامج بسعر 100 دينار اربدني أي ما يعادل 150 دولار ولا ازال اتعلم وسأبقى اتعلم علما اني دارس برمجة وتحليل نظم الا اني استفدت من هذا المنتدى اكثر من الدراسة ** اوجة رسالة محبة من هذا المنبر لكل الاحبة اللي نذروا نفسهم لخدمة الناس ومشاعدة المحتاج للعلم ومنهم @jjafferr and @AlwaZeeR and @ابا جودى and @ابوخليل and @kanory مع احترامي الشديد لمن لم تسعفني الذاكرة لذكر اسمه ولا تزال المسيرة مستمرة وكل يوم نتعلم درس جديد واذا شاء المولى عز وجل عام 2025 سأكون خبير أكسس بفضل الله عز وجل وفضل الاحبة في هذا المنتدى دمتم بخير جميعا

تم معالجة الموضوع لاحظ في المرفق الورقة NoData لا تحتوي على بيانات لازمة فتجاهلها الكود كذلك الشيت المخصصات لا تحتوي على كلمة الاسم في العامود B فتجاهلها الكود امام الشيت laste_sheet فتم ادراجها Option Explicit Sub Salim_Has() Dim my_rg As Range Dim Main As Worksheet Dim Cont%: Cont = Sheets.Count If Cont = 1 Then Exit Sub Set Main = Sheets("الخلاصة") On Error Resume Next Main.Cells.ClearContents On Error GoTo 0 Dim NUM%: NUM = 1 Dim i%, x%: x = 1 Dim arr_sh() Dim const_arr(1 To 3) const_arr(1) = "رقم القائمة": const_arr(2) = "عدد أسماء القائمة" const_arr(3) = "مبلغ القائمة" For i = 1 To Cont If Sheets(i).Name = "الخلاصة" Then _ GoTo NexT_i If IsError(Application.Match("الاسم", Sheets(i).Range("B:B"), 0)) _ Then GoTo NexT_i ReDim Preserve arr_sh(1 To NUM) arr_sh(NUM) = Sheets(i).Name NUM = NUM + 1 NexT_i: Next For i = 1 To UBound(arr_sh) Main.Cells(1, x) = arr_sh(i) Main.Cells(2, x).Resize(, 3) = const_arr x = x + 4 Next get_data Erase arr_sh: Erase const_arr End Sub Rem ========================== Rem form here start a new Macro Rem========================= Sub get_data() Dim Prince_sh As Worksheet Set Prince_sh = Sheets("الخلاصة") Dim last_col%, my_st$: my_st$ = "قائمة رقم " Dim i%, last_row%, m%: m = 4 Dim k%, XX%, t%: t = 1 Dim target_sh As Worksheet Dim temp As Range last_col = Prince_sh.Cells(1, Columns.Count).End(1).Column For i = 1 To last_col Step 4 Set target_sh = Sheets(Prince_sh.Cells(1, i) & "") last_row = target_sh.Cells(Rows.Count, 1).End(3).Row For k = 2 To last_row If target_sh.Cells(k, 2) <> "الاسم" And target_sh.Cells(k, 2) <> vbNullString Then If temp Is Nothing Then Set temp = target_sh.Cells(k, 2) Else Set temp = Union(target_sh.Cells(k, 2), temp) End If End If Next If temp Is Nothing Then GoTo My_Next For XX = temp.Areas.Count To 1 Step -1 Prince_sh.Cells(m, i) = my_st$ & t Prince_sh.Cells(m, i + 1) = Application.CountA(temp.Areas(XX)) Prince_sh.Cells(m, i + 2) = Application.Sum(temp.Areas(XX).Offset(, 9)) m = m + 1: t = t + 1 Next My_Next: Set temp = Nothing: m = 4: t = 1 Next End Sub My_Last_File.xlsm

مجهود وافر لكن البرنامج يحتاج تنقيح

اتفضل جرب والشرح ان كان هذا ما تريد بعد التجربة وان كان هذا ما تريد لا تنسي الدعاء الوفير لاستاى الجليل ومعلمى القدير الاستاذ @jjafferr والله اهدانى هذا الكود فى يوم من الايام دون ان اطلبه حتى كنت اسال عن شئ وكتبت كود كبير جدا ومطول لاصل لمبتغاى بعد ان توصلت لاجابة على سؤالى والذى لم يكن له علاقة تقريبا بهذه الطريقة وبهذا الكود اهدانى اياه معلمى حتى لا يكون الامر شاقا على بكتابة الكثير من الاكواد لاصل لهذه النتيجة اسأل الله تعالى ان يرزقه عن كل حرف كتبه ليعلم به حسنه واسال الله تعالى ان يضاعفها بكرمه وجوده الى اضعافا لا تحصى ولا تعد يارب العالمين فتثقل ميزان اعماله فيترتقى اعلى درجات الجنان يارب العالمين شقق ومخازن ايجارات - Copy.accdb توضيح فقط لم ارد جلب البيانات اصلا مرة اخرى لاننى بالفعل املكها فى احد الجداول لماذا اجلبها وحمل القاعدة ببينات تتكرر من الاساس

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

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

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

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

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

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

اولا قبل اى شئ ننتظر منكم مرفقا بالمكان الصحيح والمكان الصحيح لنتعلم

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

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

السلام عليكم ورحمة الله وبركاته عذرا لم انتبه للامر وشكر لخلقكم وادبكم ودعائكم مرفق الملف مع التعديل غذا ان شاء الله تعالي ساقوم بالتعديل على الفصل الثاني ان لم تكن اي ملاحظات على هذا الملف لك اجمل التحايا والتقدير احصائيةالفصل 3الدراسى الأول 2019_3.xls

اضافات للفائدة تستطيعون تطبيق الفكرة على برامجكم dlookup.accdb

السلام عليكم 🙂 اريدكم تشوفوا هذا المثال ، ولو انه يدوي ، ولكنه يعطي الفكرة 🙂 وبعدها ، ممكن نعمله تلقائي على حدث "الحالي" للنموذج 🙂 جعفر 1075.10-09.mdb

كود رائع استاذ مصطفى لكن يمكن تخفيف الحلقات التكرارية 6 مرات في كل صف (بازالة الحلقة التكرارية j ) التي لا لزوم لها بذلك ننقل البيانات صفاً بعد صف وليس خلية بعد اخرى في كل عامود (تخيل عندنا 500 عامود الحلقة اللازمة لــ j من 1 الى 500) Private Sub Worksheet_Change(ByVal Target As Range) With Application .Calculation = xlCalculationManual .ScreenUpdating = False .EnableEvents = False End With If Target.Address = "$B$4" Then ورقة2.Range("A7:F55") = "" k = 7 LR = Sheets(1).Range("C" & Rows.Count).End(xlUp).Row For i = 24 To LR If ورقة2.Range("B4") = ورقة1.Range("c" & i) Then ورقة2.Cells(k, 1).Resize(, 6).Value = _ ورقة1.Cells(i, 4).Resize(, 6).Value k = k + 1 End If Next End If With Application .Calculation = xlCalculationAutomatic .ScreenUpdating = True .EnableEvents = True End With End Sub

بس للتوضيح انا بالكود او بالاستعلام فى طال الحالتين نعتمد على الاستعلام ولكن بغض النظر عن كونط تريد نسخ بيانات من عدد 11207 سجل وفى كل سجل 8 حقول تقريبا انت تمرر بيانات جدول الحركات والذى يساوى عدد 14267 سجل الى استعلام اعمار1 والذى يقوم بعمل SUM لبعض الحقول يمكن ان نتغاضى عما سبق ولكن لاحظ الاتى الدائن: Nz([مجموع المرتجعات],0)+Nz([مجموع الخصم],0)+Nz([مجموع الدفعات],0 يجب ان تتم هذه العملية الحسابية اولا قبل نسخ قيمة الحقل وكذلك x1: Nz(DSum("المدين","اعمار2","[اسم العميل]='" & [اسم العميل] & "' وكذلك x2: Nz(DSum("الدائن","اعمار2","[اسم العميل]='" & [اسم العميل] & "'"),0) وايضا الباقى: IIf([x1]-[x2]<=0,0,IIf([x1]-[x2]>=[المدين],[المدين],[x1]-[x2])) واخيرا ايام التاخير: DateDiff("d",[التاريخ],Date()) ياله من كم هائل من المعادلات الحسابية المعقدة والتى تتم لكل حقل على حده سم اضف ما قد تغاضينا عنه سالفا الموضوع ليس بتقصير من الاكسس فى الاستعلامات بينما هو كم التعقيدات وكم عدد السجلات التى لابد من معالجتها انظر لترى ما يحدث فى المرفق التالى قمت بعمل كود يقوم بعمل لوب داخل الاستعلام لنسخ قيمة كل حقل منفرده الى الحقل الذى يقابلها فى الجدول وحاولت اظهار ما يتم معالجته اصناء العمل على النموذج انظر InsertTest.accdb

ايش هذا هنق البرنامج

من المعروف اصطلاحات REGULAR EXPRESSION تستخدم للغة الانكليزية لكن يمكن تطويعها للعمل باللغة العربية\ اليكم هذا المثال Option Explicit Sub Separate_Arabic_Word_Using_regex() Dim obj As Object Dim i%, m%, k% Dim Matches m = 2: k = 4 Set obj = CreateObject("vbscript.regexp") With obj .Pattern = "[\u0621-\u064A]+" .Global = True End With Range("A4").CurrentRegion.Offset(, 1).ClearContents Do Until Range("a" & k) = vbNullString Set Matches = obj.Execute(Range("a" & k)) If Matches.Count > 0 Then For i = 0 To Matches.Count - 1 Cells(k, m) = Matches(i) m = m + 1 Next End If m = 2 k = k + 1 Loop End Sub '[\u0621-\u064A]+ pattern (for arabic language) '.Pattern = "\b\w+\b" pattern (for Eng language) للايضاح الملف مرفق SEPARETE_NAMES_BY_REGEX.xlsm

تشغيل الصوت بزر.rar

اخي العزيز الامر جدا بسيط اولا : اذا كنت تريد ان يعمل الصوت بالضغط على زر معين اذهب الى (عند النقر في حدث ) وقم بتغيبر اسم الملف ringin الى اي اسم تريده ويجب ان يكون امتداده wav Private Sub أمر4_Click() Playsound (Application.CurrentProject.Path & "\ringin.wav") End Sub ثانيا: اذا كنت تريد ان يعمل الصوت اثناء فتح النموذج ضع عند الفتح بالنموذج وقم بتغيبر اسم الملف ringin الى اي اسم تريده ويجب ان يكون امتداده wav Private Sub Form_Open(Cancel As Integer) Playsound (Application.CurrentProject.Path & "\ringin.wav") End Sub وهذا ملف فيه ثلاث نغمات مختلفة ( اخي فقط غير اسم الملف بجانب قاعدة البيانات وغيره في الكود تشغيل الصوت بزر.rar

ملفين اخرين لتشغيل الصوت عند فتح النوذج اعلمنا النتائج اخي الكريم تشغيل الصوت عند فتح النموذج.rar تشغيل الصوت بدون اظهار رسالة.rar

السلام عليكم وضعت لك زر امر لتشغيل ملف صوتي نوع wav تشغيل الصوت بزر.rar

أخي الكريم المفترض انت من يضع المثال للتعديل عليه . لكن انظر المثال .... حاول التعديل على النموذج ثم قم بالتحديث ولاحظ الفرق Ka-Update.rar

السلام عليكم ورحمة الله وبركاته .... طاب مسائكم اريد تصدير جميع جداول قاعدة خارجية الى قاعدة خارجية أخرى من خلال قاعدة ثالثة ....... ولكم الشكر سلفا ... المرفق يوضح المطلوب اكثر . kanory.rar

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

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

هذا تجميع لأهم الدروس والمواضيع المميزة بالمنتدى ضم روابط المواضيع المثبتة من أعمال معلمينا الفضلاء ومبدعينا في صفحة واحدة .. وذلك من باب التجديد والتغيير وإعطاء مساحة اكبر للمواضيع المتجددة .. *********************************************************************** أولا : توجيهات للأعضاء الجدد في المنتدى ثانيا : طلب من جميع الخبراء وجميع الاعضاء النشطاء الذين يتصدون للحلول وإجابة السائلين *********************************************************************** القسم الأول : الجداول والاستعلامات: الاستعلام الجدولي والمعايير تعامل-مع-ملفات-الاكسل-عن-طريق-الاستعلام-،-وبدون-كود-،-عن-طريق-استعلام-مسقط/ سِحر-جداول-الاكسس-في-تسجيل-الوقائع-عن-طريق-tables-data-macro/ القسم الثاني : النماذج: شرح أداة WebBrowser 1 2 شاشة انتظر من فضلك !! | سلسلة مهارات في أكسس | 06 | توسيط النماذج داخل النافذة أو الإطار طريقة إبداعية لتغيير خلفيات جميع النماذج إعادة تسمية العناصر الكثيرة دفعة واحدة في النموذج بأسماء متسلسلة مثل : ( Box2 , Box1 , ... ) ⭐ كيف تغير اللغة في برامجك ⭐ ✨💻 صفحة رئيسية متطورة بقائمة جانبية وأزرار فرعية ⭐ التحكم الكامل فى واجهة اكسس ( تصغير بجوار الساعة - توسيط - اخفاء - تغيير أيقونة شعار أكسس ) فصل الارقام مثل (الرقم القومى/الهوية) - الرقم التآمينى .. الخ القسم الثالث : التقارير: مسقط التقارير او صانع التقارير انشاء شريط طباعة للتقرير القسم الرابع : الماكرو والوحدات النمطية VBA: إنشاء دروس VBA أكسس كشكول VBA ترجمة النصوص وتحويلها إلى صوت في vba باستخدام جوجل دالة لحساب أيام الحضور والغياب .. وفكرة عد القيم النصية في حقول السجل الواحد :: اجعل برنامجك يعمل على النواتين 32بت و 64بت اجعل برنامجك يعمل على النواتين 32بت و 64بت _ طريقة ثانية دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) دوال عامة وافكار مختلفة ( FileDialog ) دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) دوال عامة وافكار مختلفة ( FileDialog ) (ImmediateWindowHelper) تفقيط عام متعدد : تحويل الارقام وقيمة ارقام العملة أو ( عملات متعددة ) الى نص مع التفقيط باللغة العربية ولغة اخرى منتقى التواريخ "Date pickers" إصدار-جديد-فكرة-بسيطة-لطباعة-أو-إظهار-رسائل-بنتائج-الأكواد-مع-إمكانية-التفعيل-والتعطيل/? التحكم-الكامل-فى-واجهة-اكسس-تصغير-بجوار-الساعة-توسيط-اخفاء-تغيير-أيقونة-شعار-أكسس/ ⭐متعقب-التغييرات-الذكي-2024⭐ اداة البحث المتعددة الوظائف مُطَهَّرُ النُّصُوصِ الْعَرَبِيَّةِ ( ازالة المسافات الزائدة و التشكيل و تنظيف النصوص - و توحيد الاشكال المختلفة للأحرف ) مُطَهَّرُ النُّصُوصِ الْعَرَبِيَّةِ الاصدار 2 ( ازالة المسافات الزائدة و التشكيل و تنظيف النصوص - و توحيد الاشكال المختلفة للأحرف ) أتمتة عمليات الضغط وفك الضغط للملفات و المجلدات (WinRAR / Seven Zip ) تنفيذ الأوامر والملفات في بيئة Windows مع تحكم دقيق في العمليات القسم الخامس : قواعد البيانات SQL وما يتعلق بها: أكسس و اسكيوال سيرفر Access with Sql Server الأكسس و SQL جُمل SQL مشاركة قاعدة البيانات على الانترنت بواسطة SQL Server [تطبيق] تحويل قاعدة بيانات اكسس الى SQL Server (الجزء الاول _ الجزء الخامس) ربط الاكسيس ب php القسم السادس : البرامج والأدوات والإضافات: إدارة الجداول المرتبطة ، أداة وشروحات نظام مراسلة واشعارات شبيه بالفيس بوك معالج بحث وتصفح مسقط التصفح كارنيهات باستخدام باركود ماتركس - QR code محاكاة برنامج واتساب بالاكسس .. هدية لاوفيسنا القائمة المختصرة - Shortcut menu ارسال رسائل whatsapp (وتساب) بدون حفظ الرقم رسائل whatsapp (وتساب) في اكسس رسائل whatsapp (وتساب) بدون حفظ الرقم ( الكاتب الذكي لدوال المجال في أكسس Dloockup, DCount, DMax, DMin, Dfirst, DLast , DSum, DAvg) ⭐⭐(( مكتبة الأكواد الخاصة )) :: الإصدار الثاني 2.0 ⭐⭐ ، /// ، مكتبة الأكواد الخاصة | سلسلة هدايا الأكسس | 04 | 🎁 - 📟 آلة حاسبة 📟 - هدية مميزة مفتوحة المصدر 🎁 🖌️✏️👨😉🧑‍💻 ... برنامج دردشة بين المستخدمين على الشبكة ... 👨‍💻🧑‍💻✍️😊✏️🖊️ 🎁 :: هديتي لكم :: 🌷📨 >> برنامج مرسال الواتسأب - مع المرفقات - << ✉️ 🙂🌷💌 🎁 :: مرسال الواتسأب :: 📨 :: الإصدار الثاني 2.0 :: مطور :: 🧬🏹 🎁 هدايا الأكسس ✨ | 03| زاد المثابر للحصول على أسماء العناصر في أكسس | أداة رائعة للمطورين 🧛🏻‍♂️ [الاصدار الثاني] ارسال رسائل جماعية لعدد x من المستخدمين على الواتس اب في الاكسس هدية: برنامج تصدير بيانات من جداول/استعلامات اكسس الى اكسل ، 32بت و 64بت هداء لكم برنامج بسيط للديون والسداد 🟢 واتساب ويب web.watsapp 🟢 هدية : تصدير كائنات دفعة واحدة الى قاعدة أخرى أو حسب إختيارك 🧮 الكاتب الذكي لدوال المجال |::| 📜 نسخة مطورة ومحدثة |::| 😊 الإصدار الثاني 2.0 ⭐ كيف تغير اللغة في برامجك ⭐ اختيار صورة من (Shell32.Dll) وحفظها بمجلد وبجدول وعرضها ⭐طريقة ابداعية للتحديث من خلال الانترنت⭐ ⭐تغيير لغة النظام في Unicode⭐ القسم السابع : الأفكار والنصائح والتوجيهات: مواضيع مهمة .. قراءة وتفكيك بيانات الحقل الى حقول تطبيقات وأفكار وتلميحات تخفيض امان windows وتسجيل المكتبات عند تنصيب البرامج هام لمطورى ومصممى قواعد البيانات إنتبهوا حتى لا تواجهوا مشاكل مع العملاء خلاصة الأقوال .. حول مسائل الحماية 🔒🔑💪🏻 القسم الثامن : مواضيع متنوعة: ملف للبحث عن المواضيع في هذا المنتدى بعض المواضيع المتميزة والمهمة ( 8 ) الحماية برقم القرص الصلب والمعالج واللوحة الأم شرح أكسس 2003 - 2007 - 2010 - 2013 ( صوت وصورة ومرفقات ) رفع نسخة احتياطية على السحابة (google drive) ::💡 أفكار وفوائد 💡:: أسهل طريقة لعمل مربعات صح ✔ أو خطأ ✘ بالحجم واللون الذي تريده ❌☑️✔️✅❎ ⭐⭐ طريقة إبداعية لتحديث نسخة الواجهات FE 🖥️ لدى المستخدمين بدون برامج أو أدوات خارجية 😊👌⭐⭐ رمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية: ------------------------------------------------------ 1. https://www.officena.net/ib/topic/112126-موضوع-مهم-للنقاش-ماهو-مستقبل-الاكسس-بعد-تطبيق-المرحله-الثانيه-للفاتوره-الاكترونيه/ 2. الموضوع والمرفقات النهائية لرمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية 3. https://www.officena.net/ib/topic/112589-مكتبة-الموقع-الفاتورة-السعودية-المبسطة/ --------------------------------------------------------------------------------------------------------------------------------------------------------------- القسم التاسع : الدروس والشروحات والمشاريع : طريقة /اضافة صوت للاكسس مع التحكم فى (الايقاف/التشغيل) للصوت تصميم قاعدة بيانات احترافيه لإدارة يوميات وشئون العاملين