mom20088

السلام عليكم

عندى قاعدة بيانات  بها  10 تقارير باسماء مختلفة 

اريد كود اضعه على زر لحفظ جميع التقارير بصيغة PDF  مرة واحدة  وبدون فتح الملف بعد الحفظ

شكرا لكم

السلام عليكم

مش عارف اشكرك ازاى يا اخى الكريم

الف الف شكر ليك

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

لكنى اريد ان يكون يكون اللون متحرك اى يطفئ ويعمل بزمن كل 1 ثانية

السلام عليكم

محتاج كود اكسس "كيف اجعل لون الحقل (قيمة) وليس لون الخط كالاتى:"

1- لون اصفر لو اقل من 42

2- لون اخضر لو اكثر من 42

3- لون احمر لو يساوى 0

محتاج لون متحرم (يطفئ ويعمل) زى كشافات الانتظار فى العربية

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

السلام عليكم

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

شكرا يا اخى

السلام عليكم

تصورك صحيح ومنتظر الرد

السلام عليكم

انا اقصد السجلات السابقة ؟ فقط اما السجلات الجديدة يسمح بالتعديل فيها

السلام عليكم اخى الكريم

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

وممكن حضرتك تقولى حولتها ازاى ببرنامج ولا باكواد

للرفع

السلام عليكم

مع الاسف الكود لايعمل عندى والخطا فى هذا الكود

Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _
                        Optional YPos, Optional HelpFile, Optional Context) As String
    Dim lngModHwnd As Long, lngThreadID As Long

    lngThreadID = GetCurrentThreadId
    lngModHwnd = GetModuleHandle(vbNullString)

    hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)

    InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context)
    UnhookWindowsHookEx hHook

احتاج كود لايسمح بالتعديل على السجلات السابقة الا بكلمة سر ويسمح بالاضافة على السجلات الجديدة فقط

حاولت استخدام  هذا الكود البسيط فى النموذج (بعد التحديث) ولكنه فى السجلات الجديدة عندما اضيف بيانات فى اول حقل يسمح بالاضافة وبعد ذلك يمنع الاضافة فى باقى الحقول الفارغة لماذا؟ 

me.allowedits=false

شكرا

السلام عليكم

اسف على التأخير

انا وجدت الحل والحمد لله وهو عبارة عن 

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

اشكركم اخوتى فى الله

شكرا لردكم على سؤالى 

مرفق البرنامج

كارت الصنف-up.rar

السلام عليكم 

عندى نموذج فى قاعدة بيانات به حقلين 

الاول واسمه qproduced (الكمية المنتجة) وهو حقل يكتب فيه اى قيمة 

الثانى واسمه text482 وهو حقل ياخد قيمته من رصيد المخزن ويتغير  بعد وضع قيمه فى الحقل الاول qproduced معنى هذا انه حقل استعلامى ولايقبل الكتابة فيه

اامعطيات هى :

اذا كان الحقل الثانى به قيمه تساوى 500 كيلوجرام فاننى متاح لى بوضع الكمية المنتجة فى الحقل الاول 500 كيلوجرام أو اقل منها واذا وضعت قيمة اكبر من 500 كيلوجرام البرنامج يرفض القيمة

وهذا هو الكود 

 ()Private Sub Qproduced_afterUpdate

If [Qproduced] > [Text482] Then
Beep
MsgBox ("Sorry ! The maximum value is " & Round([Text482], 3) & " Kg "), "" & vbCritical, "Critical Message!"
DoCmd.CancelEvent
MsgBox "Please Rewrite Value of Qproduced again!", vbCritical, "Attention"
DoCmd.RefreshRecord
Me.Undo
Else
If [Qproduced] <= [Text482] Then
Select Case MsgBox("The Production Quantity is " & Me.Qproduced.Value & Me.Unit.Value & vbCrLf & _
"", vbInformation + vbMsgBoxleft + vbYesNo, "Attention!")
Case vbYes
MsgBox " It is Ok"
DoCmd.OpenQuery "query1"
Case vbNo
DoCmd.RunCommand acCmdDeleteRecord
End Select
End If
End If

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

Private Sub Qproduced_Click()
If Me.Text482 <= 0 Then
 Me.Qproduced.Enabled = False
  MsgBox "Sorry! No Raw materials found in Store for this Product", vbCritical, "Attention"
 DoCmd.RefreshRecord
 DoCmd.OpenQuery "delete empty order"
 DoCmd.Close
 DoCmd.OpenForm "Main"
  Else
  Me.Qproduced.Enabled = True
  Me.Raw_Material_subform.Visible = True
  [Total Production by Year every month].Visible = True
  [Year Target Query].Visible = True
[packing subform1].Visible = True
    End If
End Sub

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

اى انه عند وضع قيمة 300 يتم حساب كمية المواد الخام واذا وضعت 500 طبعا يحدث زيادة فى كميات المواد الخام 

السؤال:

