SEMO.Pa3x

أفادك الأخ محمد جزاه الله خيراً.

عليكم السلام، صراحة لم افهم طلبك اشرح بصورة مبسطة مع الامثلة لكي اتمكن من مساعدتك

عليكم السلام ماذا تقصد بالاسكربت؟ كيف تريد تمرير كلمة المرور للقاعدة عن طريق ماذا؟

اخر اعمالي في الاكسس، برنامج ادارة المختبرات الطبية. علما انها responsive اي انها تتحجم تبعاً لاختلاف حجم الشاشات

لم افهم مالذي تريده بالضبط 🙄 ممكن توضيح بشكل اكثر

يرجى اختيار افضل إجابة لإغلاق الموضوع من قبل الادارة.

تسلم ايدك يامعلم، دائما جديد ومتميز

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

عليكم السلام, تفضل: '******************* module code ************** Public Const WS_CHILD As Long = &H40000000 Public Const WS_VISIBLE As Long = &H10000000 Public Const WM_USER As Long = &H400 Public Const WM_CAP_START As Long = WM_USER Public Const WM_CAP_DRIVER_CONNECT As Long = WM_CAP_START + 10 Public Const WM_CAP_DRIVER_DISCONNECT As Long = WM_CAP_START + 11 Public Const WM_CAP_SET_PREVIEW As Long = WM_CAP_START + 50 Public Const WM_CAP_SET_PREVIEWRATE As Long = WM_CAP_START + 52 Public Const WM_CAP_DLG_VIDEOFORMAT As Long = WM_CAP_START + 41 Public Const WM_CAP_FILE_SAVEDIB As Long = WM_CAP_START + 25 Public Declare Function capCreateCaptureWindow _ Lib "avicap32.dll" Alias "capCreateCaptureWindowA" _ (ByVal lpszWindowName As String, ByVal dwStyle As Long _ , ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long _ , ByVal nHeight As Long, ByVal hwndParent As Long _ , ByVal nID As Long) As Long Public Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long _ , ByVal wParam As Long, ByRef lParam As Any) As Long '************* end of module code ****************** Add the following controls in a form 1. A picture box with name "PicWebCam" 2. A commondialog control with name "CDialog" 3. Add 4 command buttons with name "cmd1","cmd2,"cmd3","cmd4" then paste the following code '************************** Code ************** Dim hCap As Long Private Sub cmd4_Click() Dim sFileName As String Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(False), 0&) With CDialog .CancelError = True .Flags = cdlOFNPathMustExist Or cdlOFNOverwritePrompt .Filter = "Bitmap Picture(*.bmp)|*.bmp|JPEG Picture(*.jpg)|*.jpg|All Files|*.*" .ShowSave sFileName = .FileName End With Call SendMessage(hCap, WM_CAP_FILE_SAVEDIB, 0&, ByVal CStr(sFileName)) DoFinally: Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&) End Sub Private Sub Cmd3_Click() Dim temp As Long temp = SendMessage(hCap, WM_CAP_DRIVER_DISCONNECT, 0&, 0&) End Sub Private Sub Cmd1_Click() hCap = capCreateCaptureWindow("Take a Camera Shot", WS_CHILD Or WS_VISIBLE, 0, 0, PicWebCam.Width, PicWebCam.Height, PicWebCam.hWnd, 0) If hCap <> 0 Then Call SendMessage(hCap, WM_CAP_DRIVER_CONNECT, 0, 0) Call SendMessage(hCap, WM_CAP_SET_PREVIEWRATE, 66, 0&) Call SendMessage(hCap, WM_CAP_SET_PREVIEW, CLng(True), 0&) End If End Sub Private Sub Cmd2_Click() Dim temp As Long temp = SendMessage(hCap, WM_CAP_DLG_VIDEOFORMAT, 0&, 0&) End Sub Private Sub Form_Load() cmd1.Caption = "Start &Cam" cmd2.Caption = "&Format Cam" cmd3.Caption = "&Close Cam" cmd4.Caption = "&Save Image" End Sub '**************** Code end ************************

عليكم السلام، تفضل: Private Sub ValidateEnglish() Dim I As Long Dim txtBuff As String Dim CheckChars As String CheckChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890 " txtBuff = TextBox1.Text For I = 1 To Len(CheckChars) txtBuff = Replace$(txtBuff, Mid$(CheckChars, I, 1), "") Next I If txtBuff = "" Then 'Only characters in CheckChars found MsgBox "English." Else MsgBox "Non-English." End If End Sub Private Sub TextBox1_Change() ValidateEnglish End Sub

لصعوبة كشف كلمة المرور والبيانات المهمة من قبل المتطفلين.

