ابوخليل

تفضل
عمل محرك آلي احترافي .. ماركة مسجلة لأبي خليل .. ولا فخر
التحكم بقيم الرسوم 
إدخال المدفوعات وعرض ومشاهدة التوزيع ... حسب فكرتك تماما .. كلها في نموذج بسيط
عرض تقرير شامل لتسديد مبالغ الطالب .. المدفوعات والمتبقي
--------------------------------------
لكل من مر من هنا واستفاد .. دعواتكم لأخيكم بظهر الغيب
fees.rar

حسب علمي .. حقل المرفقات يختلف عن الحقل النصي لأن الوصول الى خصائص الصورة  داخل حقل المرفقات مختلف
بمعنى الصورة التي يحتويها ليس لها خصيصة : picture
فأمامك حل من اثنين :
اما يكون الجدول مصدر للتقرير واما ان يتم اخراج المرفق كصورة خارج قاعدة البيانات  وهنا يمكننا اظهار الصورة في التقرير
وبما انك ذكرت ان مصدر التقرير ليس الجدول فإليك الحل الآخر .
Sub SaveAttach() On Error Resume Next Dim rs As dao.Recordset Dim strobj As dao.Recordset Dim strPic As String strPic = CurrentProject.Path & "\pic.JPG" Set rs = CurrentDb.OpenRecordset("Table1") Set strobj = rs.Fields("logo").Value strobj.Fields("FileData").SaveToFile strPic Me.Image0.Picture = strPic End Sub Private Sub Report_Load() Call SaveAttach End Sub  
 
220.rar

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

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

طلبك هذا غير مفهوم
انظر لهذه الطريقة لطلبك الأول اذا تصلح لك
fmain2.rar

تفضل
Weekday(Date)=6 Or Weekday(Date)=7 عدلت لك تسميات  ... الأيام  = d1 , d2 ,d3 وهكذا .. والحقول t1 , t2 , t3  وهكذا ...  بحيث تكون سهلة بديهية على غرار الارقام
وعملت لك التنسيق الشرطي للعشرة حقول الأولى ..
اكمل البقية .. من اجل تستفيد وتتعلم
4schoolالغياب.rar

جرب كذا اخي ازهر
استخدام المتغيرات بدلا من اخذ القيمة من خلال النماذج وحقولها
اتمنى يحقق المطلوب
Amino2.rar

تفضل
هذه الدالة في وحدة نمطية عامة من اجل تأخذ القيمة من الجدول بناء على المتغير getPrintOrPdf 
قيمة هذا المتغير  تأخذ 1 أو 2  وقت النقر على الازرار .. زر الطباعة =1  وزر البي دي اف =2
Public getPrintOrPdf As Byte Public Function funReportPrintOrPdf() As Byte Dim prntNon, prntWrd, prntPic, pdfNon, pdfWrd, pdfPic prntNon = DLookup("Non", "Reportsettings_tbl") prntWrd = DLookup("Words", "Reportsettings_tbl") prntPic = DLookup("Photo", "Reportsettings_tbl") pdfNon = DLookup("NotHDFot", "Reportsettings_tbl") pdfWrd = DLookup("WORDPDF", "Reportsettings_tbl") pdfPic = DLookup("IMAGEPDF", "Reportsettings_tbl") If getPrintOrPdf = 1 Then If prntNon = True Then funReportPrintOrPdf = 1 If prntWrd = True Then funReportPrintOrPdf = 2 If prntPic = True Then funReportPrintOrPdf = 3 ElseIf getPrintOrPdf = 2 Then If pdfNon = True Then funReportPrintOrPdf = 1 If pdfWrd = True Then funReportPrintOrPdf = 2 If pdfPic = True Then funReportPrintOrPdf = 3 End If End Function  وهذه الاكواد في محرر التقرير
اخفاء الرأس والذيل في حدث فتح التقرير
والتحكم في النص والصورة في حدث الطباعة للرأس والذيل
Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer) If funReportPrintOrPdf = 2 Then Me.HRA2.Visible = True Me.HLA2.Visible = True Me.footerimage.Visible = False ElseIf funReportPrintOrPdf = 3 Then Me.HRA2.Visible = False Me.HLA2.Visible = False Me.footerimage.Visible = True End If End Sub Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer) If funReportPrintOrPdf = 2 Then Me.HRA.Visible = True Me.HLA.Visible = True Me.Headerimage.Visible = False ElseIf funReportPrintOrPdf = 3 Then Me.HRA.Visible = False Me.HLA.Visible = False Me.Headerimage.Visible = True End If End Sub Private Sub Report_Open(Cancel As Integer) Call funReportPrintOrPdf If funReportPrintOrPdf = 1 Then Me.PageHeaderSection.Visible = False Me.PageFooterSection.Visible = False Else Me.PageHeaderSection.Visible = True Me.PageFooterSection.Visible = True End If End Sub  
NEW_Hedar2.rar

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

الحقيقة ان ميكروسفت قيدت الاستعلام الجدولي بحقل واحد لاسم العمود وحقل واحد للقيمة
لذا نحن بحاجة لأن نتجاوز هذا التقييد ونعمل استعلام جدولي اوسع يلبي حاجتنا
وهذا ما تم عمله :
1- عمل استعلام تجميعي للمواد حسب ( الكهربائي / تاريخ اليوم / المادة ) مصدره الجدول الرئيسي
2- من الاستعلام المذكور تم عمل جدول مؤقت  يمثل ثلاث استعلامات جدولية .. ويكون هو مصدر بيانات التقرير
3- اعداد هذا الجدول يتم من خلال زر في النموذج
4- كل نقرة على الزر يتم حذف البيانات في الجدول واعدادها من جديد .. ( لأن البيانات المدخلة متجددة يوميا )
ملحوظة : تم تعديل تسمية الحقل Date الى sDate  لأن الاسم محجوز في اكسس
عذرا على التأخير وشكرا لصبرك ،،،
 
