جواد

طيب أخي وكود الحفظ كيف نعدل فيه .Fields("Pass_Date") = Text1.Text وأيضاً كود أستدعاء التاريخ في حقل تكست : Text1.Text = .Fields("Pass_Date")

هذا مثال اخي ناجي بالمرفقات وجزاكم الله خيراً وهذه صورة Exa.rar

اخي عبدالجليل العقوري وضعت اسم Field مكان Field_name يعني اصبح بالشكل هذا Format(Name_First, "dd/MM/yyyy") ولكن بس تظهر رسالة خطأ

السلام عليكم ورحمة الله وبركاته كيف أجعل التاريخ في قاعدة البيانات يبدأ باليوم وليس بالشهر الصورة تبين ان اللي يبدأ هو الشهر بعدين يضع الأيام بعدين السنة أنا اريد اول شي يبدأ هي الأيام بعدها الشهر بعدها السنة وهذه الصورة لـ اداة Listview يعني اريد اللي باللون …

شكراً لك اخي ناجي لكن سأنتظرك إذا تريد أن تعدلها أفضل من اكتب أكواد كثيرة سأنتظرك وبارك الله فيك

أخي ناجي هل نقدر نستخدمه كتاريخ يعني بهذا الشكل 2012-12-12 يعني اول حقل يأخذ رقمين وثاني حقل يأخذ أيضاً رقمين بس الحقل الثالث يأخذ 4 أرقام

أخي ناجي كيف نستخدمها كالتالي: 101-101-101

الله يعطيك العافية ويسلمو ايديك أخي najy_zl أخي najy_zl ممكن مثال على الأداة والف شكر لك ما قصرت

الله يوفقك بالدنيا والآخرة أخي najy_zl أخي najy_zl ممكن مثال على الأداة والف شكر لك ما قصرت

الله يوفقك ويخليك لأهلك اخي محمد مصطفي غريب والله يحرسك من كل عين ألف شكر لك اخي محمد مصطفي غريب شكرا كثير

هذا مثال صغير ان شاءالله يفي بالغرض تحميل

الله يقويك والله يبارك فيك اخي محمد مصطفي غريب اخي محمد بالنسبة للـ Name_ID فهو ليس رقم هو إسم اخي ممكن طلب اخير ممكن توضعلي كود لكي استخدمه في الـ Data Report بحيث يتم استدعاء الأسماء التي يوجد معاها إسم المدرسة والله يوفقك يا رب دنيا وآخر انتظر ردك اخي محمد

أخي محمد مصطفي غريب اريد تصحيح هذا الكود وظيفة هذا الكود عند الضغط على أمر طباعة أريده أن يقوم بطباعة الأسماء التي توجد معهم اسماء المدرسة فقط أما الأسماء التي لا توجد بجانبهم إسم المدرسة لا اريد ان يتم إدرجها في الـ Data Report Call conData With rs_find If .S…

جاري تجربتها بارك الله فيك

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

السلام عليكم اخواني كيف أستدعي بيانات من الداتا الـ ListView بحيث أني إذا كان هذا الحقل فاضي لا يستدعيه "Fields("Name_ID .Fields("Name_ID") = Text1.Text .Fields("Name2") = Text2.Text .Fields("Name3") = Text3.Text يعني مثلاً انا عندي اسم الأب وإسم الطالب وإسم ا…

الا يوجد حل اخواني لهذه المشكلة

ألف شكر لك اخي محمد مصطفي غريب الأن زبط ألف شكر لك الله يقويك ويزيدك من علمه

اخي الكريم ظهرت لي الرسالة هذه وهذ الكود اللي استخدمته Dim dbPath As String, TmpdbPath As String, dbPass As String dbPath = Text1.Text TmpdbPath = Text1.Text dbPass = "224466" If Dir(ATmpdbPath) <> "" Then Kill TmpdbPath End If DBEngine.CompactDatabase dbPath,…

شكراً لك أخي محمد مصطفي غريب بارك الله فيك شكرا لك جاري تجربتها