Radwan0

السلام عليكم ورحمة الله

هل من طريقة لانشاء صفحه html استطيع من خلالها ادخال بيانات وحفظها في جدول اكسس ؟ 

وايضا من نفس الصفحه استخراج بيانات والبحث عنها

كيف يمكن ذلك ؟ هل من خلال استضافه مجانيه ؟ او من خلال كود php 

ارجو الافاده

اسعد الله اوقاتك اخي العزيز

هل هنالك موقع يشرح هذه الالية او فيديو على اليوتيوب ؟ 

السلام عليكم ورحمة الله

اعزائي احتاج مساعدتكم في هذا الامر حيث خطرت في بالي فكره وهي انشاء صفحات html استطيع من خلالها ادخال معلومات بدلا من نماذج الاكسس وايضا اظهار هذه المعلومات

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

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

اخي @kkhalifa1960 بارك الله بك هذا فعلا ما اريده

هنالك مشكلة بسيطه ان شاء الله وهي عند عدم حفظ السجل والضغط على لا فأن الترقيم التلقائي يتغير

نفرض الان السجل رقمه 3 وعندما دخلت لاضيف طالب جديد وهذا الطالب يملك نفس رقم الهويه قمت بالغاء العمليه 

فعند الدخول مرة اخرى لاضافة طالب اخر فان الترقيم التلقائي يقفز الى 5 وليس 4 

كيف يمكن حلها

الف شكر اخي لكن مطلبي هو حسب الكود الذي ارفقته ان امكن

@Foksh لا ارى التعديل اخي الفاضل

الملف لا يعمل معي

هل يمكن تطبيق حسب الكود الذي ارسلته ؟ 

Database1.accdbان امكن التطبيق هنا اخي العزيز @Foksh

    Dim identityNumber As String
    Dim rs As DAO.Recordset
    Dim db As DAO.Database
    Dim response As Integer

    ' Get the entered identity number
    identityNumber = Me.YourIdentityNumberField.Value

    ' Set the database and recordset to check for the identity number
    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT * FROM YourTableName WHERE IdentityNumberField = '" & identityNumber & "'")

    ' If a record with the same identity number exists, prompt for confirmation
    If Not rs.EOF Then
        response = MsgBox("This identity number already exists in the system. Do you want to proceed?", vbQuestion + vbYesNo, "Duplicate Found")
        
        ' If the user chooses No, cancel the update and exit the form without saving
        If response = vbNo Then
            Cancel = True ' Cancel the update
            Me.Undo ' Undo the changes in the current record
            DoCmd.Close acForm, Me.Name, acSaveNo ' Close the form without saving
        End If
    End If

    rs.Close ' Close the recordset
    Set rs = Nothing ' Clear the recordset object from memory
    Set db = Nothing ' Clear the database object from memory
End Sub

السلام عليكم اخواني

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

حصلت عندي اشكاليتين .

الاولى : عند ادخال رقم هويه مشابه صحيح انه يظهر لي ان الرقم موجود وبالتالي احصل على رسالة هل اريد الاستمرار ام لا .. في حال ضغطت على لا النموذج يقفل والسجل لا يحفظ لكن المشكلة هي في الترقيم التلقائي .. لنفرض كان عندي الزبون الاخير رقمه 541 ... فعند القيام بانشاء زبون اخر لا يوجد في قاعدة البيانات فانه ياخذ الرقم 543 وليس 542 ( لانني قمت باغلاق السجل السابق) 

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

اطلت عليكم فعذرا منكم 

ما شاء الله قمه الابداع 

ياريت من استاذنا الجليل ان يجد لنا طريقه ايضا نستطيع من خلالها ترتيب حقول النموذج بأن تأخذ نفس الابعاد 

وعلى سبيل المثال ان تأخذ هذه الحقول نفس الابعاد ايضا في نموذج اخر 

?

اسعد الله اوقاتكم بكل خير

هل من طريقه اخواني الكريمه ؟

اخي موسى اسعد الله اوقاتك ..

اتمنى لو كان بالامكان تطبيق طريقة عمل هذه القاعده على قاعدتي انا 

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

صلاحيات.accdb

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

هل هنالك مثال على مطلبي ان امكن رجاءا

هل هنالك امكانيه لاضافه هذه الخاصيه ؟

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

