mom20088

بشكرك على اخلاقك الحميدة وربنا يجعلك مع النبيين والصديقيين والشهداء واناطمعان فى اجابة على سؤال مهم جدا ازاى اعمل نسخة تجريبية لللبرنامج بتاعى وبعد كده يدمر البرنامج بتاعى ويمسح كل الداتا وازاى اقدر احمى البرنامج والاكواد من الهاكرز وان اى حد يحاول يدخل باسورد خطا فى حماية محرر الاكواد يمسح كل الاكواد ويدمر البرنامج نهائيا

اشكرك يا اخى الكريم التعديل ميه ميه وجزاك الله خير الجزاء

بمناسبة عيد الاضحى احب اوجه التحية لكم جميعا

السلام عليكم اشكرك اخى الكريم على الكود الرائع انا محتاج فقط يبقى التوقيت ٣٠ ثانية فقط ويبقى العد تنازلى اى يبدا من ٣٠ ثانية الى الصفر شكرا اخى الكريم

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

السلام عليكم عندى قاعدة بيانات فى جدول المستخدمين ويحتوى هذا الجدول على user name - password انا عملت نموذج للمستخدمين واسمه login واريد ان اعمل كودين كالاتى:- 1- لو كتبت اسم المستخدم أو كلمة السر خطأ اكتر من 3 مرات يقوم بتعطيل شاشة الدخول لمدة دقيقة واحدة والعداد يكون ظاهر ( بمعنى انه يعمل lock لمدة دقيقة ولايسمح بكتابة أى شئ) 2- لو ادخلت الرقم السرى خطا 10 محاولات يقفل البرنامج ولما يفتح يطلب رقم سرى لــــ admin 3- الكود الثانى اللى انا محتاجه انى لو كتب اسم المستخدم والرقم السرى خطأ يعطى رسالة خطأ ويمسح اسم المستخدم والرقم السرى عشان أكتبهم تانى شكرا مرفق البرنامج formulation final.rar

محتاج مساعدة منكم يا اهل الخبرة

السلام عليكم عندى قاعدة بيانات فى جدول المستخدمين ويحتوى هذا الجدول على user name - password انا عملت نموذج للمستخدمين واسمه login واريد ان اعمل كودين كالاتى:- 1- لو كتبت اسم المستخدم أو كلمة السر خطأ اكتر من 3 مرات يقوم بتعطيل شاشة الدخول لمدة دقيقة واحدة والعداد يكون ظاهر ( بمعنى انه يعمل lock لمدة دقيقة ولايسمح بكتابة أى شئ) 2- لو ادخلت الرقم السرى خطا 10 محاولات يقفل البرنامج ولما يفتح يطلب رقم سرى لــــ admin 3- الكود الثانى اللى انا محتاجه انى لو كتب اسم المستخدم والرقم السرى خطأ يعطى رسالة خطأ ويمسح اسم المستخدم والرقم السرى عشان أكتبهم تانى شكرا مرفق البرنامج formulation final.rar

الف شكر أخى الكريم

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

السلام عليكم اريد دالة فصل الحروف عن الارقام والعكس فى حقل الاكسس حيث الحقل يحتوى على (100ml) وأيضا يحتوى على (1L) اريد معادلة تكون نتيجتها (ml) أو (L) ومعادلة اخرى تكون نتيجتها (100) أو (1) يعنى عاوز معادلتين شكرا

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

ياريت حد يساعدنى ارجوكم

السلام عليكم ورحمة الله وبركاته عندى قاعدة بيانات عبارة عن الجدول الاول: اسماء المنتجات واسمه (products) الجدول الثانى الانتاج واسمه (production ) الجدول الثالث: التعبئة واسمه (pack) الجدول الرابع: خروج المنتجات (out) الاستعلام وهو عبارة عن المنتجات التى انتجتها وادخلتها المخزن واسمه (in query) > الاستعلام الثانى: وهو عبارة عن المنتجات الخارجة من المخزن واسمه (out query) المطلوب: عاوز اعمل استعلام عن المنتجات المتبقية ( الفرق بين المنتجات الداخلة والمنتجات الخارجة) بس عندى مشكلة ان كل منتج ممكن يكون فيه احجام متنوعة (100ml -250ml) اللى هو اسمه فى الجداول volume وانا محتاج انى اعمل استعلام عن الكمية المتبقية مع مراعاة اسم المنتج والحجم وللعبم ان فيه منتجات لم تخرج من المخزن يعنى الكمية المتبقية فيها هى نفس الكمية المتبقية وانا اريد ذكرها فى الاستعلام النهائى فى النهاية المطلوب: رصيد المنتجات كلها فى المخزن New Microsoft Access Database.rar

