• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

htkamal

اعضاء جدد
  • عدد المشاركات

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

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

كل شيء نشر بواسطة htkamal

  1. تفضل اخي الكريم مع ضرورة التعديل كما هو موضح ادناه يرجى ملئ الفراغات اداناه و وضع الكود في حدث بعد التحديث x1= اسم العمود او الحقل في الجدول x2= اسم الجدول x3 = اسم مربع النص في النموذج If DLookup("[x1]", "[x2]", "[x1] = '" & [x3] & "' ;") <> [x3] Then MsgBox "هذا الصنف غير مسجل", vbMsgBoxRight + vbCritical, "تنبيه"  
  2. تفضل اخي الكريم حيث ان tabale_name هو اسم الجدول الذي سيتم التعديل عليه و column1 اسم العمود او الحقل الذي به التاريخ في الجدول يجب عليك تعديل قيمة x1 كما هو موضح ادناه DoCmd.SetWarnings False Dim x1 x1 = [حقل التاريخ في النموذج] DoCmd.RunSQL "UPDATE [table_name] SET [column1] = '" & x1 & "' ;" DoCmd.SetWarnings True MsgBox "تم التعديل بنجاح", vbMsgBoxRight + vbOKOnly, "تأكيد"  
  3. اخي الكريم سأشرح لك الموضوع بالتفصيل  اولاً / تم استدعاء اسم المستخدم UserName  من جدول PASS بناء على المدخلات في حقل n1 و حقل n2   DLookup("[UserName]", "[Pass]", "[UserName] = '" & [n1] & "' AND [Password]= '" & [n2] & "' ") اذا تحقق شرط التطابق اسم المستخدم في النموذج مع اسم المستخدم و كلمة المورر المدخل في النموذج   If DLookup("[UserName]", "[Pass]", "[UserName] = '" & [n1] & "' AND [Password]= '" & [n2] & "' ") = Me.n1 Then سيتم تنفيذ شرط فتح النموذج  و ارسال اسم المستخدم الى حقل التمسية رقم 3 وسيتم اغلاق نموذج الدخول DoCmd.OpenForm "welcome" [Forms]![welcome]![تسمية3].Caption = "اهلا وسهلا بك" & " : " & Me.n1 DoCmd.Close acForm, "pass"     لكن توجد طريقة سهلة جداً  اضف مربع نص في الصفحة الرئيسية welcome و اجعل مصدر عنصر التحكم هو  [Forms]![Pass]![n1] هنا قمنا بجلب اسم المستخدم من صفحة تسجيل الدخول و لنا كامل الحرية في التحكم بها في جميع النماذج و التقارير 
  4. تفضل التعديل اخي الكريم Password (1).rar
  5. تفضل التعديل اخي الكريم 11.accdb
  6. تفضل هذا الكود اخي الكريم معد تعديل قيمة المتغيير X   Dim x, x2 x = "Table Name" x2 = CurrentProject.Path & Me.Text6 & ".xls" Open CurrentProject.Path & Me.Text6 & ".xls" For Binary Access Write As #1 Close #1 DoCmd.TransferSpreadsheet acExport, 8, x2, x, True  
  7. إدراج كائن

    ارفق المثال اخي الكريم لكي يتم التعديل عليه
  8. تفضل طلبك اخي الكريم   اضغط هنا للتحميل
  9. تفضل هذا المقترح اخي الكريم   اضغط هنا للتحميل
  10. حل مشكله

    اسم النموذج خطأ او محذوف  هذا النموذج تم اضافته عند الفتح فقط عليك ازالة اسم النموذج من الصفحة الرئيسية او ارفق البرنامج ان لم يفلح الحل
  11. تفضل التعديل اخي الكريم l1 (1).mdb
  12. تفضل طلبك اخي الكريم l1 (1).mdb
  13. Private Sub CmdUpdate_Click ()Me.RecordSource = "MyTable"Me.Requery End Sub يا اخوان وجدت هذا الكود و لكن للاسف ما نفع    المطلوب كود تغيير مصدر السجلات للنموذج الفرعي   Private Sub CmdUpdate_Click ()Me.RecordSource = "MyTable"Me.Requery End Sub
  14. بناء على طلب احد الاعضاءالكرام برنامج للسف و الاقتراض للموظفين احببت ان يستفيد الجميع من هذه الفكرة مرفق لكم البرنامج آمل ان يحوز على رضائكم   نظام سلف الموظفين.rar
  15. ام عهود شكرا لكي الف الف الف شكرا على هذا المجهود الرائع   لكن لو تكرمتي علي بالتعديل على مخراجات الملف النصي ، حيث يظهر المحتوى عند الاخراج  به فواصل أود فقط ان تظهر البيانات حسب عرض كل عمود بدون فواصل   مع الحفاظ على صيغة التاريخ DDMMYYYY   - التاريخ بدون فواصل بصيغة DDMMYYYY - المخراجات بدون فواصل بحيث تكون الماسفات حسب عرض عمود الجدول المصدر منه البيانات     في المرفقات ملف نصي صحيح تم تصديره من ملف الأكسل المصدر المطلوب بأن يكون الملف النصي المخرج بنفس تنسيق الملف المرفق   مرفق ملف للتوضيح   ودمتي في رعاية الله و حفظه ،،، و إلى الجنان إن شاء الله   و بارك الله فيكي ،،، ، POS.txt
  16. اخواني الأعضاء الكرام     تحية طيبة و اسعد الله صباحكم / مسائكم بكل خير   ارجوا المساعدة في تعديل البرنامج المرفق   بصراحة تعبت و تعبت و انا ادور في ذلك المواقع من موقع لموقع و ياقلبي لا تحزن   كل الي مطلوب   تصدير بيانات الجدول إلى ملف نصي TEXT بدون اسماء الأعمدة فقط   تخيلوا هذا الطلب البسيط و مالقيتله حل برنامج ادخال الطبي الرياض.zip
  17. شكرا لكي ام عهود ... بس يا للأسف سويت كل الخطوات و مازالت المشكلة مستمرة :D   و جربته على اكس بي شغال ميه الميه زي العسل :(   سامحيني اتعبتك معايا .. لكن هل فيه اجراء ثاني ؟؟؟
  18. للعلم الأوفيس الي موجود عندي 2010
  19. شكرا لكي اختي ام عهود على هذا المجهود الرائع   لكني واجهت مشكلة جديدة في ظهور هذه الرسالة عند الضغط على الازرار للتصدير    
  20. معقووووووولة 31 مشاهدة و مافي رد   لقيت طريقة للأخت زهرة رائعة لكن لما يتصدر الملف يتغيير تنسيق التاريخ   التنسيق المطلوب و الذي تم عمله في ثاعدة البيانات هو ddmmyyyy   عند التصدير يظهر كذا dd/mm/yyyy   ياليت تساعودني على الاقل فقط تعديل التاريخ ، و تعديل الكود ليصبح ملف الاخراج ملف نصي بدلا من الاكسل برنامج الطبي.zip
  21. معقووووووولة 31 مشاهدة و مافي رد   لقيت طريقة للأخت زهرة رائعة لكن لما يتصدر الملف يتغيير تنسيق التاريخ   التنسيق المطلوب و الذي تم عمله في ثاعدة البيانات هو ddmmyyyy   عند التصدير يظهر كذا dd/mm/yyyy   ياليت تساعودني على الاقل فقط تعديل التاريخ ، و تعديل الكود ليصبح ملف الاخراج ملف نصي بدلا من الاكسل