Datash5.rar

نعم يوجد
على اعتبار اسم الحقل : text1
حدث النقر على الزر سيكون مثل هذا
text1 = Null أو text1 = ""  

عجيب !! البحث من خلال 13 حقل 
هل تتخيل ان جميع حقولك يمكنك البحث فيها من خلال حقل واحد
على كل حال .. كلٌُ بفكره راضي
تفضل تم تحقيق طلبك
abc2.rar

انا اردت ان تأخذ الفكرة والتي هي استخدام مربع تص بدلا من صندوق الرسالة
وتعديل بسيط على كود الأستاذ القدير أزهر لتحويل الصندوق الى حقل يتحقق المطلوب
On Error GoTo Err_Dell_Click_Error If Me.TextPass.Visible = False Then Me.TextPass.Visible = True Beep MsgBox "ادخل كلمة المرور", vbOKOnly, _ "Important Information" Exit Sub End If If Me.TextPass = "12345" Then DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord Me.TextPass.Visible = False MsgBox "تم الحذف", vbOKOnly, _ "Important Information" Else Beep MsgBox "ليس لك الحق بالوصول", vbOKOnly, _ "Important Information" Me.TextPass.Visible = False Exit Sub End If Exit_Err_Dell: Exit Sub Err_Dell_Click_Error: If Err.Number = 2001 Then Resume Exit_Err_Dell End If  
base_pass.rar

تفضل
مع اني اتحاشى استخدام الماكرو في اعمالي ، لذا راعيت ان ابقي على التصميم الذي انت عملته
ستلاحظ اين وظفت اكوادي
 
baset2.rar

انظر ايضا هنا
ستجد بعض التوجيهات المفيدة في عملك

عليكم السلام
ضع هذه الدالة في وحدة نمطية عامة
Function EncryptDecrypt(strIn As String, strpass As String) As String Dim intLen As Integer Dim intCounter As Integer Dim varTmp As Variant Dim strTmp As String intLen = Len(strpass) strTmp = strIn For intCounter = 1 To Len(strIn) varTmp = Asc(Mid$(strpass, (intCounter Mod intLen) - intLen * ((intCounter Mod intLen) = 0), 1)) Mid$(strTmp, intCounter, 1) = Chr$(Asc(Mid$(strIn, intCounter, 1)) Xor varTmp) Next EncryptDecrypt = strTmp End Function يتم مناداتها سواء للتشفير او فك التشفير على النحو التالي :
rst!PassWord = EncryptDecrypt(password, userName) على اعتبار rst!PassWord هو حقل كلمة المرور في الجدول 

اتمنى اني فهمت عنك
انظر المرفق
aa.rar

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

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

الامر يسير جدا
لو تتبعت الأكواد للاحظت اني غيرت فقط false  الى true  والعكس صحيح
المثال3.rar

يوجد ايهام في ارقام الجلوس (من/ الى) 
فيتبادر الى الذهن مثلا لو تخصص يبدأ رقم الجلوس من 10 الى 20  ان العدد 10 ولكن هذا غير صحيح فيمكن الموجود 2 فقط او 3 او اربعة
بمعنى ان ( من_الى ) غير متسلسل فعلا .. ولا يعطي العدد الحقيقي
لذا عملت حقل امام التخصص يظهر العدد الفعلي
 
2.rar

ليس استعلاما واحدا بل استعلامات
فانت تتعامل مع جدولين مرتبطين .. وتريد تكرار البيانات في الجدولين مع مراعاة اختلاف رقم القيد المرتبط
المسألة بحاجة الى وسيط ( ذاكرة مؤقتة ) تحفظ السجل القديم لاستخدامه كمعيار
ووسيط آخر يمثل السجلات الجديدة
تمت المعالجة على النحو الذي ذكرته اعلاه
 
Dailyrepetition2.rar

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

تفضل اخي زياد
وجدت هذا الكود الجميل من ضمن الموجودات لدي .. من عمل اخي الأستاذ  @سعيد صواب 
لاحظ ان عليك تعديل اسماء الحقول ولجدول بما يتناسب معك
Private Sub combo0_AfterUpdate() Me.txtname = Me.combo0.Column(0) End Sub Private Sub Combo0_Change() Dim strText, strFind strText = Me.combo0.Text If Len(Trim(strText)) > 0 Then strFind = "txtname Like '" For i = 1 To Len(Trim(strText)) If (Right(strFind, 1) = "*") Then strFind = Left(strFind, Len(strFind) - 1) End If strFind = strFind & "*" & Mid(strText, i, 1) & "*" Next strFind = strFind & "'" strSQL = "SELECT table1.txtname,table1.nnumber FROM table1 Where " & _ strFind & " ORDER BY txtname;" Me.combo0.RowSource = strSQL Else strSQL = "SELECT table1.txtname,table1.nnumber FROM table1 ORDER BY table1.txtname; " Me.combo0.RowSource = strSQL End If Me.combo0.Dropdown End Sub  
Search_inside_Combo.rar

تفضل
حساب شرائح الكهرباء2.rar