أنا هاعدلها وهاحاول اظبط التقويم على البرنامج بتاعى بس ممكن ابقى ابعتهولك عشان تصلح الاخطاء

انا وجدق قاعد بيانات لتقويم السنة الجديدة على موقع أجنبى وحبيت انسخها على قاعدة بيانات عندى عشان ازود امكانية البرنامج القاعدة عبارة عن تقويم سنة ميلادية بتعطيط تقرير مفصل فى كل يوم من أيام السنة حبيت اطبقها على برنامج الانتاج اللى انشئته لكن فى مشاكل كتير مش عارف احلها اولها ان الكود بيشتغل على برنامج 32 بت وانا عندى 64 بت ثانيا انا عندى جدول اسمه (production) الجدول ده عبارة عن اسم المنتج - الكمية المنتجة - تاريخ الانتاج - تاريخ الانتهاء انا اريد ان اكتب جميع البيانات ده فى التقويم يعنى لما اختار السنة والشهر بيقوم بعرض جميع البيانات فى التقويم ومرفق صورة من شكل نموذج التقويم ونسخة من البرنامج فيه نموذج التقويم يا ريت حد يساعدنى ويصلحلى الكود ويظبطه على برنامجى وانا هادعيله دعوة على الافطار بظهر الغيب fin - Copy_2.rar

اخى العزيز مرفق قاعدة البيانات من فضلك حاول تساعدنى محتاج انا البيانات اللى فى جدول production تتسجل فى التقويم السنة الميلادية كل ما اختار السنة والشهر من نموذج التقويم يعطينى ما فعلته بالظبط كما هو مدون فى جدول production والبيانات عبارة عن: الكمية المنتجة - اسم المنتج - تاريخ الانتاج وتاريخ الانتهاء والايام اللى مفيهاش انتاج يكتب فيها " لا يوجد انتاج" اشكرك يا اخى العزيز fin - Copy.rar

