بسام محمد صالح شعلان

احسن الله عزاكم وغفر لموتاكم وموتا المسلمين

اعتز بشهادتك استاذي الله يسعدك

بارك الله فيك استاذي الفاضل انا بسوي نسخ في الهارديسك خارجي نسخه للبرنامج ونسخة للملفات هل هذي طريقه حلوة

السلام عليكم .... استاذ سعيد صواب مشكور على ملاحظتك على البرنامج سؤالى : ايش المقصد من نسخ للقاعدة الخلفية هل تقصد اني اسوي نسخ للبيانات وارشفها في الهارديسك

السلام عليكم ورحمة الله عندي هذا البرنامج خاص بارشفة بيكون البرنامج يكتب فية موضوع الخطاب بحيث يسهل البحث عنه وللخطاب له رقم من خلال الرقم يبحث عنة في المجلد الذي بيكون الخطاب فيه سؤالي : هل برنامجي هذا يساعدني في حفظ بيانات شركة اكثر من 2000 سجل وهل ممكن ان تتطلعوا علية وان تفيدوني اذا كان ناقص شي منه لازم اضيفة لان بيكون فية بيانات شركة وحبيت ان استشير اساتذتي في المنتداء حفظ الله الجميع وبارك في علمكم الاسم في البرنامج : بسام والرقم السري:111 برنامج المستندات.rar

وعليكم السلام الاستاذ : عبداللة وين احط الكود علماً اني حطيت الكود في عند التحميل ولم يتم اخفاء القائمة انا اريد ان تختفي القائمة

السلام عليكم استاذي الكريم اضفت الكود في النموذج الرئيسي ولن يتم المرارد فهل يوجد حل اخر بارك الله فيك

السلام عليكم عندي برنامج اخفيته بازرار الشفت وباقي فيه قائمه ابداء كيف اخفي القائمة

حياك استاذي القدير البيانات اضفتها بطريقه عشوائية انا اختبرت النموذج بعلومات عشوائية علشان لا اضيع وقت وانما تجربته فقط الاحظ في النموذج الفرعي اثناء السحب بالماوس بجانب النموذج الى اعلى او الى اسفل بسرعة تلاحظ تختفي بعض المعلومات او تظهر متكررة او بعظها ظاهر مثلا : مكتوب في النموذج : كلمات ارشادية واثناء السحب بالماوس من اعلا الى اسفل بسرعه تلاحظ السجل الذي فيه كلمات ارشادية تظهر في نصف النموذج هل فية حل لها واشكرك على تفاعلك استاذي

السلام عليكم ورحمه الله وبركاته اريد مساعدتكم في حل لهذي الرسالة في اكسس اثناء تحريك الماوس وسحب من الجنب الى اسفل في النموذج عدت مرات حدث لخبطه في البيانات بهذا الشكل وهذا المرفق برنامج 3المستندات.rar الاسم : بسام الرقم السري : 123 اثناء تحريك الجنب الى اسفل والى اعلاء بسرعة شوي تلاحظ اختفاء للبيانات ولخبطة

عندي مشكلة اعاني من البطئ في البحث والكمبيوتر فية نت علماً اني وضعت الكود عند التغيير في حدث هل ممكن تس وعليكم السلام استاذ جعفر اذا ممكن مرفق للتوضيح اكثر بارك الله فيك والعفو على الاطاله

عندي مشكلة اعاني من البطئ في البحث والكمبيوتر فية نت علماً اني وضعت الكود عند التغيير في حدث هل ممكن تساعدوني في طريق اخرى

بارك الله فيك استاذي القدير

اشكرك وبارك الله فيك اخي شكرك وبارك الله فيك

السلام عليكم ورحمه الله وبركاته استفسار بسيط كود الوقت : Time() في مربع نص المشكله ان الوقت مايتحدث اول باول افتح النموذج وفيه الوقت وثناء فتح النموذج تلاحظ الوقت مايتحدث الا اذا اغلق النموذج وفتحه من جديد تلاحظ الوقت يتحدث فهل فيه حل التاريخ.rar

موفق ياستاذ : جعفر

