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

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

السلام عليكم ورحمة الله تعالى وبركاته الاكواد تعتمد على احد دوال ال 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 بيت ولا ادرى هل يعمل على باقى واختلاف نسخ الويندور ام لا انتظر الرد من حضراتكم بنتائج تجاربكم ووضع اقتراحاتكم

وعليكم السلام ورحمة الله ,, تابع هذا الموضوع سينفعك

مشاء الله عليك يا ابا جودي روعة استاذنا ابو احمد جربت المرفق ويندوز 11 64 وافيس 21 64 ويعمل كما ينبغي تحياتي 🌹

السلام عليكم تفضل هذه المحاولة وبدون اي استعلام بعد إذن الاستاذ @Ahmed.IQ بالتوفيق بحث شامل2.accdb

وعليكم السلام ورحمة الله تعالى وبركاته اين هي listbox

السلام عليكم😊 اخوي ابو أحمد كفيت ووفيت، وفي الواقع وبعد عدة من استفسارات اخونا nssj، كنت اعتقد بأنك ستتوقف، ولكنك كنت تبهرني بإجابة وكود أفضل من سالفها، فهذا عهدنا بك، شكرا جزيلا😊 اخوي rockjones33 لك أسلوب غير متعارف عليه في الرد، فما شاء الله عليك مشرّق ومغرّب في نفس اللحظة، لهذا السبب وبسهولة ممكن الواحد يفهمك غلط، وخصوصا ان كلامك وامثلتك غير محددة الاتجاه، وأنا شخصيا ماني ملحق عليك🤔 اعتقد انكم جميعا توجهون كلامكم لصاحب السؤال، واتمنى من اخوي rockjones33 صياغة ردودة بطريقة مفهومه لنا 😊 جعفر

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

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

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

شكرا جزبلا استاذ محمد هذا ما اريد بالظبط

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

تفضل اخي حمدي التعديل Private Sub Combo18_AfterUpdate() ' ' Find the record that matches the control. Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[phone_number] = '" & Str(Nz(Me![Combo18], 0)) & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub

السلام عليكم اخي الكريم حمدي بصراحة انا كذلك لم استطع فهم الصيغة على العموم اليك هذا الكود جرب ووافنا بالنتيجة ويا حبذا لو ترفق كل الملف بكل الاوامر والاكواد حتى يتسنى لنا معرفة اين المشكلة بالضبط. تفبل تحياتي If Me.SELCTALL = True Then DoCmd.SetWarnings True DoCmd.RunSQL "UPDATE email SET[selcted]=True , SelectRow ='R' ", dbFailOnError DoCmd.RunSQL "UPDATE email SET[SendStuts]=True , SelectRow ='R' ", dbFailOnError ElseIf Me.SELCTALL = False Then DoCmd.RunSQL "UPDATE email SET[selcted]=Null , SelectRow ='T' ", dbFailOnError DoCmd.RunSQL "UPDATE email SET[SendStuts]=Null , SelectRow ='T' ", dbFailOnError End If DoCmd.SetWarnings False DoCmd.Requery If Me.Dirty Then Me.Dirty = False

ممكن تراسلني لافهم اكثر منك ماذا انت بحاجه اليه وايضا سنضع النتيجة النهائيه هنا في الموضوع

تم التعديل علما أن رسم الدوائر سيتوقف عند تجاوز عدد "حصص زائدة" اسم الإجراء AddCircles7 حصص زائدة الاول والثانى اكتوبر2022_02.xlsm

أنا استخدم طريقة مشابهة SysDateTimeFormat_01.accdb

لدي سؤال هل tel 1 و tel 2 في نفس الجدول ؟

قم بتصميم userform كما تشاء وسوف نحاول ننفذ المطلوب باذن الله تعالى. تفضل اخي تم اضافة كود لافراغ شيت المطبوعات ضروري سوف تحتاجه في آخر اليوم بعد الإنتهاء من طباعة الفواتير فاتورة_Mh4 - .xlsm

وعليكم السلام اخ عمر اسماء الحقول الواضحة تسهل عملية التتبع ...ارجوا ان تجرب على كل الامانات وغيرها لاني لم اجربها كلها اليك المرفق بعد التعديل ..رغم انها ليست الطريقة المفضلة newapp(2).rar

هذه مشكلة أخرى ، ليس لها علاقة بمشكلة عنوان الموضوع ، ثم أين الوحدة النمطية التي تتحدث عنها؟!! ، هل تقصد سطور الإرسال؟. هل انتبهت لعدد الملاحظات في مثالك لإجراء واحد فقط؟. هل المطلوب أن نصمم لك البرنامج من جديد؟! أم ماذا؟ لم تجاوب على هذا السؤال ولم تخبرنا أيه يعني T وأيه يعني R اللي فهمته T يعني تم الإرسال. أنت بطريقتك تنسب لنا فشل من غير مفشل وتحرجنا أمام الناس، يا أخي أولا اعترف لنا رجاءً 🙂 أن ما قمنا به تم بشكل صحيح ثم ابحث عن حل للمشلكة الأخرى.

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

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

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

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

بعد اذن استاذنا الفاضل والقدير الاستاذ ضاحى ورغبة استاذى gamalin وطلبه للملف استاذن من الاستاذ ضاحى غريب ان اعطيه الملف بعد ما اصبح يعمل معى ZAD IPTV Subscription.xlsm