• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

Gaham

الخبراء المعتمدون
  • عدد المشاركات

    655
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

110 جيد جدا

1 متابع

عن Gaham

  • الرتبة
    خبير قواعد بيانات
  • تاريخ الميلاد 01/01/1962

طرق الإتصال

  • ICQ 0

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : الرياض ـ السعودية

أحدث الزائرين لملفلك الشخصي

8,388 زياره للملف الشخصي
  1. أقترح عليك استخدام الوظيفة التالية 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 '-- لزيادة الأيام YouField = HijriDate(+1) '-- لنتنقيص الأيام YouField = HijriDate(-1) وهذا المثال   AdjustableHijriDate.accdb
  2. وعليكم السلام ورحمة الله وبركاته كان لديك بعض المشاكل في مكتبة تعريف مكون البيانات فقط إليك القاعدة بعد التعديل الغاء الشفت .mdb
  3. استخدم الشفرة بهذه الطريقة Private Sub Form_Open(Cancel As Integer) Dim FormPicture, Prompt FormPicture = CurrentProject.Path & "\lines.jpg" Prompt = "تأكد من وجود الصورة الخلفية في المسار الافتراضي" ' إذا لم تكن الصورة في المسار ألغ الإجراء If Len(Dir(FormPicture)) = 0 Then MsgBox Prompt, , "" Cancel = 1 End If End Sub  
  4. نعم يمكن ذلك .. بعد إعادة توجية الشفرة لكائن الصورة انظر المثال pic2   pic2.zip
  5. أليك الطريقة مع المثال Private Sub Form_Open(Cancel As Integer) Dim FormPicture, Prompt FormPicture = CurrentProject.Path & "\lines.jpg" Prompt = "الصورة ليست في المسار الافتراضي.. هل تريد الاستمرار" ' إذا كانت الصورة في المسار اجعلها في الخلفية If Len(Dir(FormPicture)) > 0 Then Me.PictureType = 1 Me.Picture = FormPicture Exit Sub ' خروج من الإجراء End If ' إذا كانت الإجابة بالنفي ألغ فتح النموذج If MsgBox(Prompt, vbYesNo + vbDefaultButton2, "") = vbNo Then Cancel = 1 End If End Sub FormPictue.zip
  6. المعذرة لم انتبه للجزء المتعلق بالصورة بالنسبة للشفرة التي في الصورة فإن الجزء المتعلق بسؤالك هو سطر تعليمة (DoCmd.TransferSpreadsheet) الخاصة بالاستيرد من أكسل كما في الصورة أما باقي الشفرة فهو حشو وينبغي التخلص منه لانه يكرر السطر المشار إليه بطول ورقة البيانات ولعلك لاحظت الوقت الذي يستهلكه تنفيذ الشفرة الشفرة التالية تبين التعليمة المشار إليها بشئ من الوضوح Sub A001() Dim EXCEL_FILE As String EXCEL_FILE = CurrentProject.Path & "\ccldb_supplemental.xls" DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Projected Changes", EXCEL_FILE, False, "Projected Changes$A9:J20" End Sub الجزء الأخير من الشفرة يمثل ورقة البيانات متبوعا بالنطاق المطلوب استيراده إليك المثال.. ضع المؤشر داخل الإجراء واضغط على [F5] CONNECT TO EXCEL.zip
  7. الاستعلام الاجرائي الذي أشرت إليه يستخدم لإلحاق البيانات.. عدل الصيغة إلى استعلام التحديث كما يلي  Dim strSQL1 As String strSQL1 = "UPDATE Employees SET [picfile]='" & Me.ImagePath & "', id=" & Me.id & " WHERE id=" & ME.id CurrentDb.Execute strSQL1, dbFailOnError
  8. أرجو أن يلبي المثال التالي طلبك   CONNECT TO EXCEL.zip
  9. أين تريد وضع البيانات بعد الاستيراد؟!  هل تريد جدول بيانات جديد أو الحاقها بجدول بيانات موجود هل إنشاء استعلام بالبيانات المستوردة هل تريد عرضها في نموذج أو تقرير  هل تريد إجراء عمليات حسابية أو منطقية على البيانات  
  10. فتح ارتباط تشعبي في نموذج

    إذهب إلى خصائص الحقل وفي تبويب التنسيق ابحث عن Is Hyperlink  وغيرها من No  إلى Yes . هذا كل شيء!
  11. في الحقيقة المثال يعطي تصور إضافي للسؤال وبالتالي الإجابة تكون أكثر دقة.. والأمر يعود إليك! إليك مثال لأحد طرق الاتصال بمجلد أكسل عن طريق الشفرة.. يمكنك السؤال أكثر! CONNECT TO EXCEL.zip
  12. وعليكم السلام ورحمة الله وبركاته إذا كان بإمكانك حفظ صفحة شموس ورفعها مع مرفقاتها سيكون الأمر سهلا بإذن الله
  13. وعليكم السلام ورحمة الله وبركاته في نظري استخدام عنصر التحكم Web Brwoser Control وتصميم صفحة HTML أفضل من محاكاة ذلك على نموذج أكسس.