اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Eng.Qassim

الخبراء
  • Posts

    2,303
  • تاريخ الانضمام

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

  • Days Won

    22

كل منشورات العضو Eng.Qassim

  1. وعليكم السلام اخي سؤالك هذا مختلف عن السابق .. كيف تريد ادخال مصروفات الى جدول ليس فيه سجلات (اقصد بيانات الطلاب ) ولماذا كل هذا العناء؟ لماذا لاتعمل نموذج لادخال البيانات الى الجدول مباشرة الافضل ان تفتح موضوع جديد ليراه بقية الاساتذة ..وياريت منك شرح اكثر للمطلوب
  2. انا بالخدمة ما مكنني الله
  3. وعليكم السلام ورحمة الله وبركاته في نموذج دخول المستخدم ولنفرض مربع نص اسم المستخدم txtUserName ضع الكود التالي عند زر فتح الفورم الموجود في نموذج المستخدم Dim TempUser As TempVars [TempVars]![TempUser] = Me.txtUserName.Value ثم ضع الكود التالي في حدث عند التحميل للفورم لديك Me.txtUser = [TempVars]![TempUser] txtUser هو اسم مربع النص في الفورم لاظهار اسم المستخدم
  4. لا خبير ولاهم يحزنون كما يقولون بالعراقي .... اتمنى في تقاعدي ان اكون راعي اغنام .. واكون مبرمج سابق مثلك لكن كل همي في هذه الدنيا الزائلة ... ان اقوم بعمل يحصل فيه والدي رحمه الله على اجر وثواب كما اتمنى على اولادي من بعدي ان يقوموا بعمل .. احصل فيه على اجر وثواب
  5. انظر للمعيار الذي وضعته تحت حقل owner في الاستعلام ..فان يظهر فقط العميل الذي اخترته من الكومبوبوكس ان كنت تريد اظهار جميع العملاء فاحذف هذا الشرط جرب ووافني بالنتيجة
  6. Allow Deletions=NO Allow Edits=NO
  7. وعليكم السلام شيء بسيط على وجه السرعة PAYMENTS.accdb
  8. وعليكم السلام .. طالما انك تبحث بالاسم فقط فدائما يذهب للاسم الاول حينما تكون الاسماء متشابهة مثل اسم osama انا غيرت بالاسم حتى يكون واضحا ...انظر للمرفق test_55q.rar
  9. اخي في الله @abouelhassan اعمل افضل اجابة حتى يعلم الاخوة الافاضل انه تمت الاجابة
  10. بصراحة استاذي ابو بسملة لا اقترب عن هكذا امور خشية التعدي على حقوق الملكية ولهذا ليس لدي اي برنامج لاختراق بقية البرامج .. ولا افكر في ذلك ولله الحمد
  11. حاولت افتحه في حاسوب اخر نواة 32 ولم تظهر لي الرسالة اعلاه لكن ظهرت لي مشكلة ان النسخة معي 2010 ..والنسخة لديك احدث
  12. طبعا me.kano هو مربع نص يتم اضافته للنموذج الرئيسي ويتم فيه ادخال بداية التاريخ
  13. كنت اتصور انك تريده هكذا .. على كل حال استبدل سطر الكومبو للشهر بالتالي strNew = Me.Combo130.Column(1)
  14. اذا لم يفتح عندك البرنامج اضف الكود التالي لاضافة الشهر والسنة .. Dim rs As DAO.Recordset Dim db As DAO.Database Dim strNew As String Private Sub Combo130_Click() Set db = CurrentDb Set rs = db.OpenRecordset("جدول المرتبات") If rs.RecordCount <> 0 Then rs.MoveFirst While Not rs.EOF strNew = Me.Combo130.Value Me.Dirty = False rs.Edit rs.Fields("الشهر") = strNew rs.Update rs.MoveNext Wend End If rs.Close Me.Requery End Sub Private Sub السنة_Click() Set db = CurrentDb Set rs = db.OpenRecordset("جدول المرتبات") If rs.RecordCount <> 0 Then rs.MoveFirst While Not rs.EOF strNew = Me.السنة.Value Me.Dirty = False rs.Edit rs.Fields("السنة") = strNew rs.Update rs.MoveNext Wend End If rs.Close Me.Requery End Sub
  15. بالمناسب ..هو حتى لو وضعت مفتاح اساسي سوف لن يعطيك خطأ او بالاحرى تحذير ويتم الالحاق بشكل طبيعي لو وضعت DoCmd.SetWarnings False DoCmd.SetWarnings True
  16. طيب جرب ان يكون indexed في حقل ال id = Yes (Duplicates OK) للجدول tblBounceEndService
  17. اعتقد ان السبب في وجود مفتاح اساسي في tblBounceEndService
  18. عن اذن استاذي @kanory مربع النص في النموذج الرئيسي الذي مصدر سجلاته Employee_Num تجعل المعيار لديه انه يشبه مايتم اختياره من مربع القائمة واهم شي تعمل تحديث للنموذج عند الضغط على مربع القائمة Me.Requery
  19. استاذ موسى انا جدا ضعيف بالويندوز ...اعرف ان تصوير الشاشة Ctrl+printScr بس هاي من وين جبتها ...وين نخليها ربما السؤال خارج الموضوع ...اعتذر كثيرا
  20. ياريت تعملها على قناتك في اليوتيوب استاذ موسى ... احب اللهجة العمانية كثيرا
×
×
  • اضف...

Important Information