• الإعلانات

    • فيصل الحربي

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

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

zine pef

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

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

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

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

0 عادي

عن zine pef

  • الرتبة
    عضو
  1. اخي خالد إذا كان الخطأ في جهاز اخر معناه البرنامج ينقصه ملفات DLL و إذا كان الخطأ في جهازك اعد عمل MAKE exe fille ربما لم تقوم بجمع الملفات اللازمة للبرنامج ننتظر منك التوضيح أكثر بالتوفيق
  2. اخي zain50 و اخي AL_MOKNA بركة الله فيكما و جعلها الله لكم صدقة جارية و تقبل الله منا و منكم رمضان
  3. شكرا أخي على الاجابة و الكود لكن الكود لم يغير شيىء من المشكل وضعت الكود ولم يحصل تحديث شكرا مرة اخرى
  4. سؤال.rar السلام عليكم أخواني و رمضان كريم بعد ما وضعت الأكواد في المشروع و اصبحت صحيحة حتى ظهرت نافدة خطأ::: Binding collection error Field not updatable و هذا عند القيام بالتحديث ارجوا مساعدتكم و جزاكم الله كل الخير
  5. شكرا أخي عمانـي على المساعدة سوف اجربه و اتحمل الأداة Adodc1
  6. شكرا أخي عماني على التجوب مع موضوعي و بركة الله فيك الملفQuest.rar
  7. شكرا أخي على المساعدة لكن لم تنجح الطريقة وظهرت الرسالة و لم أجد لها معنى ارجو المساعدة
  8. السلام عليكم هذا الكود المستعمل لكن عند التنقل الى التالي او الرجوع الزرين لا يعملان لم اجد حل لهذه المشكلة ارجو المساعدة Private Sub Command1_Click() On Error Resume Next Data1.Recordset.MoveNext End Sub Private Sub Command2_Click() On Error Resume Next Data1.Recordset.MovePrevious End Sub Private Sub Text1_Change() Text5.Text = Val(Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text)) End Sub
  9. السلام عليكم هذا الكود المستعمل لكن عند التنقل الى التالي او الرجوع الزرين لا يعملان لم اجد حل لهذه المشكلة ارجو المساعدة Private Sub Command1_Click() On Error Resume Next Data1.Recordset.MoveNext End Sub Private Sub Command2_Click() On Error Resume Next Data1.Recordset.MovePrevious End Sub Private Sub Text1_Change() Text5.Text = Val(Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text)) End Sub
  10. السلام عليكم هذا الكود المستعمل لكن عند التنقل الى التالي او الرجوع الزرين لا يعملان لم اجد حل لهذه المشكلة ارجو المساعدة Private Sub Command1_Click() On Error Resume Next Data1.Recordset.MoveNext End Sub Private Sub Command2_Click() On Error Resume Next Data1.Recordset.MovePrevious End Sub Private Sub Text1_Change() Text5.Text = Val(Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text)) End Sub
  11. شكرا أخي العماني على سرعة الرد بركة الله فيك و زادك من علمه
  12. السلام عليكم سادتي الأفاضل رواد المنتدى من كبير و صغير لي مشكلة و هي في كمبو بوكس اعداد و عند اختيار عدد منهم يضرب في 500 و الناتج يظهر في تكس بوكس 3 رواتب.rar
  13. مشكور أخي همام لهده المعلومات الأساسية في بداية العمل لي سؤال أخي الفاضل إن سمحت: إذا ظهرت في تسمية بعض الأدوات الحرف ( é ) تظهر نافدة الخطأ حتى أحدفه و أغيره بالحرف ( e ) يصبح البرنامج مضبوط هل يوجد حل لهاذا الحرف ( é )?
  14. شكرا على هذه الأوامــــــــــــــر