اذهب الي المحتوي
أوفيسنا

figo82eg

03 عضو مميز
  • Content Count

    121
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

6 Neutral

1 متابع

عن العضو figo82eg

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    lphsf
  • البلد
    Egypt
  • الإهتمامات
    Reading

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. هو المطلوب أستاذى الكريم جعله الله في ميزان حسناتك
  2. لدى تقرير طباعة ايصالات للعميل ما اريده هو كود فى التقرير لمنع تكرر طباعة الفاتورة. بحيث يطبع الايصال مرة واحدة فقط. واذا تمت طباعة مرة اخرى تظهر رسائل خطأ تخبرنا بأنه تمت طباعة الايصال الاصل من قبل وغير مسموح بطباعته مرة اخرى.
  3. بارك الله فيك أستاذى الكريم على تعبك ومجهودك وجعله الله فى ميزان حسناتك
  4. ارجو المساعده عند تحدد نوع العميل منزلى يتم إستخدام جدول الأقساط البنكية الخاصه بالعملاء المزلى وعند اختيار نوع العميل تجارى يتم إختيار جدول الأقساط البنكية الخاصة بالعملاء التجارى لأن فوائد النشاط تختلف ومرفق مثال لما اريد Root650.rar
  5. بارك الله فيك أستاذى الكريم هو المطلوب فعلاَ
  6. مرفق مثال يوضح ما اريده Desktop.rar
  7. ارجو المساعدة فى هذه الفكرة حيث لدى قاعدة بيانات اكسس بها خانة قيمة القرض و عدد الاقساط وقيمة القسط. ولدى جدول اكسل به مبالغ القروض من مبلغ ١٠٠ جنيه وحتى ١٠٠٠٠ جنيه مقسم سنوات ١٢ شهر ، ٢٤ شهر حتى ٨٤ شهر كل شهر قيمة القسط. ما اريده هو عند ادخال قيمة القرض وعدد الاقساط يتم كتابة القسط تلقائى بنموذج الاكسس وفق للجدول المرفق. مع العلم ان الجدول محفوظ على شكل ملف اكسل يتم تغييره كل فترة .
  8. بارك الله فيك أستاذى العزيز وهو المطلوب
  9. اشكرك استاذى على اهتمامك استخدمت تعديل حضرتك ولكن ظهر مشكلة بعد إستخدام الكود وهى ان جميع السجلات تأخذ مسار اول صورة وتكون ثابتة في جميع السجلات ومرفق مثال لما اريد New Microsoft Office Access Application.rar
  10. ارجو المساعدة في التعديل على هذا الكود حيث أنه موضوع في تقرير لدى وفى حالة الطباعة والصورة غير محفوظة لا استطيع الطباعة وينتج عنه رسالة خطأ ما اريده هو عند الطباعة وفى حالة عدم وجود صورة يتم الطباعة بصورة عاديه بدون صوره. Me!.Picture = DLookup("figura", "BASIC_DATE")
  11. ارجو من الأخوة الأعضاء المساعدة فى التعديل على هذا الكود الذى وظيفته نقل ملفات pdf من مجلد الى أخر حيث يقوم بعملية النقل مع حذف الملف القديم اذا وجد تشابه . ما اريده هو نقل الملف داخل نفس المجلد الجديد اذا وجد ملف له نفس الإسم بمعنى انه يوجد ملفين القديم والجديد وهذا هو الكود الذى أستعمله : Private Sub Command0_Click() On Error Resume Next Dim rs As DAO.Recordset Dim fso ("Set fso = VBA.CreateObject("Scripting.FileSystemObject ("Set rs = CurrentDb.OpenRecordset("SELECT crn FROM BASIC_DATE If Not (rs.EOF And rs.BOF) Then rs.MoveFirst Do Until rs.EOF = True "sSourceFile = Application.CurrentProject.Path & "\CONTACT\" & rs!crn & ".pdf "\sDestinationFile = Application.CurrentProject.Path & "\CONTACT\old fso.CopyFile sSourceFile, sDestinationFile, True fso.DeleteFile sSourceFile rs.MoveNext Loop Else "MsgBox "no number End If "MsgBox "ok rs.Close Set rs = Nothing End Sub
  12. ارجو المساعدة فى كيفية إستخلاص بعض البيانات من خلال الرقم القومى للعميل حيث اريد عند كتابة الرقم القومى فى الخانة الخاصة به يتم كتابة تاريخ ميلاد العميل ونوع العميل سواء ذكر أو انثى تلقائى ومرفق مثال لما اريد الرقم القومى.mdb
×
×
  • اضف...