.Azhar

وهذا هو فعلا ما موجود انظر الى الكود وانظر الى التأشيرات الحمراء Private Sub cmdLogin_Click() 'التحقق من اسم المستخدم If IsNull(Me.cboDept) Then MsgBox "يجب ادخال اسم المستخدم", vbCritical Me.cboDept.SetFocus Else 'التحقق من كلمة المرور If Me.txtPassword.Value = DLookup("pwPW", "faqPW", "[pwPKID]=" & Me.cboDept.Value) Then lngPKID = DLookup("pwPKID", "faqPW", "[pwPKID]=" & Me.cboDept.Value) DoCmd.OpenForm "هنا نضع اسم الفورم الذي نريد ان يفتح " Me.Visible = False Else MsgBox "كلمة المرور غير صحيحة", vbOKOnly, "الادخال غير صحيح" Me.txtPassword = Null Me.txtPassword.SetFocus End If End If 'اذا قام المستخدم بادخال كلمة مرور غير صحيحة 3 مرات سوف يغلق البرنامج intLogonAttempts = intLogonAttempts + 1 If intLogonAttempts > 3 Then MsgBox "ليس لديك حق الوصول الى البرنامج راجع مدير المشروع", vbCritical, "Restricted Access!" Application.Quit End If End Sub في السطر الاحمر الاول تضع اسم الفورم الخاص بالبيانات بدل السطر الاحمر الاول . اما في حالة عدم الاغلاق تستطيع زيادة عدد المحاولات او ايقاف اخر اربعة سطور من الكود باستثناء السطرين الاخيرين اما اذا لا تريد ذلك وتريد غلق الفورم فقط وليس غلق البرنامج كله تستخدم بدل Quit ـــــــــ> Close

ابو عبد الله يمكنك مراجعة هذا الرابط http://www.officena.net/ib/index.php?showtopic=55850

تفضل هذا التعديل لكن ليس على التقرير انا عملته لك على الاستعلام يمكنك ان تصنع تقرير بناءً على الاستعلامات Qyr1 و Qyr2 انا استخدمت الدالة Case وازرار اختيار عند اختيار شخصي والنقر على معاينة التقرير هذا هو الكود الخاص بالاوامر . Private Sub Command25_Click() On Error GoTo Err_Command25_Click Dim stDocName As String Dim c As Integer Dim f As String c = Me.Frame15.Value Select Case c Case 1 f = "Qyr1" Case 2 f = "QYR2" Case 3 End Select DoCmd.OpenQuery f, acViewNormal Exit_Command25_Click: Exit Sub Err_Command25_Click: MsgBox "يتوجب عليك اختيار نوع الكفالة", , "AZHAR ALiraqee" Resume Exit_Command25_Click End Sub 27-9 final.rar

مرورك استاذ على هو الرائع والجميل كل عام وانت بالف خير

يمكنك استخدام هذا الكود في لغة SQL وهو يظهر لك عدد ايام الاجازة باستثناء اليوم الاول وحساب اليوم الاخير SELECT Table.employeeID, Table.Nam, DateDiff("d",[Table].startDate,[Table].endDate) AS TotalSick FROM [Table]; حيث على افتراض اسم جدولك هو Table وكذلك حقول بداية التاريخ هو startDate ونهاية التاريخ endDate واسم الموظف هو Nam والمفتاح الاساسي للجدول employeeID .

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

انا اكملت البرنامج ..... وانتم هل قمتم باتمامه هههههههه . تحياتي لكم . اخوكم ازهر

الامر الثالث والاخير والمهم هو الكود نذهب الى الزر الذي وضعناه على الفورم والذي اسميناه cmdLogin ونذهب لخصائصه ومن الخصائص نختار حدث عند النقر . ونقوم بنسخ الكود التالي ولصقه فيه Private Sub cmdLogin_Click() 'التحقق من اسم المستخدم If IsNull(Me.cboDept) Then MsgBox "يجب ادخال اسم المستخدم", vbCritical Me.cboDept.SetFocus Else 'التحقق من كلمة المرور If Me.txtPassword.Value = DLookup("pwPW", "faqPW", "[pwPKID]=" & Me.cboDept.Value) Then lngPKID = DLookup("pwPKID", "faqPW", "[pwPKID]=" & Me.cboDept.Value) DoCmd.OpenForm "هنا نضع اسم الفورم الذي نريد ان يفتح " Me.Visible = False Else MsgBox "كلمة المرور غير صحيحة", vbOKOnly, "الادخال غير صحيح" Me.txtPassword = Null Me.txtPassword.SetFocus End If End If 'اذا قام المستخدم بادخال كلمة مرور غير صحيحة 3 مرات سوف يغلق البرنامج intLogonAttempts = intLogonAttempts + 1 If intLogonAttempts > 3 Then MsgBox "ليس لديك حق الوصول الى البرنامج راجع مدير المشروع", vbCritical, "Restricted Access!" Application.Quit End If End Sub وايضا نذهب لخصائص الفورم او النموذج ونختار من خصائصه حدث عند التحميل ونضع هذا الكود , فائدة هذا الكود هو عند فتح البرنامج في كل مره لا تبقى كلمات السر محفوظه في الفورم وكذلك ايضا يتم الانتقال مباشرة عند الفتح مؤشر الماوس الى الكومبو بوكس Private Sub Form_Load() Me.cboDept.SetFocus Me.cboDept = Null Me.txtPassword = Null End Sub