قد وجدت في احدى المواقع على الانترنت هذه القاعده التي فعلا هي ما اريد لكن هنالك اضافه واحده كنت اريد ادخالها ولم افلح في ذلك

في قاعده البيانات هناك نموذج frmNewUser يتم من خلاله انشاء مستخدم جديد واعطاءه صلاحيات بحيث ان مستوى الصلاحيات ينقسم الى ثلاث 

1;"Default User";2;"Admin";3;"Developer"

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

PasswordLogin_RC4_v5.6.accdb

ارجو مساعدتكم

السلام عليكم اخواني

عندي نموذج اسماء المرضى بأسم frm1 .. داخل هذا النموذج هناك زر يقوم بفتح تقرير خاص ببيانات المريض حسب رقم الهويه NumberID

احتاج لكود عند الضغط على الزر يقوم بفتح تقرير باسم Rep1 ويظهر لي فقط بيانات هذا المريض من خلال رقم الهويه

وايضا يقوم بفلتره البيانات حسب حقل "تم العلاج" في التقرير 

عذرا لعدم رفق قاعده بيانات نظرا لحجمها الكبير

اخواني

السلام عليكم اخواني

عندي عنوان التقرير لنفرض "سجل المرضى" كيف بالامكان حعل العنوان يتوسط التقرير في الاعلى بشكل اوتماتيكي

شكرا اخي محمد العزيز

نعم هو المطلوب على نفس المبدأ لكن هل بالامكان ان يبدأ العداد بالعد فقط عند ايقاف الماوس عن التحريك في القاعده نفسها دون الحاجة للتنقل الى نموذج اخر ؟

على سبيل المثال فتحت القاعده وبعد 30 ثانيه لم اقم بتحريك الماوس فيقوم باغلاق القاعده ( ولا يهم في اي نموذج انا كنت فاتح القاعده )

السلام عليكم اخواني الكرام

محتاج كود يقوم بغلق قاعدة البيانات بعد 5 دقائق من عدم الاستعمال

@Eng.Qassim اخي العزيز قاسم 

اسعد الله اوقاتك

هل بالامكان التطبيق على هذه القاعدة رجاءا ولا امراً عليك

لم افلح في ذلك للاسف الشديد

Database1.accdb

اخي قاسم بارك الله بك

هل من خلال الكود استطيع منع التعديل على الترقيم التلقائي في حال لم يتم حفظ السجل ؟

السلام عليكم اخواني الكرام

استعمل الكود التالي لمنع التكرار 

Private Sub strStudentNumber_BeforeUpdate(Cancel As Integer)

'*********************************
'Code sample courtesy of srfreeman
'*********************************

    Dim SID As String
    Dim stLinkCriteria As String
    Dim rsc As DAO.Recordset

    Set rsc = Me.RecordsetClone

    SID = Me.strStudentNumber.Value
    stLinkCriteria = "[strStudentNumber]=" & "'" & SID & "'"

    'Check StudentDetails table for duplicate StudentNumber
    If DCount("strStudentNumber", "tblStudentDetails", _
              stLinkCriteria) > 0 Then
        'Undo duplicate entry
        Me.Undo
        'Message box warning of duplication
        MsgBox "Warning Student Number " _
             & SID & " has already been entered." _
             & vbCr & vbCr & "You will now been taken to the record.", _
               vbInformation, "Duplicate Information"
        'Go to record of original Student Number
        rsc.FindFirst stLinkCriteria
        Me.Bookmark = rsc.Bookmark
    End If

    Set rsc = Nothing
End Sub

حصلت معي مشكلتين :

1) عند ادخال قيمة مكرره صحيح انه لا يحفظ البيانات لكن المشكلة انه يقوم بحفظ الترقيم التلقائي

لنفرض الان انا موجود عند الطالب رقمه 500 , عند ادخال قيمة مكررة لا يحفظ البيانات لكن عند الدخول مرة اخرى وتسجيل طالب اخر فان الترقيم التلقائي يصبح 502 وليس 501

2) عند ادخال قيمة مكررة فان الكود يقوم بأخذي الى السجل الذي يحتوي على القيمة المكررة

كيف بالامكان ان يقوم بفتح نموذج frmstudent وان ياخذني الى القيمة ذاتها 

اسف على الاطالة

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

هل من حل للمشكله هنا اخوتي