سعيد صواب

حياكم الله اخواني وشكرا على مشاركتكم jojo 2009 ولك بأكثر مما دعوت بإذنه تعالى الأخ محمد حياك الله انا عملت المثال على 2007 وحفظت منه نسخة بتنسيق 2002-2003 وهي في المرفق السابق وهذه نسخة بتنسيق 2007 اتمنى من الأعضاء الكرام ممن لديهم نسخ اعلى من 2003 و 2007 التجربة وافادتنا مشكورين. وفقنا الله واياكم جميعا ... MyProtect.rar

ويوفقك ان شاء الله

حياك الله اخي اواب شكرا لمشاركتك .. مثال ممتاز .. جزاك الله كل خير انت والأخت زهرة وبالتوفيق للجميع

حياك الله استاذ رمهان وحتى يكون مميز نضيف له رابط شرح للأستاذ ابو خليل وانا استخدمته في برنامج وبمساعدة الاستاذ ابو خليل ويعمل على اكمل وجه. http://www.officena.net/ib/topic/55135-ارسال-رسالة-sms-الى-الجوال/ وبالتوفيق للجميع

حياك الله اخي الكريم شاهد المرفق شاهد حدث في الحالي للنموذج وحدث بعد التحديث لحقل birthdate بإمكانك اخفاء حقل calculate فيما بعد بالتوفيق Tccst.rar

استاذ محمد الق نظرة على الرابط http://www.officena.net/ib/topic/67762-استخراج-رمز-المعالج-والماذر-بورد-ورقم-الهارد-ديسك-للحماية/ بالتوفيق للجميع

السلام عليكم ورحمة وبركاته .. في المرفق يتم استخراج بيانات الجهاز .. المعالج + الماذر بورد + الهارد ديسك اتمنى ان يفيد من يبحث عنه ... ولا نستغني ابدا عن توجيهات خبرائنا الكرام .. ونقاش الأخوة اعضاء المنتدى الحبيب وتبادل وجهات النظر وكذلك من له تجارب مع الموضوع. بالتوفق للجميع MyProtect.rar

وجدت هذه الوحدة النمطية وجربتها على جهازي وذلك بتغيير دقة الشاشة ... وسأقوم بتجربتها على الأجهزة الأكبر يوم الأحد بإذن الله تظهر رسالة تفيدك بدقة الشاشة التي تعمل عليها وتخبرك بأن البرنامج تم تصميمه بدقة 1024*768 وتخيرك فيما اذا كنت ترغب بتغيير دقة الشاشة اذا اخترت نعم تظهر لك نافذة تغيير دقة الشاشة.. Option Compare Database Option Explicit Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long Const SM_CXSCREEN = 0 Const SM_CYSCREEN = 1 Sub VerifyScreenResolution(Optional Dummy As Integer) Dim x As Long Dim y As Long Dim MyMessage As String Dim MyResponse As VbMsgBoxResult x = GetSystemMetrics(SM_CXSCREEN) y = GetSystemMetrics(SM_CYSCREEN) If x = 1024 And y = 768 Then Else MyMessage = "Your current screen resolution is " & x & " X " & y & vbCrLf & "This program " & _ "was designed to run with a screen resolution of 1024 X 768 and may not function properly " & _ "with your current settings." & vbCrLf & "Would you like to change your screen resolution?" MyResponse = MsgBox(MyMessage, vbExclamation + vbYesNo, "Screen Resolution") End If If MyResponse = vbYes Then Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3") End If End Sub وفي حدث عند الفتح للنموذج نستدعي الدالة Call VerifyScreenResolution ولمن لديه تجارب في هذا الموضوع لا يبخل علينا بالتوفيق للجميع

اعتذر شديد الإعتذار استاذ رمهان فعلا .. لم يكن به بيانات .. الآن 100% تعبتك معي العذر منك

نعم استاذ رمهان مازالت قائمة ..

ممتاز استاذ رمهان جزاك الله خير وبارك فيك مع تغيير في السطر الثالث .. docmd.open aob.name الى docmd.openform abo.name والفورم الذي قمنا بالتنفيذ من خلالة لا يتم حفظ التاق تبعه هذا للعلم والفائدة ومشكور كثير استاذ رمهان

مرحبا استاذ رمهان ... وان شاء الله انك بخير وصحة وسلامة .. ومشكور على تجاوبك المشكلة في الكائن .. حاولت استخدم المتغير في الدالة للفتح ك form وحاولت بتعريف متغير اخر as form ولكن لا جدوى ... تظهر رسالة .. object doesn't support this method وشكرا مرة اخرى

العفو بالتوفيق

