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

في البدية قم بالتصريح عن المكتبات التالية في بداية النموذج Option Explicit Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Const KEYEVENTF_KEYUP = &H2 وفي كود الزر ضع : 'مثلا أنت تريد Win+M keybd_event 91, 0, 0, 0 keybd_event 77, 0, 0, 0 DoEvents keybd_event 91, 0, KEYEVENTF_KEYUP, 0 keybd_event 77, 0, KEYEVENTF_KEYUP, 0 DoEvents

بل يعمل يا د. محمد ولكن قبل ذلك نوضح الاتي خاصية منبثق نعم مشروط لا " يعمل الكود بدون مشكله " ------ منبثق نعم مشروط نعم " لن يعمل الكود " لكون الخاصية مشروط تعني تعطيل اي نافذة اخرى الى ان تغلق النموذج المشروط اخيرا اذا كنا نرغب في منبثق نعم ومشروط نعم ويعمل الكود هنا يتطلب الامر ان نعطل خاصية مشروط عند تنفيذ الامر فقط لذا ممكن وضع الامر التالي في بداية الكود لزر الامر Dim k As Boolean: Forms("form1").Modal = False ليصبح الكود ⬇️ Dim k As Boolean: Forms("form1").Modal = False keybd_event 91, 0, 0, 0 keybd_event 77, 0, 0, 0 DoEvents keybd_event 91, 0, KEYEVENTF_KEYUP, 0 keybd_event 77, 0, KEYEVENTF_KEYUP, 0 DoEvents تحياتي الملف مرفق مع الشكر للاستاذة لميا WIn+M_Lamyaa(1).accdb

وهذا مثالWIn+M_Lamyaa.accdb

لمعالجة هذه السبب أنت بين خيارين. الأول. أن تلغي الإشارة إلى الغرض IHTMLElement الثاني أن تضيف إلى قائمة المراجع المكتبة التي ينتمي إليها الغرض كما في الصورة ملاحظة: المكتبة باللون الأصفر يأشر عليها تلقائيا عند إضافة عنصر التحكم WebBrowser، لكنها تلغى عند حدوث القص واللصق.. ولذا يبغي أن تتأكد من أنه مؤشر عليها.. هتان المكتبتان من المكتبات الأساسية في ويندوز ويندر جدا أن لا تكون متوفرة، وبناءً عليه يجب عدم القلق بشأن توفرها عند نقل التطبيق إلى جهاز العميل.. تعليمى.mdb

طيب جرب الملف والتعديلات الموجوده بها واعلمنا بالنتيجة <><><><><><><> BOOK (2).accdb

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

أهلا @محمد احمد لطفى لا يخفى أن مستندات هتشمل HTML مبنية على وسوم مترابطة هرمياً، وأن لهذه الوسوم رتب في هذا الهرم، وهي الآباء والأبناء والإخوة، وهذه الرتب قد تتداخل في بعضها البعض.. والمقصود من هذه التقدمة هو تسهيل الوصول إلى البييانات المضمنة داخل هذه الوسوم بطريق سهلة ومبسطة.. يمكن الوصول إلى البيانات بأحد الخصائص التالية Dim Tag,Class,Name,Id With WebBrowser1.Document ' أكثر هذه الخصائص تحديد Id=.getElementById("...") ' أقلها اتساعا وأقربها تحديدا For Each Name in .getElementsByName("...") Name Next ' تتوسع أفقيا أي في رتبة الأخوة For Each Class in .getElementsByClassName("...") Class Next ' أكثرها إنتشار For Each Tag in .getElementsByTagName("...") Tag Next end with أغلب هذه الخصائص تعيد مصفوفة غرضية ماعدا الأولى منها... نأتي على تطبق هذا على قاعدة البيانات Private Sub أمر11_Click() Dim el As IHTMLElement Dim t For Each el In WD.getElementsByClassName("spaceit_pad") t = Split(el.innerText, ":") Select Case t(0) Case "score" Me.Score = t(1) Case "rating" Me.Rating = t(1) Case "genres" Me.Genres = t(1) Case "theme" Me.Theme = t(1) End Select Next End Sub أرجو أن يكون بإمكانكم اكتشاف طريقة معالجة البيانات..

تفضل <><><><><> Database3133.rar

