• الإعلانات

    • فيصل الحربي

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

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

عراق الغالي

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

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

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

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

2 عادي

عن عراق الغالي

  • الرتبة
    عضو
  1. مافيه جواب مع الاسف
  2. طريقة عمل زر بحث

    انا الممنون واعذرني اخاف قصرت معاك لان صراحة بالاكسس مستواي وسط بالاكسس.. والبرنامج شغال وتم تجربته..حاول مرة اخرى.. تحياتي
  3. طريقة عمل زر بحث

    هنا يجب كتابة الاسم كامل يعني مثلا Ahmed Ali
  4. طريقة عمل زر بحث

    اخي بخصوص زر الامر من تطلع خيارات اختار الغاء يعني مشيت صحيح. عندك خطأ بالكود في جدولك قارنته مع الكود الاصلي طلع مختلف.. ضفتلك الكود الاصلي وغيرت فقط اسم العمود من empName في الجدول القديم الى Student(بالكود كله) والبرنامج اشتغل وتفضل هذا المرفق تحياتي وعملتك + للنقاط تحية مني الك سلام New student.rar
  5. مشكور اخي بسالصراحة انا كن قريت هذا الموضوع بس صراحة شويا صعب الفهم لانه كثير من الاشخاص يسئلون والاخت زهرة اتجاوبهم..واكثرهم جديدين بالاكسس فانا ردت خطوات من الصفر حتى النهاية حتى نتعلم الفكرة كلها ونتعلم كيف يعمل البرنامج
  6. السلام عليكم.. هل ممكن عمل برنامج قارئ لباركود بالاكسس مثل الذي يستخدم في المحلات والمولات ف حساب البضائع والاسعار الخ... واذا كان الجواب نعم كيف الحل في حالة وصول حجم البرنامج اكثر من 2 كيكا(الحد المسموح) ..يعني اذا وصل الى 2 كيكا ما الطريقة لمواصلة البرنامج حتى يبقى شغال ويعمل وهل يوجد شرح بالتفصيل الممل وبالصور عن كيفية عمل وفكرة برنامج الباركود من الـ a الى الـ z
  7. طريقة عمل زر بحث

    منور اخي الطريقة سهلة ان شاءالله فقط طبق خطوات الاخت زهرة بالتفصيل بعد ما عملت النموذج 1. قم بعمل مربع نص غير منضم واعطه اسم مثلا txtSearch في اي نموذج مبني على الجدول 2. قم بعمل زر امر مثلا بجانب مربع النص واعطه اسم مثلا cmdSearch 3. في اجراء الحدث عند النقر قم بنسخ كامل الكود وضعه في النموذج الجديد( هذا الكلام على زر الامر) وهذا الكود Option Compare Database Private Sub cmdSearch_Click() Dim strSearch As String Dim rs As Object Set rs = Me.RecordsetClone If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then MsgBox "ÑÌÇÁ ÇÏÎá ÇÓã ááÈÍË Úäå", vbOKOnly, "ÎØà Ýí ÇáÈÍË" Me![txtSearch].SetFocus Exit Sub End If strSearch = Me![txtSearch] With rs .FindNext "[EmpName] = '" & strSearch & "'" If .EmpName <> strSearch Then MsgBox "áÇ íæÌÏ ÓÌá ÈåÐÇ ÇáÅÓã : " & strSearch, , "ÛíÑ ãæÌæÏ" Me.txtSearch = "" Me![txtSearch].SetFocus ElseIf .NoMatch Then MsgBox "ÂÎÑ ÓÌá Ýí ÇáÈÍË Úä : " & strSearch, , "ÂÎÑ ÓÌá" Me.cmdSearch.Caption = "ÈÍË" Me.txtSearch = "" Me![txtSearch].SetFocus Me.cmdSearch.ForeColor = RGB(0, 0, 255) DoCmd.GoToRecord , , acFirst Else Me.Bookmark = .Bookmark MsgBox "Êã ÇíÌÇÏ ÇÓã : " & strSearch, , "ãÈÑæß" Me.cmdSearch.Caption = "ÇßãÇá ÇáÈÍË" Me.cmdSearch.ForeColor = RGB(255, 0, 0) End If End With rs.Close Set rs = Nothing End Sub حددت لك بالكود بالالوان للتوضيح اللون الاحمر هذا اسم مربع النص وزر الامر اللي عملناهم واللون الازرق هذا اسم الحقل في الجدول والذي باسم EmpName يعني انت غير بالكود فقط اسم الحقل اللي انت مسميه بالجدول لااكثر ولااقل ارجو ان وصلت الفكرة ان شاء الله
  8. طريقة عمل زر بحث

    لا اعرف كيف اشكركي اختنا الفاضلة تمت الاجابة بعد محاولات عدة لان الان عملت نفس الخطوات من جديد وغيرت اسم مربع النص ولكن لم تنجح ايضا.. المهم عملت نموذج من جديد وبنفس الخطوات ونجح الامر...واشتغل زر البحث.. جزاكي الله الف خير اخت زهرة وممنون جدا منكي تحياتي
  9. طريقة عمل زر بحث

    شكرا اخت زهرة هذا المطلوب ولكن بقت مشكلة واحدة فقط وهي عملت نفس هذا النموذج من جديد باسم اخرEmpTable وعملت مثل ماتفضلتي من الخطواتمن مربع نص وزر امر وعملت كوبي للكود والصقته. لكن تظهر لي هذه الرسالة بوجود الخلل اين لااعرف.. ومشكلة ثانية اخ زهرة ولو طولت عليكي بخصوص الكود قلتي هناك فيه اسم الجدول واسم الحقل..اسم الحقل شاهدته بالكود وهو "[EmpName]" لكن اسم الجدول لم اجده بالكود فممكن تشرحيلي اين اجد اسم الجدول حتى اغيره في حالة عندي جدول اخر باسم اخر حتى يعمل الكود وهذا الكود لحضرتكي Option Compare Database Private Sub cmdSearch_Click() Dim strSearch As String Dim rs As Object Set rs = Me.RecordsetClone If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then MsgBox "رجاء ادخل اسم للبحث عنه", vbOKOnly, "خطأ في البحث" Me![txtSearch].SetFocus Exit Sub End If strSearch = Me![txtSearch] With rs .FindNext "[EmpName] = '" & strSearch & "'" If .EmpName <> strSearch Then MsgBox "لا يوجد سجل بهذا الإسم : " & strSearch, , "غير موجود" Me.txtSearch = "" Me![txtSearch].SetFocus ElseIf .NoMatch Then MsgBox "آخر سجل في البحث عن : " & strSearch, , "آخر سجل" Me.cmdSearch.Caption = "بحث" Me.txtSearch = "" Me![txtSearch].SetFocus Me.cmdSearch.ForeColor = RGB(0, 0, 255) DoCmd.GoToRecord , , acFirst Else Me.Bookmark = .Bookmark MsgBox "تم ايجاد اسم : " & strSearch, , "مبروك" Me.cmdSearch.Caption = "اكمال البحث" Me.cmdSearch.ForeColor = RGB(255, 0, 0) End If End With rs.Close Set rs = Nothing End Sub وهذا المرفق za-EmployyeUP.rar
  10. طريقة عمل زر بحث

    شكرا اخت زهرة واتشرف بردك ومية هلا بعودتك مرة اخرى لان ماشاء الله كل مواضيع الاخت زهرة ودروسها موجودة بالحاسبة واتشرف ان اتعلم من الاخت زهرة.ودائما مااحلم اكون مبرمج ناجح مثل حضرتكي لكن لااعرف كيف البداية. المهم اخت زهرة... وهو المطلوب اخت زهرة لكن فقط بقت مسالتين الاولى بالمثال يوجد 2 اسم "احمد" وهو الان يعرض فقط اول احمد الذي هو من مصر اما احمد من ليبيا لايعرض في حالة الانتقال الى الاحمد الثاني اذا ضغطنا زر Enter (اي فقط يعرض نتيجة واحدة) والمسالة الثانية ياريت ياريت الله يبارك بيكي ويجعلها في ميزان حسناتكي ان يكون الشرح بالصور خطوة بخطوة بكيفية عمل هذا الزر على هذا المثال وكيفية ربطه بالنموذج حتى استطيع ان انفذها على كثير من الامثلة وتعم الفائدة للجميع.. وممنون جدا وتشرفت بمروركي.... تحياتي
  11. طريقة عمل زر بحث

    شكرا عالمرور لكن ليس المطلوب هذا عمله . المطلوب كما بالصورة وفي نفس النموذج والنتيجة تظهر لاسم واحد وليس لجميع الاسماء بالنتيجة.. يعني اكتب اسم احمد يظهر لي فقط احمد مع عنوانه وتاريخ تعيينه مثلااااااا... عالعموم شكرا على مجهودك..لكن ليس هو المطلوب..
  12. السلام عليكم... كيف اعمل زر بحث بالاكسس 2007 على شكل مربع نص مثلا ابحث عن اسم لموظف معين كما بالصورة.. يعني اكتب اسم الموظف واظغط Enter بالكيبورد يظهر لي الموظف المطلوب واذا لايوجد يظهر لي بانه غير موجود على شكل رسالة تنبيه. ويكون عرض النتيجة كما في الصورة اي يعني سجل منفرد...وليس سجل متعدد او مستمر ..يعني اذا كان هناك عشر اسماء احمد لهم نفس الاسم يظهر لي اسم اول احمد مع جميع معلوماته وعند ظغط زر Enter من جديد يظهر الموظف احمد الثاني وهكذا البقية.. ارجوا ان وصلت الفكرة بارك الله بيكم.. وياريت يكون الشرح بالصور خطوة خطوة حتى تعم الفائدة ونتعلم كيف عمل هذا الزر من الصفر. وهذه المرفقات Employye.rar
  13. مشكور وجزالك الله الف خير عالنصيحة والصراحة كنت محتار بين اكثر من لغة. وان شا ءالله اطلع على جميع الدروس. وبخصوص 3 ايام قصدي من المشرفين او مصصمي المواقع ان يجيبوني ولم يجيبني اي واحد منهم هذا كان قصدي. واشكرك مرة ثانية.. تحياتي.. +1 واخ كريم ايضا مشكووور +1
  14. اخوان هاي 3 ايام ولم القي اي اجابة؟!!!!!!!! فقط من عضو واحد ؟ لاتخيبون ظني فيكم الله يبارك فيكم
  15. تعلم تصميم المواقع ... من الصفر ..

    يسلمواااااااااااااااااااااااااااااااااا