SEMO.Pa3x

شاهد الهوك في ردي السابق

اخي الكريم، في الأكسس لا اعتقد ذلك.. لكن يمكنك ذلك في لغة VB.NET تفضل هذا هووك يقوم بهذا الغرض Imports System.Runtime.InteropServices Partial Public Class keyevent Private Structure KBDLLHOOKSTRUCT Public vkCode As Integer Private scanCode As Integer Public flags As Integer Private time As Integer Private dwExtraInfo As Integer End Structure Private Delegate Function LowLevelKeyboardProcDelegate(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer <DllImport("user32.dll")> Private Shared Function SetWindowsHookEx(ByVal idHook As Integer, ByVal lpfn As LowLevelKeyboardProcDelegate, ByVal hMod As IntPtr, ByVal dwThreadId As Integer) As IntPtr End Function <DllImport("user32.dll")> Private Shared Function UnhookWindowsHookEx(ByVal hHook As IntPtr) As Boolean End Function <DllImport("user32.dll")> Private Shared Function CallNextHookEx(ByVal hHook As Integer, ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer End Function <DllImport("kernel32.dll")> Private Shared Function GetModuleHandle(ByVal path As IntPtr) As IntPtr End Function Private hHook As IntPtr Private hookProc As LowLevelKeyboardProcDelegate Const WH_KEYBOARD_LL As Integer = 13 Public Sub New() InitializeComponent() Dim hModule As IntPtr = GetModuleHandle(IntPtr.Zero) hookProc = New LowLevelKeyboardProcDelegate(AddressOf LowLevelKeyboardProc) hHook = SetWindowsHookEx(WH_KEYBOARD_LL, hookProc, hModule, 0) If hHook = IntPtr.Zero Then MessageBox.Show("Failed to set hook, error = " & Marshal.GetLastWin32Error()) End If End Sub Private Shared Function LowLevelKeyboardProc(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer If nCode >= 0 Then Select Case wParam Case 256 'WM_KEYDOWN If (lParam.vkCode = &H9 AndAlso lParam.flags = 32) OrElse (lParam.vkCode = &H1B AndAlso lParam.flags = 32) OrElse (lParam.vkCode = &H73 AndAlso lParam.flags = 32) OrElse (lParam.vkCode = &H1B AndAlso lParam.flags = 0) OrElse (lParam.vkCode = &H5B AndAlso lParam.flags = 1) OrElse (lParam.vkCode = &H5C AndAlso lParam.flags = 1) Then Return 1 End If End Select End If Return CallNextHookEx(0, nCode, wParam, lParam) End Function Private Sub Window_Closed(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.FormClosed UnhookWindowsHookEx(hHook) End Sub End Class

عليكم السلام، هل تقصد هذا الزر في الكيبورد

تم تغيير جميع الوان الازرار الحمراء، وأبقيت الأحمر للخروج فقط. تأكد من اعدادات اللغة والمنطقة، من لوحة التحكم يجب ان تكون دولة عربية وإلا فلن تعمل اكواد الـ VBA

اهلا بالمعلم، بالفعل انا اريد ملاحظات المستخدم العادي حول البرنامج وماهي العيوب والأخطاء لكي اقوم بإصلاحها ولا اريد الخوض بموضوع الحماية، لان الحماية لم تخلق إلا لكي تُخترق

اهلا اخي الكريم، شاكر لك كرمك لتجربتك برنامجي وابداء الملاحظات.. الحقيقة انا لست قلق من أمر التعديل والصلاحيات وغيره، ذكرت سابقا النسخة ليست كاملة كما انني متأكد انه لا يوجد مايكفي من الخبرات على الأقل هنا لكسر تشفير accde جميع العمليات التي تتم من حذف وتعديل واضافة كلها عن طريق الكود ومحددة بشروط لذلك لا احد يستطيع قراءة الأكواد والتعديل عليها، بالاضافة الى ان النسخة التي لدي تكون صلاحياتها محددة بالكود ولا يمكن تعديل صلاحيات اليوزر إلا عن طريق المبرمج فقط! بالاضافة الى ان النسخة التي سأعطيها للعميل محمية على رقم الهارد ومسجلة من داخل محرر الـ VBA بدون اللجوء للجداول لانها مكشوفة ومعرضة للتعديل وأذا اردت تعقيد الأمر أكثر، سأجعل البرنامج لا يعمل الا بعد تخطيك لفورم الدخول لانها سيكتب قيمة runtime ويتم التحقق منها عند فتح اي فورم اذا كانت True يفتح, العكس يغلق البرنامج تحياتي لك

في حدث الـ Form_Timer Private Sub Form_Timer() ClockNow = Time If Format(Now(), "hh") <= 12 Then txt_DayNight = "صباح الخير" Else txt_DayNight = "مساء الخير" End If txt_currentDate = Format(Date, "dddd") & ", " & Day(Date) & " " & Format(Date, "mmmm") & ", " & Year(Date) End Sub وإجعل التايمر = 1000 أي ثانية واحدة

شكرا لكم، تم إغلاق النسخة.

السلام عليكم ورحمة الله وبركاته.. اقدم لكم النسخة الثانية من برنامج ادارة عيادة الطبيب.. تم تطبيق أغلب ملاحظاتكم وأقتراحاتكم في النسخة السابقة النسخة تجريبية تغلق بعد فترة الغرض من طرحها لمعالجة العيوب والأخطاء لكي يتم طرحها فيما بعد.. الرجاء منكم ابداء ملاحظاتكم واقتراحاتكم واضافاتكم وهل النسخة تحتوي على أخطاء؟ لكي اقوم بتحسين النسخة القادمة كلمة المرور لفتح البرنامج = 313 المميزات الحالية: 1- التصميم responsive يدعم جميع الشاشات الكبيرة والصغيرة 2- طباعة الوصفة الطبية 3- اضافة الادوية ومجاميعها والملاحظات 4- تسجيل بيانات المريض والحجوزات 5- تسجيل المصروفات 6- تعديل الاعدادات 7- اضافة نوع الحجز: * فحص = لإضافة الادوية للمريض * استشارة = لإرسال استشارة لطبيب آخر * دخول = لإرسال المريض الى المستشفى تصحيحات كثيرة وتعديل لأخطاء كثيرة قمت بها مع اضافة المزيد من الشروط لحصر وتقليل الأخطاء، شكرا لكل شخص ابدى رأيه وملاحظاته في النسخة السابقة، وايضا أنتضر ملاحظاتكم في هذه النسخة مع الشكر والتقدير doctor.rar

يجب أن تكون متصلا بالانترنت

عليكم السلام

يا أهلاً وسهلا بالمعلم شرفني حضورك في موضوعي للمعلومة، للآن أنا استخدم التصميم بالطريقة العادية لكن ربما مستقبلاً سأشرح لكم تصميم الفورم HTML + CSS بحيث يكون مثل واجهات الويب الالوان والتصاميم الجميلة اتذكر اني وضعته بإسم MachineDate مثل ما يقولون كل الطرق تؤدي الى روما وبما أن الأكسس يمكنك من فعل الأمور ذاتها بأكثر من طريقة فأنا ارى اني نفذ المطلوب بهذه الطريقة البسيطة في وجهة نظري البسيطة، من اعظم الأخطاء بقواعد البيانات هي حذف السجلات حذف دائم.. لان حذفه سيأثر في تسلسل الـ Primary Key تفقد التسلسل بين السجلات ثانياً ربما حُذف بالخطأ واحتاج استرجاعه بالفعل الفهرسة مفيدة او كما يعرف بقواعد البيانات Foreign Key في الويب لو لم يكن الحقل FK لا يمكنك انشاء علاقه معه.. لقد قمت بوضع الفهرسة لهذه الحقول، لكن ربما سهوت عن بعضها سأقوم مراجعتها وتصحيحها أي مكتبات؟ وكيف اقوم بتعديلها فكرة جميلة، سأقوم بأظهار شريط المهام.. سعيد جدا بمرورك وملاحظاتك فأنها دائماً تغني رصيدي المعرفي

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

شكرا لك اخي الكريم على كل ماتفضلت به، واسمح لي بتعقيب على النقاط التي ذكرتها.. مثل هذه الأمور قد لا تكون محببة لدى الأطباء لانك ستكون في عجلة من امرك وتريد فقط البيانات الأساسية كإسم المريض والعمر اما هذه الحقول التي تفضلت بها تكون مطلوبة بالمستشفى وليست في العيادات وتبقى اضافتها أمر اختياري للزبون لو ارادها نقوم بإضافتها له. فكرة جميلة، لكن ارجو التوضيح ماهو الخطأ من استخدام حقل واحد لكتابة الأمراض المزمنة مثل: ( سكر , ضغط , .. الخ ) اعتقد تكلمنا عن هذا سابقا في النقطة الأولى ممكن. ولكني وضعت اسم المريض لا يقبل التكرار لكي اعوض به عن الرقم القومي او رقم الهوية لكي يكون لكل مريض سجله الخاص ففي العيادة الأهلية من الصعب طلب البطاقة الشخصية وتسجيل الرقم القومي والخ.. تنطبق عليها فكرة المستشفى تمت اضافتها، لكن ليس بهذه الصورة يمكنك الرجوع للواجهة الرئيسية عموما شاكر لك فضلك على هذه الملاحظات والاقتراحات الجميلة وشكرا أسأل الله العظيم أن يجعلها في ميزان حسناتك. لا اعرف ماهي المشكلة، فانا استخدم ويندوز 10 64بت والأوفس 32بت

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

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

السلام عليكم ورحمة الله وبركاته.. اقدم لكم النسخة الأولى من برنامج ادارة عيادة الطبيب.. النسخة تجريبية تغلق بعد فترة الغرض من طرحها لمعالجة العيوب والأخطاء لكي يتم طرحها فيما بعد.. الرجاء منكم ابداء ملاحظاتكم واقتراحاتكم واضافاتكم وهل النسخة تحتوي على أخطاء؟ لكي اقوم بتحسين النسخة القادمة كلمة المرور لفتح البرنامج = 313 المميزات الحالية: 1- التصميم responsive يدعم جميع الشاشات الكبيرة والصغيرة 2- طباعة الوصفة الطبية 3- اضافة الادوية ومجاميعها والملاحظات 4- تسجيل بيانات المريض والحجوزات 5- تسجيل المصروفات 6- تعديل الاعدادات DOCTOR_FILES.rar

عليكم السلام على حسب علمي هذا غير ممكن في الأكسس، تحتاج لعمل وسيط بلغة اخرى وليكن NET. ومن ثم استخدامه في الأكسس.

عليكم السلام.. تفضل، قمت بعمل مثال لك: splash.accdb

Public Sub CapText(ID As Integer, cmds As CommandButton) Dim CaptionText As String CaptionText = DLookup("[txtMessageText]", "[tblMessages]", "[txtAutoIntMessageID] =" & ID) 'set caption name cmds.Caption = CaptionText End Sub الإستدعاء: Call CapText(1, "Hello")

عليكم السلام، انت تقول قمت بتعمل دالة لتغيير نص الأزرار والليبل. فأين الأزرار والليبل في الكود الخاص بك! انت فقط قمت بتعريف متغير واسندت له قيمة، اين الأزرار والليبل في الموضوع؟ يجب عليك نداء الزر أو الليبل الذي تريد تغييره.

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

total_fatora = Nz(DSum("total", "Haraka", "fat_num = " & Forms!Fatora_be!Fat_num & " And " & "kind_haraka = '" & Forms!Fatora_be!Kind_haraka & "'"), 0)

نعم وغير عبارة YOUR_MSG_ID في الكود الى رقم الـ ID الخاص برسالتك التي تريد عرضها

'define vars Dim splitMessage(), gMessage, gTitle As String 'replace YOUR_MSG_ID with your id splitMessage = Split(getMessage(YOUR_MSG_ID), "||") 'get results gMessage = splitMessage(0) 'get Message gTitle = splitMessage(1) 'get Title 'set in msgbox MsgBox gMessage, vbInformation, gTitle