بالنسبة إلى زر الويندوز KeyCode = 91

طيب تفضل جرب المرفق التالي حسب فهمي للموضوع <><><><><> BOOK (2).accdb

السلام عليكم ورحمة الله تعالى وبركاته الاكواد تعتمد على احد دوال ال API للويندوز وتم مراعاة العمل على كلا من النسختين 32 , 64 بيت الكود الاول فى راس الموديول وذلك لاحضار تنسيق تاريخ الجهاز Private Const LOCALE_USER_DEFAULT = &H400 Private Const LOCALE_SSHORTDATE = &H1F ' short date format string Private Const LOCALE_SLONGDATE = &H20 ' long date format string Private Const strTblFormatDate = "tblDateFormatWindows" #If VBA7 And Win64 Then Private Declare PtrSafe Function _ GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" _ (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long #Else Private Declare Function _ GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" _ (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long #End If Public Function GetDateFormatMyWin() Dim strLocale As String Dim lngRet As Long Dim strMsg As String strLocale = Space(255) lngRet = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, strLocale, Len(strLocale)) strLocale = Left(strLocale, lngRet - 1) GetDateFormatMyWin = strLocale End Function الكود الثانى التأكد من وجود جدول لحفظ تنسيق تاريخ الجهاز Function ifTableExists(tblName As String) As Boolean If DCount("[Name]", "MSysObjects", "[Name] = '" & tblName & "'") = 1 Then ifTableExists = True End Function الكود الثالث جلب البيانات لتسيق تاريخ الجهاز الذى تم حفظه بالجدول Public Function DateFormatwinSaved() As String DateFormatwinSaved = Nz(DLookup("DateFormatWindows", strTblFormatDate), "") End Function الكود الرابع تغيير تسيق التاريح لجهاز الحاسوب ولكن اولا تخزين القيم الاصلية لتنسيق تاريخ الحاسوب داخل جدول لمن يريد استرجاع التسيق الاصلى مرة اخرى Public Function ChnageDateFormat(Optional dtDateFormat As String = "dd/MM/yyyy") If GetDateFormatMyWin() = dtDateFormat Then Exit Function Else Dim mySQL As String If ifTableExists(strTblFormatDate) = False Then DoCmd.SetWarnings False mySQL = "CREATE TABLE " & strTblFormatDate mySQL = mySQL & "([ID] counter," & "[DateFormatWindows] text," & "CONSTRAINT [Index1] PRIMARY KEY ([ID]));" DoCmd.SetWarnings False: DoCmd.RunSQL mySQL: DoCmd.SetWarnings True mySQL = "INSERT INTO " & strTblFormatDate mySQL = mySQL & "( DateFormatWindows )" mySQL = mySQL & " SELECT " mySQL = mySQL & " ('" & GetDateFormatMyWin() & "') " DoCmd.SetWarnings False: DoCmd.RunSQL mySQL: DoCmd.SetWarnings True ElseIf ifTableExists(strTblFormatDate) = True Then If DCount("*", strTblFormatDate) = 0 Then mySQL = "INSERT INTO " & strTblFormatDate mySQL = mySQL & "( DateFormatWindows )" mySQL = mySQL & " SELECT " mySQL = mySQL & " ('" & GetDateFormatMyWin() & "') " DoCmd.SetWarnings False: DoCmd.RunSQL mySQL: DoCmd.SetWarnings True ElseIf DCount("*", strTblFormatDate) > 0 Then mySQL = "UPDATE " & strTblFormatDate mySQL = mySQL & " SET " & strTblFormatDate mySQL = mySQL & ".DateFormatWindows = " & Chr(34) & GetDateFormatMyWin() & Chr(34) & ";" DoCmd.SetWarnings False: DoCmd.RunSQL mySQL: DoCmd.SetWarnings True End If End If Shell "cmd.exe /c REG ADD ""HKEY_CURRENT_USER\Control Panel\International"" /v sShortDate /d """ & dtDateFormat & """ /F", vbHide End If End Function الكود الاخير ارجاع التنسيق مرة اخرى للحاسوب والذى تم الاحتفاظ به داخل الجدول Public Function ReturnOldDateFormatWin() If GetDateFormatMyWin() = DateFormatwinSaved() Then Exit Function Else Shell "cmd.exe /c REG ADD ""HKEY_CURRENT_USER\Control Panel\International"" /v sShortDate /d """ & DateFormatwinSaved & """ /F", vbHide End If End Function طيب فى النهاية يفضل استخدام ماكرو AutoExec والذى وظيفته تنفيذ إجراء او اجراءات معينة في كل مرة تبدأ فيها تشغيل قاعدة بيانات Access وفى الماكرو من خلال RunCode نكتب اسم الوظيفة التى نريد استدعاؤها وهى ChnageDateFormat() الان عند تشغيل القاعدة يتم فحص تنسيق تاريخ الجهاز وان كان مساويا للتنسيق الموجود فى الفانكشن ChnageDateFormat والذى وضعته افتراضيا من خلال Optional dtDateFormat As String = "dd/MM/yyyy" يتم تجاهل الامر وفى حالة الاختلاف يتم تغيير تنسيق تاريخ الجهاز الى هذا النسيق الذى تم الاعلان عنه فى رأس الوظيفة dd/MM/yyyy ولاضفاء المرونة قمت بتعريف متغير التنسيق على انه اختيار ووضعت الاختيار المفضل dd/MM/yyyy فى حالة اردتم تغيير التنسيق الى تنسيق أخر مثلا yyyy/MM/dd كل ما عليكم هو استدعاء الوظيفة فى الماكرو بالشكل الاتى ChnageDateFormat("yyyy/MM/dd") ان شاء الله بهذا الكود لن تواجهوا مستقبلا مشاكل اختلاف تنسيق التاريخ فى دوال المجال ولا اخطاء فى تسجيل التواريخ .. بلا ..بلا ..بلا.................... الخ الخ طيب لو اردتم ارجاع التنسيق الافتراضى الذى كان قبل ذلك والذى احتفظنا به فى الجدول كل ما عليكم هو استدعاء الوظيفة الاتية عند الاغلاق لقاعدة البيانات ReturnOldDateFormatWin() انتهى الشرح ارجوا لكم تجربة الاستمتاع بتلك الافكار وهذه التجربة الافكار والاكواد وطرح التصور حصرى من بنات افكارى وانا مجهد جدا جدا جدا قد يمكن اختصار الاكواد واختزالها ولم انتبه لذلك مثلا من شدة الارهاق فلا تؤاخذونى فى ذلك .. و ليدلوا كل بدلوه فى ذلك الامر ... تم التجربة على ويندوز 10 - 64 بيت ولا ادرى هل يعمل على باقى واختلاف نسخ الويندور ام لا انتظر الرد من حضراتكم بنتائج تجاربكم ووضع اقتراحاتكم