الان بعد اكمال الجدول نذهب لعمل فورم نفتح نموذج جديد بالتصميم نضع على الفورم كومبو بوكس ونسميه cboDept ونصع مربع نص ونسميه txtPassword ونضع زر ونسمية cmdLogin نذهب الان الى خصائص الكومبو بوكس ومن Row Source بالعربي مصدر الصف ونضغط على الزر الصغير يظهر لنا نافذة الاستعلام نختار الجدول ومن الجدول نختار الحقول pwPKID و pwDEPT بعدها نقوم بالحفظ فيصبح النموذج او الفورم بهذه الصور

كل عام وانتم بالف خير عيد سعيد عليكم وانشاء الله تحقيق امنياتكم وجعل الله ايامكم مسرة وفرح . اخواني اخواتي الاعزاء اليوم سوف اشرح لكم وبالتفصيل والصور كيف نعمل فورم خاص بالباسوورد . المتطلبات جدول فورم كود VBA 1. الجدول : نقوم بانشاء جدول يحتوي على الحقول التالية :- الحقل الاول : pwPKID /الخصائص ترقيم تلقائي / مفتاح اساسي الحقل الثاني : pwDEPT / الخصائص نص الحقل الثالث : pwPW / الخصائص نص الحقل الرابع: pwOWN/ الخصائص نص نحفظ الجدول باسم : faqPW الصورة النهائية للجدول تصبح بهذا الشكل .

تابع هذا الموضوع http://www.officena.net/ib/index.php?showtopic=55821

تستطيع التحكم بانتقال مؤشر الماوس من حقل الى اخر باستخدام زر الانتر او زر التاب ويمكن تنسيق حركة النتقل من خلال امر Tab Order كما موضح في الصورة

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

اعتقد تحتاج شيء مثل هذا انظر الى هذه الجداول والعلاقات فيما بينها . هذا تصميم لبرنامج ادارة مستودع ادوية / صادرة و واردة

وعليك سلام الله انا سعيد جدا لمساعدتك اتمنى لك النجاح .

المثال جدا بسيط ما عليك الا مراجعة جملة SQL في سطر VBA ومراجعة مصدر بيانات الكومبو بوكس . وسوف تجد الحل .

تفضل اخي وكلمة المرور هي 123456 Dat.rar

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

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

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

اهلا بك اخي العزيز هنالك عدة ملاحظات وانا اعدك سوف اقوم بتعديل الجداول لك . الملاحظات 1. لا تحتاج الى جدول الجنس 2. لا تحتاج الى جدول الحالة الاجتماعية . 3. جدول صلة القرابه خطأ . 4 . لا تحتاج الى جدول نوع العقار . 5 .تحتاج الى جدول افراد العائلة .

http://www.officena.net/ib/index.php?showtopic=55804

تضع هذا الكود في زر حدث عند النقر / التالي Next With Me.Recordset If .AbsolutePosition < .RecordCount - 1 Then .MoveNext End If End With وتضع هذا الكود في حدث عند النقر / السابق Previous With Me.Recordset If .AbsolutePosition <> 0 Then .MovePrevious End If End With واعطيني النتائج

اذا لم يعمل عندك الكود استبدل السطر هذا If CountOfTodaysEntries >= 50 Then بهذا السطر بمعنى استخدم دالة IIf والغاء علامة = والابقاء على علامة الاكبر من فيصبح بهذا الشكل . IIf CountOfTodaysEntries > 50 Then انا لم اجرب هذا على مثال حاول انت ان تجربه واعطني النتائج . اتمنى لك النجاح .

على ما اعتقد تحتاج شي من هذا القبيل ويجب ان يكون الادخال من الفورم وليس مباشرة من الجدول . الالوان باللون الاخضر هي اسم جدولك واسم حقل تاريخ اليوم ويجب ان يكون ذاتياً ورقم ID معرف السجل لديك . Private Sub Form_BeforeUpdate(Cancel As Integer) Dim CountOfTodaysEntries As Integer CountOfTodaysEntries = DCount("YourFieldID", "YourTable", "YourDateField = Date() AND YourUserID = " & Me.UserID) If CountOfTodaysEntries >= 50 Then MsgBox "الادخالات اليومية بلغت حدها الاقصى " Cancel = True End If End Sub