السلام عليكم ورحمه الله وبركاته اريد مساعدتكم في حل لهذي الرسالة في اكسس مكتوب في الرسالة (( حفظ النموذج او التقرير لانه يعرض احرف لغة لايمكن حفظها في الاعدادات المحلية الحالية للنظام قم بتبديل اعدادت النظام المحلية الى لغة النموذج او التقرير )) وهذا المرفق

السلام عليكم ورحمه الله تحية طيبة وبعد عندي نموذج وفي أحد الحقول جمعت فية :"التاريخ" و "ورقم تسلسلي" في النموذج جعلت التاريخ :يطلع فية الشهر والسنة فقط اريد الرقم التسلسلي بدل مايطلع 1 اريدة يطلع 00001 واريد عند خذف احد الارقام يعيد ترتيبة مثلا: عندي 00001/12/2015 و 00002/12/2015 و 00003/12/2015 و 00004/12/2015 وثناء حذف : 00002/12/2015 يعيد ترتيب الرقم التسلسلي بعد الحذف رقم تسلسلي.rar

بارك الله فيك

مشكور ماقصرت ياغالي

الاخ : bhelmy اثناء فتح البرنامج تلاحظ البرنامج يظهر ببطئ او تنكمش خفيف هل تحتاج الى حل او لا تقبل تحياتي

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

السلام عليكم ورحمه الله تحية طيبة وبعد اشكر الاستاذ : جعفر ................. على مجهودة العظيم عندي نموذج وفية حقلين : عن التاريخ اريد ابحث بين الحقلين : "من تاريخ" & "الى تاريخ " .... وتعديل الكود على التاريخ بحيث يبحث : من تاريخ & الى تاريخ وهذا الكود , والمرفق ......بارك الله فيكم Private Sub n2_Change() 'do the initial subform Record Source mySQL1 = "Select * From [المستندات]" mySQL = mySQL1 & " Where" 'now we want to split the search code into smaller bits, 'if seperate by / \ * or space, then change this seperator to | (a unique letter), 'this way we will have more than ONE word to search for Dim x() As String Dim A As String A = Me.n2.Text A = Replace(A, "/", "|") A = Replace(A, "\", "|") A = Replace(A, " ", "|") A = Replace(A, "*", "|") 'the words are split and ready x = Split(A, "|") If UBound(x) = 0 Then 'Still one word, search for it mySQL = mySQL & " [كلمات ارشادية]" mySQL = mySQL & " Like '*" & x(i) & "*'" Else 'it is ONE word and a seperate by / \ * or space, 'so lets make a Where statement for each seperate word For i = LBound(x) To UBound(x) If i = 0 Then 'its a word and a seperator, the NEXT word is NOT added yet mySQL = mySQL & " [كلمات ارشادية]" mySQL = mySQL & " Like '*" & x(i) & "*'" Else 'its multiple words, add the AND command between each word mySQL = mySQL & " AND [كلمات ارشادية]" mySQL = mySQL & " Like '*" & x(i) & "*'" End If Next i End If 'if the Search field is Empty, use the initial mySQL1 Me.n2.SetFocus If Len(Me.n2.Text & "") = 0 Then mySQL = mySQL1 End If 'Debug.Print mySQL Me.sfrm_Search.Form.RecordSource = mySQL End Sub ok ok ok.rar

ok.rar هذا البرنامج ليوضح اكثر ok ok ok.rar

السلام عليكم ياستاذ: جعفر بارك الله فيك تحية طيبة وبعد ملاحظتي : عندي مربعين نص في النموذج ...... وسميتهما الاول : من تاريخ & والثانيسميتة: الى تاريخ اريد ان ابحث في هذين الحقلين بالاضافة الى الموجود سابقاً الذي هو : كلمات ارشادية وموضوع الخطاب ملاحظة : انا ما اريد اضافة : بحث "موضوع الخطاب" في نفس مربع نص "كلمات ارشادية" انا اريد كل مربع نص يبحث في حقلة لوحدة فقط مثلا: مربع نص اسمة "موضوع الخطاب" اريدة يبحث في حقل موضوع الخطاب فقط لا اريد ان يجتمع "موضوع الخطاب" و"كلمات ارشادية" يبحث في مربع نص واحد لازم يكون كل حقل لة مربع نص يبحث في نفس الحقل الذي هو اسمة في الحقل والعفو على الاطالة