انا محتاج مساعدتكم الكود ده خاص بنموذج تقويم سنة ميلادية ومرفق صورة لشكل النموذج انا جبته وعملت نسخ ليه فى قاعدة البيانات بتاعتى وغيرت من بعض البيانات اللى فى الجدول بتاعى الكود ده بيعطينى خطأ وانا معلم مكان الخطأ باللون الازرق بس مش عارف ليه كل ما يعطينى خطأ يفتح نافذة الكود ويقف على المكان المذكور مرفق نسخة من البرنامج ( تقويم السنة) واريد تطبيقه على البرنامج بتاعى Private Sub PopulateCalendar() On Error GoTo Err_PopulateCalendar Dim strFirstOfMonth As String, bytFirstWeekdayOfMonth As Byte, bytBlockCounter As Byte Dim bytBlockDayOfMonth As Byte, lngBlockDate As Long, ctlDayBlock As Control Dim bytDaysInMonth As Byte, bytEventDayOfMonth As Byte, lngFirstOfMonth As Long Dim lngLastOfMonth As Long, lngFirstOfNextMonth As Long, lngLastOfPreviousMonth As Long Dim lngEventDate As Long, bytBlankBlocksBefore As Byte, bytBlankBlocksAfter As Byte Dim astrCalendarBlocks(1 To 42) As String, dB As Database, rstEvents As Recordset Dim strSelectEvents As String, strEvent As String, strPlatoons As String Dim intMonth As Integer, intYear As Integer, lngSystemDate As Long 'CFB added 1-25-08 Dim ctlSystemDateBlock As Control, blnSystemDateIsShown As Boolean 'CFB added 1-25-08 Dim strSQL As String 'Added 4/16/2008 Dim blnRetVal lngSystemDate = Date 'CFB added 1-25-08 intMonth = objCurrentDate.Month intYear = objCurrentDate.Year lstEvents.Visible = False lblEventsOnDate.Visible = False lblMonth.caption = MonthAndYear(intMonth, intYear) strFirstOfMonth = Str(intMonth) & "/1/" & Str(intYear) 'ADezii 'NOTE: Will work in the UK (United Kingdom) and other European Nations 'strFirstOfMonth = "1/" & Str(intMonth) & Str(intYear) bytFirstWeekdayOfMonth = Weekday(strFirstOfMonth) lngFirstOfMonth = DateSerial(intYear, intMonth, 1) lngFirstOfNextMonth = DateSerial(intYear, intMonth + 1, 1) lngLastOfMonth = lngFirstOfNextMonth - 1 lngLastOfPreviousMonth = lngFirstOfMonth - 1 bytDaysInMonth = lngFirstOfNextMonth - lngFirstOfMonth bytBlankBlocksBefore = bytFirstWeekdayOfMonth - 1 bytBlankBlocksAfter = 42 - (bytBlankBlocksBefore + bytDaysInMonth) Set dB = CurrentDb strSQL = "SELECT * From Production " strSQL = strSQL & "WHERE Production.[Production Date] Between " & lngFirstOfMonth & " And " & lngLastOfMonth & _ " ORDER BY Production.[Production Order];" Set rstEvents = dB.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges) 'Added 4/16/2008 Do While Not rstEvents.EOF strEvent = "[" & rstEvents![Production Order] & "] - " bytEventDayOfMonth = (rstEvents!Production_Date - lngLastOfPreviousMonth) bytBlockCounter = bytEventDayOfMonth + bytBlankBlocksBefore If astrCalendarBlocks(bytBlockCounter) <> "" Then astrCalendarBlocks(bytBlockCounter) = _ astrCalendarBlocks(bytBlockCounter) & vbNewLine & strEvent Else astrCalendarBlocks(bytBlockCounter) = strEvent End If rstEvents.MoveNext Loop For bytBlockCounter = 1 To 42 'blank blocks at start of month Select Case bytBlockCounter Case Is < bytFirstWeekdayOfMonth astrCalendarBlocks(bytBlockCounter) = "" ReferenceABlock ctlDayBlock, bytBlockCounter ctlDayBlock.BackColor = 12632256 ctlDayBlock = "" ctlDayBlock.Enabled = False ctlDayBlock.Tag = "" Case Is > bytBlankBlocksBefore + bytDaysInMonth 'blank blocks at end of month astrCalendarBlocks(bytBlockCounter) = "" ReferenceABlock ctlDayBlock, bytBlockCounter ctlDayBlock.BackColor = 12632256 ctlDayBlock = "" ctlDayBlock.Enabled = False ctlDayBlock.Tag = "" If bytBlankBlocksAfter > 6 And bytBlockCounter > 35 Then ctlDayBlock.Visible = False End If Case Else 'blocks that hold days of the month bytBlockDayOfMonth = bytBlockCounter - bytBlankBlocksBefore ReferenceABlock ctlDayBlock, bytBlockCounter lngBlockDate = lngLastOfPreviousMonth + bytBlockDayOfMonth 'block's date If bytBlockDayOfMonth < 10 Then ctlDayBlock = Space(2) & bytBlockDayOfMonth & _ vbNewLine & astrCalendarBlocks(bytBlockCounter) Else ctlDayBlock = bytBlockDayOfMonth & _ vbNewLine & astrCalendarBlocks(bytBlockCounter) End If 'If this block is the system date, change its color (CFB 1-25-08) If lngBlockDate = lngSystemDate Then ctlDayBlock.BackColor = QBColor(13) ctlDayBlock.ForeColor = QBColor(15) Set ctlSystemDateBlock = ctlDayBlock blnSystemDateIsShown = True Else ctlDayBlock.BackColor = 16777215 ctlDayBlock.ForeColor = 8388608 '====> Added by ADezii on 1/28/2008 (Date End If 'Text was essentially invisible without it for ctlDayBlock.Visible = True 'Block representing current day position) ctlDayBlock.Enabled = True ctlDayBlock.Tag = lngBlockDate End Select Next 'If the system date is in this month, show its events (CFB added 1-25-08) If blnSystemDateIsShown Then PopulateEventsList ctlSystemDateBlock End If Call PopulateYearListBox 'Added by ADezii on 1/28/2008 - suggested by CFB Exit_PopulateCalendar: Exit Sub Err_PopulateCalendar: MsgBox Err.Description, vbExclamation, "Error inPopulateCalendar()" Resume Exit_PopulateCalendar End Sub ConfCtr_Smpl.zip New Microsoft Access Database - Copy.rar

