Gaham

أقترح عليك استخدام الوظيفة التالية Function HijriDate(Optional AdjVal As Variant = 0) '-- preforming Hijri calendar date Calendar = vbCalHijri HijriDate = Format(DateSerial(Year(Date), _ Month(Date), Day(Date) + (AdjVal)), "yyyy\هـ/mm/dd") End Function '-- لزي…

وعليكم السلام ورحمة الله وبركاته كان لديك بعض المشاكل في مكتبة تعريف مكون البيانات فقط إليك القاعدة بعد التعديل الغاء الشفت .mdb

استخدم الشفرة بهذه الطريقة Private Sub Form_Open(Cancel As Integer) Dim FormPicture, Prompt FormPicture = CurrentProject.Path & "\lines.jpg" Prompt = "تأكد من وجود الصورة الخلفية في المسار الافتراضي" ' إذا لم تكن الصورة في المسار ألغ الإجراء If Len(Dir(FormPic…

نعم يمكن ذلك .. بعد إعادة توجية الشفرة لكائن الصورة انظر المثال pic2 pic2.zip

يوجد كائن صورة في النموذج قم بإزالته فقط

إليك التعديل FormPictue.zip

أليك الطريقة مع المثال Private Sub Form_Open(Cancel As Integer) Dim FormPicture, Prompt FormPicture = CurrentProject.Path & "\lines.jpg" Prompt = "الصورة ليست في المسار الافتراضي.. هل تريد الاستمرار" ' إذا كانت الصورة في المسار اجعلها في الخلفية If Len(Dir(For…

المعذرة لم انتبه للجزء المتعلق بالصورة بالنسبة للشفرة التي في الصورة فإن الجزء المتعلق بسؤالك هو سطر تعليمة (DoCmd.TransferSpreadsheet) الخاصة بالاستيرد من أكسل كما في الصورة أما باقي الشفرة فهو حشو وينبغي التخلص منه لانه يكرر السطر المشار إليه بطول ورقة البيا…

الاستعلام الاجرائي الذي أشرت إليه يستخدم لإلحاق البيانات.. عدل الصيغة إلى استعلام التحديث كما يلي Dim strSQL1 As String strSQL1 = "UPDATE Employees SET [picfile]='" & Me.ImagePath & "', id=" & Me.id & " WHERE id=" & ME.id CurrentDb.Execute strSQL1, dbFailOnErr…

أرجو أن يلبي المثال التالي طلبك CONNECT TO EXCEL.zip

أين تريد وضع البيانات بعد الاستيراد؟! هل تريد جدول بيانات جديد أو الحاقها بجدول بيانات موجود هل إنشاء استعلام بالبيانات المستوردة هل تريد عرضها في نموذج أو تقرير هل تريد إجراء عمليات حسابية أو منطقية على البيانات

إذهب إلى خصائص الحقل وفي تبويب التنسيق ابحث عن Is Hyperlink وغيرها من No إلى Yes . هذا كل شيء!

في الحقيقة المثال يعطي تصور إضافي للسؤال وبالتالي الإجابة تكون أكثر دقة.. والأمر يعود إليك! إليك مثال لأحد طرق الاتصال بمجلد أكسل عن طريق الشفرة.. يمكنك السؤال أكثر! CONNECT TO EXCEL.zip

وعليكم السلام ورحمة الله وبركاته إذا كان بإمكانك حفظ صفحة شموس ورفعها مع مرفقاتها سيكون الأمر سهلا بإذن الله

وعليكم السلام ورحمة الله وبركاته في نظري استخدام عنصر التحكم Web Brwoser Control وتصميم صفحة HTML أفضل من محاكاة ذلك على نموذج أكسس.

حسناً: المثال التالي يقوم بتحديث تاريخ الشحن بناء على المحدد الزمني والفترة الزمنية من تاريخ الشحن. أما الاختيار؛ فهو إما تحديث جميع التواريخ (ِALL) أو السجل الحالي (CURRENT) وذلك بوضع المؤشر على السجل المطلوب. تنبيه: استخدم إشارة السالب (-) في حقل الفترة الزم…

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

الذي تسأل عنه ليس الفرق بين تاريخين! لأنك لم تحدد إلا طرف واحد من التالريخ أما الطرف الثاني فهو قيمة زمنية! وبالتالي أنت تسأل: كيف أخصم قيمة زمنية من تاريخ محدد؟ والجواب عن هذا السؤال يكون باستخدم دالة إضافة التاريخ DataAdd وصيغتها كالتالي DateAdd ( interval, …

الطريقة في الصوورة التالية

وفقاً للمعطيات التي قدمتها هكذا سيكون النموذج في نظري Attendance Tracking.accdb