كنت قبل ذلك قد ذكرت عدة أكواد من حروف البدل أستخدمها في البحث والاستبدال، والآن أضفت عدة أكواد جديدة، أحببت أن أنشرها هنا للفائدة: • البحث عن كلمة أولها (ال) وآخرها (تنوين) <ال[! ]@[ًٌٍ]> • كلمة أولها (ال) وآخرها (ون) ليس بعدها (فتحة) ال[! ]@(ون)[!َ]> • البحث عن أي كلمة أو رمز، أو رقم: <[! ]*> • البحث عن أي كلمة، وهي تصلح في عمل الماكرو: <[أ-ىيئءؤءاإًٌٍَُِّْ]@> • أو: <[أ-يًٌٍَُِّْ]@> • البحث عن أي كلمة: <[أ-ي]@> • البحث عن أي كلمة: <[! ]@> يكتب قبلها كلمة عند البحث والاستبدال لأنها تبطئ الماكرو، وربما تهنج الورد. • البحث عن أي كلمتين: <[! ]@> <[! ]@> • البحث عن أي كلمتين الأولى تبدأ بهمزة، والثانية تنتهي بتاء مربوطة: <أ[! ]@> <[! ]@ة> • البحث عن أي كلمتين الأولى آخرها ألف، والثانية تنتهي بالألف: <[! ]@ا> <[! ]@ا> • البحث عن كلمتين متتاليتين مكررتين: (<* ){2} ، ويمكن البحث بـ{3، 4} أو <([أؤئإءيا-ى]@)> \1> • البحث عن كلمتين، أو عددين، أو جملتين متتاليتين مكررتين بينهما فاصلة: (<*>)، \1 • البحث عن جملتين متتاليتين مكررتين: (<*>) \1 • ولحذف الكلمة أو الجملة المكررة نضع في مربع الاستبدال: \1 • البحث عن أي كلمتين أو حرفين أو رقمين متتاليين متطابقين: (<*){2} • البحث عن أي رقمين متتاليين بينهما فاصلة مثل 22، 22، ويمكن بـ{3، 4}: (<*){2}، (<*){2} • البحث عن فقرتين متتاليتين متطابقتين: (*^13)\1 • البحث عن ثلاث فقرات متتالية متطابقة: (*^13)\1\1 • البحث عن فقرة قبلها فقرة فارغة وبعدها فقرة فارغة: ^13{2}([!^13]@^13)^13 • البحث عن فقرة قبلها فقرة فارغة: ^13{2}([!^13]@^13) • البحث عن فقرة قبلها أو بعدها فقرة فارغة: ^13{2}([!^13]@) • ولحذف هاتين الفقرتين الفارغتين ضع في خانة الاستبدال: ^p<H1>\1 • البحث عن الفقرات المكررة بشكل متتالي: (*^13)(\1)@ • البحث عن فقرة عن طريق حروف البدل: ^13 • البحث عن فقرة قبلها أي حرف عن طريق حروف البدل: >^13 ، وبعدم اعتبار المسافة آخر الفقرة: >^13* • البحث عن أي فقرة إلى كلمة (في) مثلا للتظليل: <[! ]*في> • تحديد ما بين الفاصلتين: ، <[! ]*>، • تحديد ما بين كلمتين مثل: عن <[! ]*> عن • البحث عن أي كلمة مكونة من حرفين: <[! ]@{2}> • البحث عن أي كلمة مكونة من حرفين آخرها تنوين: <[! ]@{2}[!ًٌٍ]> البحث عن كلمة خمس حروف ليس منها علامات الضبط: <[! ]@{5}[ًٌٍَُِّْ]> • للبحث عما بين قوسين هلاليين: (\(*)\) أو \(?@\) • للبحث عما بين معقوفين: \[?@\] • للبحث عن أي رقم دون الحروف: [0???-9] • للبحث عن أي كلمة دون الأرقام: <[أ-ى][! ]@> • للبحث عن أي رقمين بينهما فاصلة: [0???-9]، [0???-9] • للبحث عن الحروف والأرقام دون المسافات وعلامات الترقيم: [أ-ي0-9] • لتحديد ما بين شرطتين مائلتين: / [???0-9]*/ • البحث عن الحاشية السفلية مع حروف البدل: ^2 • لجعل علامة الحاشية بين قوسين: في مربع بحث اكتب الآتي ^f وفي مربع استبدال اكتب (^&) وهذا الكود يعني أن المكتوب في خانة البحث يساوي المكتوب في خانة الاستبدال، فيمكن استخدامه مع أي حرف وأي رقم، حيث الاستبدال لا ينفع مع أي حرف وأي رقم، لكن بإضافة هذا الكود يصبح الاستبدال متاحا. • للبحث عن أي رقم بعده صفر (0) بعده سلاش (/) على صورة (08/): 0^#/