انا محتاج مساعدتك يا أستاذنا الكود ده بيعطينى خطأ وانا معلم مكان الخطأ بس مش عارف ليه كل ما يعطينى خطأ يفتح نافذة الكود ويقف على المكان المذكور Private Sub PopulateCalendar() On Error GoTo Err_PopulateCalendar Dim strFirstOfMonth As String, bytFirstWeekdayOfMonth As Byte, bytBlockCounter As Byte Dim bytBlockDayOfMonth As Byte, lngBlockDate As Long, ctlDayBlock As Control Dim bytDaysInMonth As Byte, bytEventDayOfMonth As Byte, lngFirstOfMonth As Long Dim lngLastOfMonth As Long, lngFirstOfNextMonth As Long, lngLastOfPreviousMonth As Long Dim lngEventDate As Long, bytBlankBlocksBefore As Byte, bytBlankBlocksAfter As Byte Dim astrCalendarBlocks(1 To 42) As String, dB As Database, rstEvents As Recordset Dim strSelectEvents As String, strEvent As String, strPlatoons As String Dim intMonth As Integer, intYear As Integer, lngSystemDate As Long 'CFB added 1-25-08 Dim ctlSystemDateBlock As Control, blnSystemDateIsShown As Boolean 'CFB added 1-25-08 Dim strSQL As String 'Added 4/16/2008 Dim blnRetVal lngSystemDate = Date 'CFB added 1-25-08 intMonth = objCurrentDate.Month intYear = objCurrentDate.Year lstEvents.Visible = False lblEventsOnDate.Visible = False lblMonth.caption = MonthAndYear(intMonth, intYear) strFirstOfMonth = Str(intMonth) & "/1/" & Str(intYear) 'ADezii 'NOTE: Will work in the UK (United Kingdom) and other European Nations 'strFirstOfMonth = "1/" & Str(intMonth) & Str(intYear) bytFirstWeekdayOfMonth = Weekday(strFirstOfMonth) lngFirstOfMonth = DateSerial(intYear, intMonth, 1) lngFirstOfNextMonth = DateSerial(intYear, intMonth + 1, 1) lngLastOfMonth = lngFirstOfNextMonth - 1 lngLastOfPreviousMonth = lngFirstOfMonth - 1 bytDaysInMonth = lngFirstOfNextMonth - lngFirstOfMonth bytBlankBlocksBefore = bytFirstWeekdayOfMonth - 1 bytBlankBlocksAfter = 42 - (bytBlankBlocksBefore + bytDaysInMonth) Set dB = CurrentDb strSQL = "SELECT * From Production " strSQL = strSQL & "WHERE Production.[Production Date] Between " & lngFirstOfMonth & " And " & lngLastOfMonth & _ " ORDER BY Production.[Production Order];" Set rstEvents = dB.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges) 'Added 4/16/2008 Do While Not rstEvents.EOF strEvent = "[" & rstEvents![Production Order] & "] - " bytEventDayOfMonth = (rstEvents!Production_Date - lngLastOfPreviousMonth) bytBlockCounter = bytEventDayOfMonth + bytBlankBlocksBefore If astrCalendarBlocks(bytBlockCounter) <> "" Then astrCalendarBlocks(bytBlockCounter) = _ astrCalendarBlocks(bytBlockCounter) & vbNewLine & strEvent Else astrCalendarBlocks(bytBlockCounter) = strEvent End If rstEvents.MoveNext Loop For bytBlockCounter = 1 To 42 'blank blocks at start of month Select Case bytBlockCounter Case Is < bytFirstWeekdayOfMonth astrCalendarBlocks(bytBlockCounter) = "" ReferenceABlock ctlDayBlock, bytBlockCounter ctlDayBlock.BackColor = 12632256 ctlDayBlock = "" ctlDayBlock.Enabled = False ctlDayBlock.Tag = "" Case Is > bytBlankBlocksBefore + bytDaysInMonth 'blank blocks at end of month astrCalendarBlocks(bytBlockCounter) = "" ReferenceABlock ctlDayBlock, bytBlockCounter ctlDayBlock.BackColor = 12632256 ctlDayBlock = "" ctlDayBlock.Enabled = False ctlDayBlock.Tag = "" If bytBlankBlocksAfter > 6 And bytBlockCounter > 35 Then ctlDayBlock.Visible = False End If Case Else 'blocks that hold days of the month bytBlockDayOfMonth = bytBlockCounter - bytBlankBlocksBefore ReferenceABlock ctlDayBlock, bytBlockCounter lngBlockDate = lngLastOfPreviousMonth + bytBlockDayOfMonth 'block's date If bytBlockDayOfMonth < 10 Then ctlDayBlock = Space(2) & bytBlockDayOfMonth & _ vbNewLine & astrCalendarBlocks(bytBlockCounter) Else ctlDayBlock = bytBlockDayOfMonth & _ vbNewLine & astrCalendarBlocks(bytBlockCounter) End If 'If this block is the system date, change its color (CFB 1-25-08) If lngBlockDate = lngSystemDate Then ctlDayBlock.BackColor = QBColor(13) ctlDayBlock.ForeColor = QBColor(15) Set ctlSystemDateBlock = ctlDayBlock blnSystemDateIsShown = True Else ctlDayBlock.BackColor = 16777215 ctlDayBlock.ForeColor = 8388608 '====> Added by ADezii on 1/28/2008 (Date End If 'Text was essentially invisible without it for ctlDayBlock.Visible = True 'Block representing current day position) ctlDayBlock.Enabled = True ctlDayBlock.Tag = lngBlockDate End Select Next 'If the system date is in this month, show its events (CFB added 1-25-08) If blnSystemDateIsShown Then PopulateEventsList ctlSystemDateBlock End If Call PopulateYearListBox 'Added by ADezii on 1/28/2008 - suggested by CFB Exit_PopulateCalendar: Exit Sub Err_PopulateCalendar: MsgBox Err.Description, vbExclamation, "Error inPopulateCalendar()" Resume Exit_PopulateCalendar End Sub

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

