moody1616

فكره حلوه ولكن لابد ان نستفيد منها بشكل اكبر

وين البرنامج

لا ليس عنوان الايميل هو اسم الكمبيوتر

لا يا اخي من قالك انها على شبكه الانترنت ان هذا الكود الذي قدمته لك مستخدمه في شركه مثل الشركة التي تعمل انت لديها فان لهم سيرفر انت بس جرب الكود وماعليك

بسيطه جدا اضف مربع نص في التقرير ، واجعل خاصيه مصدر البيانات لمربع النص على النحو التالي Forms!FormName!TextBoxName واقصد في هذا الكود ما يلي : استبدل كلمة FormName باسم النموذج التي يوجد فيه مربع النص واستبدل كلمة TextBoxName باسم مربع النص الموجود في النموذج…

اليك هذا الوصله يمكن الاستفاده منها http://www.arabteam2000.com/vb/showthread....%D8%C7%C8%DA%C9

ممكن تشرح اكثر اخي

اليك اخي هذا الكود وعليك ان تنتبه معاي في الشرح DoCmd.SendObject acSendReport, "1", "SnapshotFormat(*.snp)", "2", "", "", "3", "", True, "" الشرح : رقم واحد (1) وهو يمثل اسم التقرير الموجود في قاعده البيانات الموجوده عندك التي تريد ارساله ويمثل هنا في هذا الكو…

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

لم استطع انزال البرنامج هل من مساعده او ارساله لي عن طريق البريد الالكتروني moody1616@hotmail.com

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

او اضغط على مفتاح ALT وسهم للاسفل

شكرا اخي فيصل الحربي بما انك مشرف منتدى قواعد بيانات الأكسس فيجب انت تبحث في المواضيع قبل طرحها وقبل انت تتكرر في هذا المنتدى فانا سبقتك في طرح هذا الموضوع من قبل على هذه الوصله فارجوا ان تراها http://www.arabteam2000.com/vb/showthread....=&threadid=5725

ممكن ان توضح

برنامج جميل ولكن يحتاج منك اخي ابوصفاء ان تكمل جميلك وتشرحه لنا

جرب هذا Private Sub Command0_Click() Dim i As Integer i = 0 For i = 0 To 20 MsgBox "ÑÓÇáÉ ÑÞã = " & i, i + (i + 1) Next i End Sub

اهلا اخي ابو زيد : ليس هناك حل لان البرمجه عباره عن اوامر تنفذها وليس لها عقل مثل عقولنا تفكر

ماهو الفايده من الغاء مفتاح F11 ممكن تقول لنا ايش هي الفكره

جرب هذا الكود احسن من الكود الطويل Private Sub Command0_Click() Dim str As String Dim x() As String str = "a b c d" x() = Split(str, " ") For Each y In x() MsgBox y Next End Sub

ضع الملف الذي تريد اليه تعديل وسوف إن شاء الله نخدمك