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

اسف يا اخى العزيز

الخطأ بسبب الكتابة باللغة العربية فى الرسالة

انا صححت الخطأ واشكرك 

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

شكرا