السلام عليكم محتاج اعمل قاعدة بيانات فيها تقويم السنة الميلادية زى الاكسل كده وتكون النتيجة عبارة عن شهور السنة مثلا سنة 2016 ويتكتب فى كل يوم من ايام النتيجة اعمال الانتاج شكرا مرفق صورة من طلبى New Microsoft Access Database.rar

أشكرك أخى العزيز لكن ليس هذا المطلوب يا أخى طلبى انه فى الاستعلام يذكر السنة وكمية الانتاج فيها لكل المنتجات مثلا: سنة 2014 انا انتجت مادة a وكميتها 1000 طن وأريد استعلام عن نفس النسة يكتب للمنتج a وكذكلك المنتج b لكن فى المنتج b يكتب صفر فى الاستعلام مع العلم انا لم اكتب فى جدول الانتاج مادة b لكن انا اريد انه يعطينى معلومة عن كمية الانتاج ل b

انا عندى قاعدة بيانات عبارة عن جدولين الجدول الاول : فيه المنتجات ( أسم المنتج ورقم المنتج) الجدول الثانى : عبارة عن الانتاج ( أمر الانتاح - كمية الانتاج - تاريخ الانتاج - سنة الانتاج - شهر الانتاج - اسم المنتج) المطلوب: انا انتجت فى سنة 2014 - 2015 - 2016 بس منتجات مختلفة عاوز اعمل استعلام عن جميع المنتجات بداية من 2014 الى السنة الحالية ولو كان منتج معين لم يتم انتاجه يكتب صفر فى قيمة الاستعلام هل عنده حل ؟ مرفق قاعدة البيانات New Microsoft Access Database.rar

If [Qproduced] > [Text482] Then Beep MsgBox ("The Entered value high than" & [Text482] & " Kg ") & """", vbCritical, "Critical Message!" DoCmd.CancelEvent MsgBox "This order will be deleted now!", vbCritical, "Attention" DoCmd.OpenQuery "Query3" DoCmd.RefreshRecord DoCmd.GoToRecord , , acNewRec End If الكود كويس جدا ومفيهوش غير مشكلة واحدة ان قيمة الحقل text482 كبيرة جدا مثلا 7584.25896214 انا عاوز يكون الرقم ده مختصر 7584.25 فقط مش عاوز اكتر من كده مع العلم انا عامل تنسيق الحقل من الخصائص fixed

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