SEMO.Pa3x

وعليكم السلام. تفضل اخي كتبت لك مثال. الفكرة: انا استخدمت الموقع ( https://pastebin.com ) قمت بأنشاء حساب بالموقع لكي اتمكن من تعديل النص الخاص بي فيما بعد. قمت بانشاء موضوع جديد وكتبت فيه التاريخ ثم نسخت الرابط على شكل raw كالاتي: https://pastebin.com/raw/0SrhQhX7 حتى اتمكن من قراءته مباشرة, نفس الشيء يمكنك رفع ملف txt على موقعك وقراءته بصورة مباشرة. بعدها قمت بقراءة هذا النص من داخل الاكسس واستخدمت الدالة DateValue لكي اقوم بتحويل البيانات التي قرأتها من الموقع من String الى Date اي من نص الى تاريخ لكي اقوم بمقارنتها مع التاريخ الحالي للجهاز والمتمثل بالدالة Date وشرحت لك ايضا الاكواد في حال صعب عليك معرفة الذي يجري. Option Compare Database '-------------------------------------------------------- 'c0ded bY : SEMO.Pa3x 'skype : security.najaf 'facebook : https://www.facebook.com/Nisr.Aln3jaf 'gmail : isec2090@gmail.com 'last edit : 24/4/2019 '-------------------------------------------------------- Private Sub DoCheck_Click() ' كائن القراءة من بروتوكول الانترنت Dim objHttp As Object ' تعريف مكتبة البروتوكول Set objHttp = CreateObject("MSXML2.ServerXMLHTTP") ' رابط النص التي ستتم قراءته ومقارنته من التاريخ الحالي للجهاز Call objHttp.Open("GET", "https://pastebin.com/raw/0SrhQhX7", False) ' ارجاع القيمة Call objHttp.Send("") ' تحويل النص الى تاريخ If DateValue(objHttp.ResponseText) = Date Then ' رسالة بنجاح المقارنة بين التاريخ الموضوع في الموقع والتاريخ الحالي للجهاز MsgBox "تم فتح البرنامج بنجاح" Else ' رسالة بفشل العملية MsgBox "لم يتم تحديد موعد فتح البرنامج بعد", vbCritical, "عملية خاطئة" End If End Sub تحياتي لك. حسنين OpenDate_SEMO_Pa3x.accdb

عمل جميل بالتوفيق عزيزي

بارك الله بك, لو تضمن المرفق التاريخ الهجري لكانت الفائدة اكبر.

اخي لا تناقش بما ليس لك به علم. الدالة نفس الدالة Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long لا تغرك مسميات البراميترات وغيرها مجرد مسميات لكن تبقى الدالة هي ( sndPlaySoundA ) ضمن فضاء المكتبة ( winmm.dll ) ان وضعت الكود في ( Module ) او في رأس الصفحة او في نهاية الصفحة.. سيعمل لانك تتعامل مع winAPI والذي يحدد ذلك طبيعة الدالة ( Private ) او ( Public ). اما القيمة ( Boolean ) لكي ترجعلك قيم منطقية في حال تشغيل الصوت أو لا.

اين الجديد في ردك اخي؟ نفس الدالة طرحها الاخ @صالح حمادي

حياك الله استاذ @صالح حمادي وشكرا على اثرائك للموضوع. للمزيد حول دالة sndPlaySoundA اضغط على اسم الدالة.

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

اخي @صالح حمادي ضع الخط داخل القاعدة على شكل مرفقات ضع امر كتابة الخط من القاعدة للقرص الصلب , قم بتنصيب الخط , قم بحذفة من القرص الصلب

مبارك لك اخي ابا جودي

Option Compare Database Option Explicit Const SND_ALIAS_SYSTEMASTERISK As String = "SystemAsterisk" Const SND_ALIAS_SYSTEMDEFAULT As String = "SystemDefault" Const SND_ALIAS_SYSTEMEXCLAMATION As String = "SystemExclamation" Const SND_ALIAS_SYSTEMEXIT As String = "SystemExit" Const SND_ALIAS_SYSTEMHAND As String = "SystemHand" Const SND_ALIAS_SYSTEMQUESTION As String = "SystemQuestion" Const SND_ALIAS_SYSTEMSTART As String = "SystemStart" Const SND_ALIAS_SYSTEMWELCOME As String = "SystemWelcome" Const SND_ALIAS_YouGotMail As String = "MailBeep" ' playsound Params Const SND_LOOP = &H8 Const SND_ALIAS = &H10000 Const SND_NODEFAULT = &H2 ' silence if no sound associated with event Const SND_ASYNC = &H1 ' play async (don't freeze program while sound is playing) Private Declare PtrSafe Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Private Sub Form_Close() PlaySound vbNullString, ByVal 0&, SND_NODEFAULT End Sub Private Sub Form_Load() PlaySound CurrentProject.Path & "\" & "DB_FILES\About.wav", vbNull, SND_ALIAS Or SND_NODEFAULT Or SND_ASYNC Or SND_LOOP End Sub اي سؤال انا حاضر، اتمنى الفائدة للجميع.