عليكم السلام ورحمة الله وبركاته حسب فهمي للمطلوب جرب تغيير هذا السطر For Cell = startRow To .Range(myArray(x) & startRow).End(xlDown).Row Step 2 إلى For Cell = startRow To .Range(myArray(x) & Rows.Count).End(xlUp).Row Step 2 بالتوفيق

مشاركة مع استاذي @kanory تفضل ....... BOOK (2).accdb

مع اني اشرت في ردي السابق مع ذلك تحقق الشرط الاول ونتجاوز عن الثاني الان الفكرة الاولى ان يكون اضافة الجهد من خلال قائمة منسدلة بالاشهر ولا علاقة لنا بالجهد 400 او 500 او مايكون ثم نعمل استعلام يكون مصدر للنموذج وفي هذا النموذج نفلتر بالشهر او بالشهر والجهد او بالجهد فقط ومرفق ملف بهذه الطريقة الطريقة الثانية بدون استخدام اكواد وبدون الحاجة الى جدول sd اي ان البيانات تبقى في جدول the main وبدل من جدول sd وكود الاضافة نعمل استعلامين الاول استعلام توحيد والثاني استعلام عادي يكود مصدر للنموذج وايضا يمكن الفلترة بالشهر او بالشهر والجهد او بالجهد فقط ومرفق ملف بهذة الطريقة تحياتي Database20.accdb Database211.accdb

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

