التقني

السلام عليكم ورحمة الله وبركاته جرب المثال في المرفقات أدناه فيه طريقة بحث جميلة حقيقة لا أعرف من هو صاحب المثال لكن ... حقه علي أن أدعو له بظهر الغيب فجزاه الله عنا كل خير DirectSearch.rar

الأخ JABERXP أين انت :( هل تريد طريقة فتح نموذج من قاعدة أخرى ؟ اطلع بارك الله بك الى موضوع الأخ ابن مسقط حفظه الله : http://www.officena.net/ib/index.php?showtopic=9453

السلام عليكم ورحمة الله إليك أخي هذا الموقع اللطيف :( http://www.mshkat.com/dros/index.php?lang=0&CODE=09&name=%25 والتوفيق

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

السلام عليكم ورحمة الله الأخ الكريم انظر الى المواضيع أدناه : http://www.officena.net/ib/index.php?showtopic=5874 وهذا: http://www.arabteam2000-forum.com/index.php?showtopic=57518 وبالتوفيق

ها قد وجدته برنامج من تصميم الاستاذ فهد الدوسري وهو عبارة عن فكرة خلط الأرقام واختيار أحد الأسئلة استخدم الكود في اجراء القرعة (الخلط) بين الأسماء وبالتوفيق Mix_it.rar

السلام عليكم ورحمة الله يوجد برنامج يقوم بذلك بإذن الله سأبحث عنه

وعليكم السلام ورحمة الله ما نعرفه هو عندما نقسم الصفر على أي عدد (سوى الصفر) تكون النتيجة = 0 أما أن نقسم أي عدد على الصفر ( مثل ما أردت ) فهذا يعتبره الآكسس خطأ رياضي أو كما يسمى .. (Division by zero) أو ( لا يمكن القسمة على الصفر) بالتالي من الطبيعي أن تظهر هذه الرسالة جرب القسمة بكلا الطريقتين على الآلة الحاسبة للوندوز وسترى النتيجة

وعليكم السلام ورحمة الله وبركاته استخد هذا الكود في حدث عند النقر على الزر command1 Private Sub Command1_Click() GoOut = MsgBox("هل تريد الخروج بالفعل ؟", vbYesNo, "خروج") If GoOut = vbYes Then DoCmd.Close End If End Sub

السلام عليكم ورحمة الله أخي mohamed_hamdy بالنسبة لي فلا توجد مشكلة في عملية الحفظ عن طريق الــ HTML لكن بدون صور أما الطرق الأخر (التي مع الصور) فأنني أعاني منها منذ فترة طويلة وفي أكثر من موقع وأعتقد أن السبب هو المتصفح نفسه Explorer هل تشاركوني الرأي ؟

توجد طريقة أخرى وهي نسخ الكل (Ctrl + A) واللصق (Ctrl + V ) في برنامج آخر مثل الوورد هذه الطريقة فيها عيوب: 1- تأخذ وقتا طويلا في اللصق . 2- ملف التخزين يكون بصيغة الـDOC وبحيز كبير نوعا ما

وعليك السلام ورحمة الله أخي الكريم جرب حفظ بإسم واختر نوع الحفظ ( HTML )

بالمناسبة .. هذا الموقع فيه أكثر من 167000 ملف صوتي ومصنف حسب النوع : http://www.audiosparx.com/sa/display/cat.cfm

السلام عليكم ورحمة الله أخي العزيز جرب الملفات التالية أدناه KillFox.rar SchoolBell.rar

السلام عليكم ورحمة الله مرحبا أخي سعودي اطلع على هذا الموضوع : http://www.officena.net/ib/index.php?showtopic=4117&hl=صادر ففيه مبتغاك وبالتوفيق

السلام عليكم ورحمة الله عزيزي سعودي تم تعديل العنوان حتى يتسنى للأعضاء التعرف على محتوى الموضوع فالمكتوب يقرأ من عنوانه :(

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

وعليكم السلام ورحمة الله وبركاته حياك الله أخي Mostafa Ismail أخي العزيز .. لا يوجد تمييز بين الأعضاء وكل ما الأمر هو سياسة خاصة بإدارة المنتدى وأعتقد أن الهدف الأساسي هو تنظيم عمل كافة المنتديات . اما بالنسبة لحفظ الصفحة فأفضل طريقة هي HTML Only حيث يتم حفظ الصفحة في ملف واحد وبحدود 100 كيلوبايت وبدون صور :) وأنا أعتمد على هذه الطريقة في الحفظ فهي لا تزحم الهارديسك بالبيانات :) وبالتوفيق أخي العزيز

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

السلام عليكم ورحمة الله فكرة رائدة وطموحة ما تقدم به الأخ طيف لكن الأمر يحتاج الى التفكير والتمعن في الأمر لنحلل الموضوع : نحتاج في هذا المشروع الى 1- طريقة ربط البرنامج بخطوط الهاتف (برمجيا) 2- قاعدة بيانات صوتية تحول ضغطة زر الهاتف الى صوت مسموع والى القيم الرقمية والحرفية المخزنة في حقول القاعدة الى صوت مسموع لكي تصل المعلومة من القاعدة عبر خط الهاتف الى المتصل مثلا لكي يحتاج المتصل لمعرفة درجة ابنه يجب عليه .. * الاتصال برقم معين * الاستماع الى الارشادات * عند الضغط على أزرار الهاتف فإنها ستؤدي الى فعل معين . * ربط أرقام الهاتف ( من 0 الى 9 ) بحقول الصوت مثلا .. 1- أدخل رقم الطالب (بعد أن يدخل رقم الطالب تأتي قائمة أخرى ) 1.1 - معرفة درجة مادة معينة 1.2 - معرفة مجموع المواد 1.3 - معرفة الترتيب العام (فمثلا عند الضغط على زر 3 تظهر الرسالة التالية : ترتيب الطالب هو (سيتم تشغيل الملف الصوتي والمخزن في حقل الترتيب ) هذا مثال مبسط لنظام الرد الألي والمستند الى قاعدة بيانات كما هو حاصل في البنوك عندما تضغط على زر الرصيد تظهر لك رسالة عامة هذا نصها : رصيدك الحالي هو ( وبعد ذلك سيقرأ قيمة ما لديك من أموال ويحولها الى نغمة صوتية) الفكرة مطابقة لطريقة التفقيط المستخدمة في تحويل الأرقام الرقمية الى نصية اذا الهدف هو تحويل ما في الحقل من بيانات الى صوت مسموع أرجو أن يكون هذ في الرد مساهمة في مشروع ممتاز

وعليك السلام ورحمة الله كلامك صحيح 100% البرامج المعقدة يتم كسر حمايتها فما بالنا بطريقة منع الشفت لبرنامج معمول بالآكسس !! لكن الذي حصل معي أنه قمت بمحاولة كسر الحماية لهذا البرنامج عن طريق برنامج متخصص فلم يجد نفعا وبعد تجربة التشغيل لا زال الشفت معطل !! من الممكن وجود برامج تفعل عمل الشفت وتكسر الحماية .. لكن تبقى هذه الطريقة من احدى خدع الحمايات وشكرا على مرورك وتعليقك

السلام عليكم ورحمة الله قسم تحميل المرفقات: http://www.officena.net/ib/index.php?showforum=58

أخي العزيز اذا لم تنفع الطريقه أعلاه توجه الى هذا الرابط : http://www.officena.net/ib/index.php?act=S...st=0#entry42666

السلام عليكم ورحمة الله أقدم لكم حماية تمنع المفتاح Shift من العمل وفيها أيضا خدعة الخطوات : 1- في وضع التصميم لنموذج الواجهة ( النموذج الذي يعمل عند بدء التشغيل ) 2- أنشئ مربع تسمية Label وليكن أسمه : bDisableBypassKey 3- يجب أن يكون هذا المربع صغير للغاية بحيث لا يكاد يرى ( لا تعمل على إخفائه ) فنحن نريد استخدامه مستقبلا . 4- ضع الكود التالي في حدث عند النقر لمربع التسمية : Private Sub bDisableBypassKey_Click() On Error GoTo Err_bDisableBypassKey_Click 'This ensures the user is the programmer needing to disable the Bypass Key Dim strInput As String Dim strMsg As String Beep strMsg = "هل تريد أن تفعل زر الشفت ؟" & vbCrLf & vbLf & "أدخل كلمة زر التفعيل" strInput = InputBox(Prompt:=strMsg, Title:="عدم تفعيل زر الشفت") If strInput = "12345" Then 'Change password to your own ChangeProperty "AllowBypassKey", DB_BOOLEAN, True Beep MsgBox "تم تفعيل زر الشفت" & vbCrLf & vbLf & "سيتم في المرة القادمة السماح لأي مستخدم بالدخول على برنامج عن طريق زر الشفت", vbInformation, "التحكم في زر الشفت" Else Beep ChangeProperty "AllowBypassKey", DB_BOOLEAN, False MsgBox "خطأ في كلمة مرور" & vbCrLf & vbLf & "تم تعطيل زر شفت" & vbCrLf & vbLf & "بما أنه تم تعطيل زر الشفت ، لذا فلن يكون بمقدور أي مستخدم الدخول على البرنامج والتعديل عليه", vbCritical, "كلمة السر خطأ" Exit Sub End If Exit_bDisableBypassKey_Click: Exit Sub Err_bDisableBypassKey_Click: MsgBox "bDisableBypassKey_Click", Err.Number, Err.Description Resume Exit_bDisableBypassKey_Click End Sub 5- وضع الكود التالي في حدث عند النقر المزدوج لمربع التسمية : Private Sub bDisableBypassKey_DblClick(Cancel As Integer) Private Sub Disable_Click() Option Compare Database Option Explicit Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo Change_Err dbs.Properties(strPropName) = varPropValue ChangeProperty = True Change_Bye: Exit Function Change_Err: If Err = conPropNotFoundError Then ' Property not found. Set prp = dbs.CreateProperty(strPropName, _ varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ' Unknown error. ChangeProperty = False Resume Change_Bye End If End Function 6- عند الانتهاء من وضع الأكواد قم بتشغيل البرنامج 7- اضغط على مربع التسمية ليظهر لك مربع يطالبك بكلمة المرور 8- إذا ادخلت الكلمة الصحيحة فمعنى ذلك أنك سمحت لزر الشفت بالعمل وبالتالي الدخول على برنامجك والتعديل عليه ( وهذا من صلاحياتك فأنت من ستعدل على البرنامج ) 9-وإذا تم ادخال كلمة مرور خاطئة فهذا يعني أن هذا المستخدم غير مصرح له بالتحكم بزر الشفت وبالتالي سيتم تعطيله ولن يكون بمقدوره التعديل على برنامج (وهذا ليس من صلاحياته ) . 10 - بعد أن تظهر رسالة الخطأ (وهذا هو المطلوب) أغلق البرنامج ثم أعد تشغيله مع الضغط بإستمرار على زر الشفت ستجد أنك لن تستطيع الدخول على البرنامج والتعديل عليه . أرجو أن يكون الشرح مفيدا في المرفقات مثال عملي على الشرح منقول من أحد المواقع الأجنبية وبتصرف _____.rar

السلام عليكم ورحمة الله أخي gelani جرب هذه الطريقة التالية : 1- ضع الكود أدناه في وحدة نمطية جديدة : Public Function SetProperties(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer On Error GoTo Err_SetProperties 'Dim db As Database, prp As Property Dim db As DAO.Database, prp As DAO.Property Set db = CurrentDb db.Properties(strPropName) = varPropValue SetProperties = True Set db = Nothing Exit_SetProperties: Exit Function Err_SetProperties: If Err = 3270 Then 'Property not found Set prp = db.CreateProperty(strPropName, varPropType, varPropValue) db.Properties.Append prp Resume Next Else SetProperties = False MsgBox "Runtime Error # " & Err.Number & vbCrLf & vbLf & Err.Description Resume Exit_SetProperties End If End Function 2- ضع الكود أدناه في حدث عند النقر للزر واسمه (bDisableBypassKey) .. Private Sub bDisableBypassKey_Click() On Error GoTo Err_bDisableBypassKey_Click Dim strInput As String Dim strMsg As String Beep strMsg = "Do you want to enable the Bypass Key?" & vbCrLf & vbLf & "Please key the programmer's password to enable the Bypass Key." strInput = InputBox(Prompt:=strMsg, Title:="Disable Bypass Key Password") If strInput = "TypeYourPasswordHere" Then SetProperties "AllowBypassKey", dbBoolean, True Beep MsgBox "The Bypass Key has been enabled." & vbCrLf & vbLf & "The Shift key will allow the users to bypass the startup options the next time the database is opened.", vbInformation, "Set Startup Properties" Else Beep SetProperties "AllowBypassKey", dbBoolean, False MsgBox "Incorrect ''AllowBypassKey'' Password!" & vbCrLf & vbLf & "The Bypass Key was disabled." & vbCrLf & vbLf & "The Shift key will NOT allow the users to bypass the startup options the next time the database is opened.", vbCritical, "Invalid Password" Exit Sub End If Exit_bDisableBypassKey_Click: Exit Sub Err_bDisableBypassKey_Click: MsgBox "Runtime Error # " & Err.Number & vbCrLf & vbLf & Err.Description Resume Exit_bDisableBypassKey_Click End Sub ملاحظات: 1- ربما تحتاج الى المرجع التالي: DAO 3.6 2- هذا الكود منقول بالكامل من موقع أجنبي لذا لم أجربه على أي برنامج وبالتوفيق