اهلا عزيزي, بعد قراءة نموذج تسجيل الدخول وجدته. كود طويل زيادة عن اللزوم وغير مرتب, اعدت كتابة النموذج الخاص بتسجيل الدخول. عدل ماتحب تعديله. SecurityLevel_group.accdb

اقلبه من الاكسس

مبارك الترقية للاخ الفاضل عصام.

لكي تفعل ذلك يلزمك صلاحيات مسؤول. وايضا يلزمك اداة خارجية لتفعل ذلك والسبب, لا يمكنك ارغام المستخدمين في تشغيل الاكسس كمسؤول لما قد يلحق الضرر بالكومبيوتر عند استخدام اي كود خاطئ لانك بصلاحيات مسؤول ويمكنك التعديل على جذور النظام. تفضل عدلت لك المرفق وصنعت لك اداة تقوم بتعديل التاريخ والوقت بالاعتماد على ما يتم ادخاله في قاعدة البيانات حسنين ChangeDateTime_SEMO_Pa3x.rar

وعليكم السلام, اشكرك على مداخلتك الجميلة استاذي @jjafferr ولكم مطلق الحرية في الاجابة على اي استفسار يخص موضوعي مع جزيل الشكر لكم. اما بخصوص اخينا @ابا جودى تفضل المرفق عسى ان اكون اصبت ما ترمي اليه، ارجو منك قراءة المرفق جيدا وان وجدت شيء مبهم لا تبخل علينا بطرح استفسارك. حسنين SecurityLevel_group.accdb

شكرا لك

شكرا لجهودك اخي محمد, سبق وجربت هذه الدالة لكنها فشلت لدي. تحتاج صلاحيات مسؤول, والخط لا يظهر في مجلد Fonts الا بعد الريستارت

اخواني في امثلتكم المطروحة لا يتم اضافة الخط الى مجلد Fonts الا بعد الريستارت ,, ويتطلب تشغيل الاكسس كـ مسؤول.

اشرحلي مشكلتك على شكل صورة

عليكم السلام. ياريت توضح بصورة وين التعديل يكون

السلام عليكم, في السابق كنت استخدم خطوط معينة في برامجي وعند اعطاء البرنامج للعميل لاتظهر الخطوط التي قمت باستخدامها بل يظهر بمكانها الخط ( Arial ) وهذه مُشكلة. كت في وقتها الجأ الى ان اضع الخط بجانب قاعدة البيانات وفي داخل قاعدة البيانات اقوم بعمل تحقق لمجلد Fonts والبحث عن الخط في بداية تشغيل القاعدة, فإن لم يجده يعي رسالة للعميل بان الط مفقود وعليه ان يقوم بتثبيته من جانب البرنامج. بحثت طويلاً في الانترنت عن تثبيت خط من الاكسس فقط بدون مساعدة عامل خارجي ولكن لم اصل لنتيجة. اليوم بحمد الله قمت بحل المشكلة بإستخدام ( Visual .NET ) قمت بكتابة اداة بسيطة وظيفتها تثبيت الخط. يتم تمرير براميتر لها وهي بدورها ستقوم بتثبيته الدوال المستخدمة: AddFontResource CreateScalableFontResource ShellExecuteA للمزيد من المعلومات ، اضغط على اسم الدالة ارفقت لكم المصادر من MSDN شرح بسيط لمن لم يعرف ماذا اقصد بتثبيت الخط واستخدام الخط وانه لن يظهر في حال كان العميل لا يملكه. قمت بارفاق قاعدة بيانات لكم كـ مثال للشرح مع الخط المستخدم مع الاداة. شرح الاستعمال: يجب ان تكون الاداة ( SEMO_RegisterFont.exe ) هي والخط الذي سوف تستخدمه بجانب قاعدة البيانات. افتح برنامجك وضع فيه هذا الاجراء. Sub RegisterFont(nFont) Dim strExe As String Dim strArg As String strExe = CurrentProject.Path & "\" & "SEMO_RegisterFont.exe" strArg = "/SEMO/" & nFont ShellExecute 0, "runas", strExe, strArg, vbNullString, SW_SHOWNORMAL End Sub في الاستدعاء اي في الحدث Form_Current RegisterFont "DroidSansArabic.ttf" حيث ان الـ DroidSansArabic.ttf هو اسم الخط الذي قمنا بوضعه بجانب قاعدة البيانات ملاحظة مهمة جدا: في حال كان اسم الخط يتكون من اكثر من كلمة مثل ( Droid Sans Arabic.ttf ) قم بحذف المسافات بين كلمة واخرى بحيث يصبح ( DroidSansArabic.tts ) وستعمل قاعدة البيانات التي قمت بتصميمها بشكل رائع وبالخطوط التي قمت انت بأختيارها بدون الخوف من مشكلة عدم توفر الخطوط في جهاز العميل. الشرح حصري للمنتدى وغير موجود في الانترنت. لا تشكرني الا اذا وجدت انني استحق ذلك. تم بحمد الله حسنين RegisterFont_SEMO_Pa3x.rar

قم باعادة التحميل, الملف شغال 100%

حسنا، تفضل كتبت لك مثال. SEMO_Pa3x.rar

ارفق قاعدة بياناتك لكي نساعدك

للاسف لاتظهر بتنسيق التقرير.