حسنا، لا مشكلة مع انني شرحت الاكواد داخل البرنامج Public Function XOREncryption(CodeKey As String, DataIn As String) As String خوارزمية تشفير النصوص يطلب براميترات اثنان الاول هو مفتاح التشفير ( CodeKey As String ) وهو المتمثل هنا Function KEY_ENDE() KEY_ENDE = "PA$X" End Function والبراميتر الثاني ( DataIn As String ) النص المراد تشفيرة نفس الكلام ينطبق على فنكشن فك التشفير Public Function XORDecryption(CodeKey As String, DataIn As String) As String الفنكشن هذا Public Function GetUsernameLogin() As String يقوم بجلب اسم المستخدم الحالي لقاعدة البيانات من جدول AutoSave ويقوم بفك تشفيرة وارجاعه كـ نص عادي لكي يتم مطابقتة فيما بعد اما هذا الفنكشن Public Function CheckPermissions(Username As String, permissions As String) As Boolean يحتاج براميترات اثنان الاول اسم المستخدم لقاعدة البيانات والثاني الصلاحية المطلوبة لكي يتم تدقيقها هل هي True أو False هل مسموح له بعمل هذا الاجراء او لا، نمرر البراميتر الأول وهو الـ Username من الفنكشن التالي GetUsernameLogin ثم نمرر البراميتر الثاني وهو حسب ما مكتوب في الجدول وحسب الفورم المطلوب فتحه مثلا: لدي في الجدول حقل اسمه frm_setting واريد ان اتحقق هل اليوزر لديه صلاحية بفتح هذا الفورم فأكتب: If CheckPermissions(GetUsernameLogin, "frm_setting") = False Then MsgBox "You do not have permissions !", vbCritical, "ERROR!" Exit Sub End If وسلامتك. نعم، ممكن ذلك. عندما اجد وقت كافي سأقوم بعمل مثال لك.

لو ممكن تحدد اي دالة؟ لا اتذكر اني استخدمت دوال بل فنكشنات

تفضل

احسنت، طريقة جميلة اغنت رصيدي المعرفي.

حسب علمي لا يمكن ذلك.

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

السلام عليكم، كثيراً ما ارى طلبات "كيفية عمل صلاحيات المستخدمين" قمت بعمل مثال بطريقة مبسطة جدا لكيفية عمل هذه الصلاحيات في تحديد فتح النماذج لمن لا يعرف ماذا اقصد بصلاحيات المستخدمين, مثال: اليوزر A غير مسموح له بفتح فورم الاعدادات مثلاً، اما اليوزر B مسموح له بفتح فورم الاعدادات اي سؤال انا موجود. تحياتي لكم Permission.accdb

بارك الله بك استاذ صالح، لقد اغنيت رصيدي المعرفي.

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

السلام عليكم، لو اردنا ان نقوم بحفظ السجلات المحددة في النموذج الفرعي سنلجئ لعمل CheckBox في الجدول ومن ثم نقوم بعمل استعلام يقوم بفلترة جميع الـ Checkbox التي تكون قيمتها True ومن ثم نقوم بحفظها. لكن! ماذا لو كانت قاعدة البيانات تعمل بنظام الشبكة ( Multi Users ) اذا قام المستخدم رقم 1 بوضع علامة صح على مثلا مادة ( برتقال ) وقام المستخدم رقم 2 بوضع علامة صح على مثلا مادة ( رمان ) عندما يضغط اي مستخدم على حفظ البيانات فـ ستحفظ البيانات وتكون النتيجة خاطئة لان البيانات ليست هي المطلوبة انا اخترت ( برتقال ) فأتتني النتيجة ( برتقال + رمان ) وكذا بالنسبة للمستخدم الثاني والثالث وغيرهم، ممن يعملون على قاعدة البيانات بوقت واحد، صراحة واجهتني هالمشكلة لكن وجدت الحل لها كما انني رأيت موضوع للأخ ابا جودي يتكلم عن هذه المشكلة ارفقت لكم طريقة مختلفة في تحديد السجلات وهي الضغط على مُحدد السجلات للأمانة الطريقة ليست كلها من برمجتي الحقوق لـ arnelgp انا فقط قم اضافة وتعديل بعض الامور البسيطة تحياتي لكم RecordSelectorClick.accdb

عزيزي، اشرح بتفصيل أكثر مالذي تريده صراحة لم افهم شيء من طلبك.

حياك الله عزيزي.

عليكم السلام، بشكل عام قم بنداء جميع الازرار من خلال زر واحد: Private Sub cmdButton1_Click() 'مثلا هنا أكواد الزر الأول MsgBox "Hi I'm Button 1" End Sub Private Sub cmdButton2_Click() 'مثلا هنا أكواد الزر الثاني MsgBox "Hi I'm Button 2" End Sub Private Sub cmdButton3_Click() 'مثلا هنا أكواد الزر الثالث MsgBox "Hi I'm Button 3" End Sub 'نأتي للزر الشامل الذي عند الضغط عليه سيقوم بالضغط على جميع الازرار دفعة واحدة Private Sub ClickAll_Click() cmdButton1_Click cmdButton2_Click cmdButton3_Click End Sub ارفق برنامجك لكي نتمكن من مساعدتك.

اهلا عزيزي.. قم بنقل شرط تصفية الاستعلام الى الحقل ( اسم المجهز ) وليس جهة تجهيز الكونكريت ويكون الشرط كالاتي: [Forms]![search]![supplier_name] لا تستخدم جملة الـ Like لانها تتضمن بحث جزئي