حياك الله اخوي الشمال هذا شكل الكود بعد التعديل Private Sub cmdEnter_Click() On Error Resume Next If IsNull([txtSerialNo]) Or ([txtSerialNo]) = "" Then MsgBox "لم تقم بإدخال رقم التسجيل ، نرجو إدخال الرقم والمحاولة مجددا", vbOKOnly + vbMsgBoxRight + vbCritical, "إجراء غير مكتمل" Me.txtSerialNo.SetFocus ElseIf (Me.HardiskSerial.Value - 52361369) * 2 = Val(Me.txtSerialNo) Then Dim Count As Integer Count = Nz(DCount("SerialNo", "SerialNo"),0) DoCmd.SetWarnings False If Count > 0 Then DoCmd.RunSQL "UPDATE SerialNo SET SerialNo.SerialNo = [forms]![Start]![txtSerialNo];" MsgBox "النسخة اصلية", vbOKOnly + vbMsgBoxRight + vbInformation, "تم التسجيل بنجاح" DoCmd.Close DoCmd.OpenForm "Al_Name" ElseIf Count = 0 Then DoCmd.RunSQL "INSERT INTO [SerialNo] ([SerialNo]) VALUES ('" & [txtSerialNo] & "')" MsgBox "النسخة اصلية", vbOKOnly + vbMsgBoxRight + vbInformation, "تم التسجيل بنجاح" DoCmd.Close DoCmd.OpenForm "Al_Name" ElseIf (Me.HardiskSerial.Value - 52361369) * 2 <> Val(Me.txtSerialNo) Then MsgBox "عفواً ، رقم التسجيل غير صحيح ً" & vbCr & "سيتم إنهاء البرنامج", vbOKOnly + vbMsgBoxRight + vbCritical, "فشل في عملية التسجيل" DoCmd.Quit End If End If End Sub بالنسبة للفورم لوق ان في الوحدة النمطية فهو غير موجود لذلك عدله الى اي نموذج في المثال .. بالتوفيق

السلام عليكم ورحمة الله وبركاته ... عندي برنامج صممته على لاب توب مقاس الشاشة 17 .... وقمت بتجربته على جهاز مكتبي عندي مقاس الشاشة 19 وتعمل الواجهه بشكل ممتاز المشكلة لدي فقط في نموذج الواجهه .. باقي النماذج منبثقة من الواجهة والحمدلله مافيها مشكلة . عند تركيبه على اجهزة العمل ... شاشة مقاس 19 يظهر فراغ من اليمين بمقدار تقريبا 3 الى 4 سم .. وهناك شاشة اخرى كبيرة مقاسها 23 تقريبا ايضا يظهر فراغ اكبر من السابق . توضيح : عند فتحه الواجهه انا معطي امر maximize ... عناصر النموذج تكون ظاهرة بشكل كامل من اليسار .. الفراغ اللي يظهر هو عبارة عن خلفية النموذج . والحيرة الاكبر هنا لماذا لم يعمل في شاشة العمل اللي مقاسها 19 مثل ماهو يعمل على الجهاز عندي . ارجو المشاركة ممن مر بتجربه مماثله او له خبرة في الموضوع .. ومشكورين مقدما .

حياك الله اخي الكريم في هذه السطر يوجد عنصر بإسم PassengerName DoCmd.RunSQL "INSERT INTO [SerialNo] ([SerialNo]) VALUES ('" & [PassengerName] & "')" وهو غير موجود ضمن المثال المرفق استبدله ب txtserialNo في النموذج .. بالتوفيق

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم بكل خير هذه الدالة ترجع بجميع اسماء النماذج في قاعدة البيانات ويقوم بإضافتها الى جدول ... اريد اضافة الى هذه الدالة بحيث تاخذ التسمية الموجودة في الـ Tag (العلامة) .. مثلا لدينا نموذج بإسم frmEmpls والـ Tag (العلامة) مكتوب فيه بيانات الموظفين ... اتمنى ان الصورة واضحة Function checkAllForms() Dim aob As AccessObject For Each aob In CurrentProject.AllForms DoCmd.RunSQL "insert into tblallfrms (frmnname) values ( '" & aob.Name & "')" Next aob End Function وشكرا مقدما

العفو وبالتوفيق

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

اخ سلمان حياك الله الصور غير موجودة

العفو وبالتوفيق

وبارك الله فيك جمل SQL هي استعلام بالأصل لم اجرب الاستعلام استخدمت الكود .. وبالتوفيق

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

حياك الله اختي الكريمة الق نظرة على الرابط http://www.officena.net/ib/topic/34968-اظهار-المكرر-فقط-تمت-الإجابة/ بالتوفيق

حياك الله اخي الكريم ارفق ماتوصلت اليه .. لا بد ان هناك خطاء في التطبيق بالتوفيق