نفترض انى وضعت قيمة فى الحقل الاول (الكمية المنتجة) 300 كيلوجرام سوف يتبقى لى 200 كيلوجرام فى الحقل الثانى ( المخزن) وحفظت هذا السجل على ذلك.

اذا اردت تعديل حقل الكمية المنتجة من 300 الى 350 سوف يرفض البرنامج لان حقل المخزن به 200 كيلوجرام فقط وان 350 اكبر من 200 وهذا طبيعى لاننى وضعت كود (بعد التحديث) وموضحا بالاعلى  اذا كان قيمة الحقل الاول اكبر من الحقل الثانى يقوم البرنامج بالرفض 

محتاج كود يعمل الاتى

يحسب الفرق بين القيمة  القديمة المكتوبة اولا (300) والثانية(350) المراد تعديلها وهى 50 فقط وهى بالتالى اقل من قيمة رصيد المخزن ويقوم بالبرنامج بقبول التعديل؟

أو كيف يتم التعديل للقيمة الجديدة ؟

اسف جدا لعدم ارفاقى للقاعدة 

شكرا أخى الكريم على مجهودك معى

السلام عليكم

اسف على التأخير فى الرد

هذو هى الرسالة التى تظهر لى عند تحويل قاعدة البيانات

This error is usually associated with compiling a large database into an MDE file.  Because of the method used to compile the database, a considerable number of TableID references are created for each table.  The Access database engine can only create a maximum of 2048 open TableIDs at one time.  Exporting a database as an MDE potentially can exceed this limit if the database has a large number of objects (table, macro, form, report, etc).
There is no accurate method to estimate the number of TableIDs the Access database engine uses during the process of compiling a database as an MDE.  However, each VBA module and each form uses one TableID, as a result, if the database has 500 forms, and each form's HasModule property is set to Yes, as many as 1,000 TableIDs are used.
 

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

السلام عليكم

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

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

ما هو الحل برايكم؟

شكرا

السلام عليكم ورحمة الله

اريد كود لمنع عمل right click على التقارير  مع امكانية عمل تخزين التقرير على صورة PDF

شكرا

تفضل اخى الكريم

اريد عمل الكود فى نموذج اضافة اذن الاضافة

كارت الصنف.rar

شكرا أخى الكريم على مجهودك

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

اريد التعديل على كل النماذج بزر واحد

شكرا

السلام عليكم ورحمة الله وبركاته

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

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

ومعنى هذا ان اريد كل الحقول اللى فى النموذج تكون مغلقة ولايسمح بتعديلها الا بعد كتابة الرقم السرى

اذا كان من الافضل ان اضع زر تعديل كيف اضع زر تعديل لكل النماذج الفرعية والرئيسية معا فى زر واحد

شكرا

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

السلام عليكم

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

وفعلت كما هو مدون بالاسفل مع العلم انى استخدم اوفيس 2013

الموضوع الاصلى

مرفق البرنامج

هذه طريقة عمل حماية من نوع زرع ملف داخل الجهاز

ففي كل مرة يتم فتح البرنامج يتم التاكد من وجود الملف المزروع

فإن لم يجده ستظهر واجهة تطالب بالترخيص وهي عبارة عن اسم المستخدم وكلمة السر .

ملاحظة مهمة : الاكواد جميعها من صنع الأخت زهرة جزاها الله خيرا

لكن مع بعض التعديل وهو ما يسمونه (بتصرف) :(

الفكرة العامة ..

* عند بدء تشغيل البرنامج سيتم التأكد من وجود الملف (officena.dll) داخل القرص C

* عند عدم وجوده سيتم تحويلك الى واجهة المطالبة برقم الرخصة وهي اسم المستخدم وكلمة السر .

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

* في المرة القادمة وعند تشغيل البرنامج لن يتم المطالبة برقم الرخصة .

اليكم أخواني هذه الطريقة :

1- أنشئ نموذج باسم (Chek_It) وضع فيه الكود التالي في حدث عند الفتح :

Private Sub Form_Open(Cancel As Integer)
On Error GoTo ERROR_SUB
Open "c:\" & "officena.dll" For Input As #1
Close #1
ERROR_SUB:
If Err.Number = 53 Then
MsgBox "أنت تعمل على نسخة غير مرخصة "
Close #1
DoCmd.Close
DoCmd.OpenForm "get_file"
End If
End Sub

2- أنشئ نموذج آخر بإسم (Get_File) 3- أنشئ مربعي نص باسم UN و PW وزر أمر CHkit. 4- ضع الكود التالي في حدث عند النقر للزر CHkit:

Private Sub CHkit _Click()
If UN.Value = "www" And PW.Value = "1234" Then
Open "c:\officena.dll" For Binary Access Write As #1
Close #1
MsgBox "اسم المستخدم وكلمة السر صحيحة", vbOKOnly, "نجحنا"
DoCmd.Quit acQuitSaveAll
Else
MsgBox "اسم المستخدم أو كلمة غيرصحيحة"
End If
End Sub

شكرا لمجهودكم معى

ProtectionByFile.rar