هل لابد ان يكون inputbox ممكن عمل ذلك بشكل نموذج ....... اذا كان لابد inputbox هناك اعتقد في المنتدى موضوع للتحكم في رسائل الاكسس ... ابحث عنه

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

هل تريدها بهذا الشكل ....................

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

هذا الكود بارك الله فيك من شقين : الاول : DoCmd.RunSQL "DELETE Tb_StatAbandons.ID FROM Tb_StatAbandons;" ووظيفته تفريغ الجدول Tb_StatAbandons من البيانات الاحصائية السابقة والثاني : DoCmd.RunSQL "INSERT INTO Tb_StatAbandons ( niveau, NbrTotaleEleves, MalKhanouni, FemKhanouni, FemTilkhai, MalTilkhai, Etablissement ) " & _ " SELECT Tb_donnéesEleveArchives.niveau, Count(DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] =[niveau]"")) AS TOT, DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =2 And [sexe] =1 "") AS MAN1, DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =2 And [sexe] =2 "") AS WOM1, DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =1 And [sexe] =2 "") AS WOM2, DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =1 And [sexe] =1 "") AS MAN2, Tb_donnéesEleveArchives.niveau AS D " & _ " FROM Tb_donnéesEleveArchives " & _ " GROUP BY DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =2 And [sexe] =1 ""), DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =2 And [sexe] =2 ""), DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =1 And [sexe] =2 ""), DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =1 And [sexe] =1 ""), Tb_donnéesEleveArchives.niveau, Tb_donnéesEleveArchives.niveau;" وهو عبارة عن كود استعلام لجلب البيانات الاحصائية المطلوبة من الجدول Tb_donnéesEleveArchives والحاقها في الجدول Tb_StatAbandons في كل مرة تضغط فيها على موافق تتم مسح البيانات من الجدول ثم الحاق البيانات من جديد ... >>>>>>>>>>>>>>>>>>>>>

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

وعليكم السلام أخي عبد القدوس 🙂 وجدت لك هذا الكود .. ولم أجربه .. لعله يفيدك : '***************************************************** '****************SELECTING A FILE LOCATION**************** '***************************************************** 'ATTENTION: YOU MUST go to Tools->References and select 'Microsoft Office X.X object Library' for 'the FileDialog function to work properly Dim retFile As String, dlg As Variant, s As String Set dlg = Application.FileDialog(msoFileDialogFilePicker) With dlg 'This is the title of the browser window you will use to select the file path. .Title = "Select a Latitude Longitude Snapshot File" .AllowMultiSelect = False ' Name and select the file type. *.* will show all file types .Filters.Add "Snapshot files", "*.html" ' The initial file name can be anything you choose, the example below will start you at the root of your "C" drive ' .InitialFileName = "c:\" If .Show = -1 Then s = .SelectedItems(1) End With If s <> "" Then '*** retFile stores the full path to the selected file *** retFile = s End If '*** Linking the Acess DB to the HTML datasheet *** '*** Once the link is complete, it will display in access as a table. Following we declare a tab name. *** Dim tabName As String tabName = "LatLon" DoCmd.TransferText acLinkHTML, , tabName, retFile, -1 :: المصدر ::

جرب الملف واعلمنا بالنتيجة ....... KAN_Database31.rar

اخي الكريم حتى لا تزعل من عدم الرد ..... كيف يتم التفريق بين : بقرار من مجلس التربية ( الانقطاع القانوني ) انقطاع تلقائي لكي تكون الاحصائية صحيحة ..... اين حقل الانقطاع في الجدول لديك .... انظر الصورة ::::::

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

تفضل كيفية إضافة توقيع في Outlook 8 نموذج لتوقيع بريد الكتروني مهني

السلام عليكم 🙂 واصبح البرنامج مستعد يأخذ اي عدد 🙂 وبواجهة جديدة : . . جعفر 1158.2.mdb.zip