Visitor_OM

العفوا اخي وهذا واجبنا ،،،، وتقبل تحياتي .

السلام عليكم أخي الكريم اتوقع سبب المشكلة هو إنك تحاول تحدث البيانات مباشرة بدون عمل تحرير إو إضافة للبيانات ولكي تتفادى هذه المشكلة أو لكي تتأكد من إن سبب المشكلة هذا قم مثلا بإضافة كود التحرير قبل هذا ذلك الكود ليكون بهذا الشكل Data1.Recordset.Edit Data1.Rec…

بعد التحية ،، اخي جرب هذا / Public ws As Workspace Public db As Database Set ws = DBEngine.Workspaces(0) Set db = ws.OpenDatabase(PathDataBase, True, False, ;pwd="ddd") بالتوفيق .

نعم اخي ويوجد إختلاف بسيط ولكن بالنسبة لإستخدام كامة المرور فسيكون الكود بهذا الشكل / (Set database = OpenDatabase (dbname, options, read-only, ";pwd=YOURPASSWORD"

السلام عليكم أخي الكريم راجع الرباط التالي / الرابط / http://arabteam2000.com/vb/showthread.php?...&threadid=31411

السلام عليكم أخي العزيز الكود الذي في الإعلى فهو خاص بالإداة الأخرى وهي DAO . إما كود الربط مع قاعدة البيانات بواسطة ADO مع استخدام كلمة مرور لقاعدة البيانات فهو / db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & dbName & _ ";Jet OLEDB:Data…

بعد التحية ،،، ويمكن حل هذه المشكلة بتركيب السيرفس باك 5 (SP5) او تغير عملية الربط هذه وتستخدم الإداة ADO فمن خلالها تستطيع الإرتباط بكل قواعد البيانات الخاصة باكسس . بالتوفيق .

تسلم يا الغالي

بعد التحية اخي الكريم جرب هذا الكود وخبرني بالنتائج / Dim FirstDate As Date ' Declare variables. Dim IntervalType As String Dim Number As Integer Dim Msg IntervalType = "m" ' "m" specifies months as interval. FirstDate = InputBox("Enter a date") Number = Input…

شكرا جزيلا مسبقا .

بعد التحية ،،، أخي الكريم / بالنسبة للطباعة التقرير هو بعد إن تضغط على مفتاح Print طبعا راح يشتغل التقرير في وضعيت العرض سترى في الأعلى أيقون Icon او رمز يشير إلى طباعة او الأله الطابعة فقط اضغط عليه . تقبل تحياتي .

بعد التحية ،،، أخي الكريم مثل ما اسلفت سابقا إن البرنامج غير مكتمل في نقطة واحدة وهي طباعة اكثر من معلم فإنا وضعت مفتاح الطباعة في قسم الذاتية هكذا وعلى وجه السرعة إما بالنسبة لطباعة بيانات معلم واحد فقط ،، فيه موجودة في قسم البحث حاول إن تذهب إلى ذلك القسم ثم…

بعد التحية ،،، أخي الكريم بالنسبة للطباعة بعرض الورقة سوف تحتاج إلى السيرفس باك 5 (SP5) بالتوفيق .

اخي وجدت الحل بفضل من الله الحل استخدم هذه الكود / SavePicture Picture1.Image, "c:test.jpg" عوضا عن SavePicture Picture1.Picture, "c:test.jpg"

الرجوا المعذرة اخي لإني حاولة ..... ولكن كللت كل المحاولات بالفشل .

السلام عليكم اخي الكريم بالنسبة لإضافة تاريخ معين إلى التاريخ الحالي استخدم الدالة DateDiff

السلام عليكم أخي الكريم تفضل المشروع مع الإضافة التي طلبت ، على فكرة أخي تراه العملية ما محتاجة إلى خبراء ولا شي كل الذي تحتاجة هي العزيمة والمجهود فقط لا غير !. البرنامج / breport.zip

السلام عليكم اخي العزيز تفضل هذه النسخة من البرنامج ولكن ليست كاملة احببت ارفقها لكي لا تنتظر كثيرا لإني وللإسف مشغول في هذه الفترة ولم استطع إن اضيف عليها شي منذ اخر إضافة .. وتقبل إعتذاري في الباقي ولكن إذا سنحت الفرصة بحاول اكمل الباقي وهو الطباعة لإكثر من …

السلام عليكم ورحمة الله وبركاته ،،، أخي العزيز تفحص هذا الكود ربما راح يفيدك بشى الكود / 'للهجري Calendar = vbCalHijri Text1.Text = Date 'للميلادي Calendar = vbCalGreg Text1.Text = Date ' بالتوفيق .

السلام عليكم ورحمة الله وبركاته ،،، بعد الإعتذار عن المشاركاتك السابقة التي لم تحصل على رد فيها لسبب او للآخر ،،، بالنسبة لعمليات حفظ الصور بتنسيقها او بتنسيق آخر فالكود SavePicture هو الكفيل بهذه المهنة . مثال / SavePicture Picture1.Picture, "FileName.jpg" ود…