د.كاف يار

تفضل هذا للأستاذ الفاضل @Moosak

ماشاء الله لا قوة الا بالله شغل احترافي يا خالي ماشاء الله عليك حجر اساس من ذهب بكل ما تعنيه الكلمة متابع .....

كيف يعني تنسخ جدول الى مجلد ؟ تفضل جرب هذا التعديل On Error GoTo ErrH Dim fso As Object, fldrname As String, fldrpath As String, fldrpathNow As String fldrname = "pp2" Application.FileDialog(msoFileDialogFolderPicker).Show fldrpathNow = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\*" Set fso = CreateObject("scripting.filesystemobject") fldrpath = Environ("USERPROFILE") & "\Desktop\" & fldrname If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) fso.CopyFile fldrpathNow, fldrpath Else MsgBox "تم انشاء المجلد مسبقا", vbExclamation + vbMsgBoxRight, "تنبيه" End If Exit Sub ErrH: MsgBox "رقم الخطأ" & " : " & Err.Number & _ vbNewLine & "وصف الخطأ" & vbNewLine & Err.Description, vbCritical + vbMsgBoxRight, "تنبيه"

تفضل Dim fso As Object, fldrname As String, fldrpath As String fldrname = " ضع اسم المجلد هنا " Set fso = CreateObject("scripting.filesystemobject") fldrpath = Environ("USERPROFILE") & "\Desktop\" & fldrname If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If و لإنشاء مجلد جديد و نسخ مجلد آخر داخل المجلد الجديد Dim fso As Object, fldrname As String, fldrpath As String, fldrpathNow As String fldrname = " اسم الجلد الجديد " fldrpathNow = CurrentProject.Path & "\" & " اسم المجلد بجوار قاعدة البيانات او مسار المجلد " & "\*" Set fso = CreateObject("scripting.filesystemobject") fldrpath = Environ("USERPROFILE") & "\Desktop\" & fldrname If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) fso.CopyFile fldrpathNow, fldrpath End If

تفضل هذا المقترح يجب ان يكون لديك جدول للمجموعات و كل مجموعة تأخذ رقم فريد يتم من خلاله الفرز بناء على رقم المجموعة سيكون العرض في التقرير test1.zip

لإنشاء مجلد جديد استخدم الكود التالي Dim fso As Object, fldrname As String, fldrpath As String fldrname = " ضع هنا اسم المجلد " Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\" & fldrname If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If

اخي لم اقوم بتقديم حل انظر الى اخر مشاركة انت لم تقم بإرفاق النسخة التي تحتوي على خطأ

تفضل التعديل درجات الطلاب.accdb

تفضل التعديل s.zip

تفضل هذه الفكرة ************************************************* يجب اضافة الصورة قبل الإستخدام ************************************************* Date1.zip

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

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

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

تفضل التعديل 19.zip

ما الفرق بين الفيجول بيسك و #C و ++C كلها لغات تابعة لمياكروسوفت و #C و ++C كذلك هذا الهجين المستحدث في عام 2000 م من قبل أندريس هيجلسبرج / آمل أن اكون قد كتبت اسمه صحيح كلها لغات برمجة قوية في مجالات محدد و ضغيفة في اخرى لكن ما يمييز الاستديو بأنه قادر على التعامل مع اغلب لغات البرمجة و هذه بحد ذاتها نقطة قوة لدى ما يكروسوفت هل الفيجول بسيك ضغيف ؟ لا هي فقط ضعيف في بعض مجالات الوسائط القي نظرة على بعض لغات البرمجة التي ستجدها داخل الاستديو كذلك هذي لقد دخلت تغيرات كبيرة و جذرية في الفيجوال بعد الاصدار السادس حيث كما ترى اعلاه ان كنت تريد التحدث عن القوة

تفضل هذا المثال MyData.mdb

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

اخي بلال هذا السؤال يتكرر كثير اذا الحل لابد ان تتعلم و تقدم يد المساعدة لنفسك هذا هو الإنجاز الحقيقي دعنا نبدء بالتعلم الآن في البداية و في محرر الأكواد يجب ان نقوم بإضافة مكتب الاكسل كما بالصورة ادناه ثم تقوم بالبحث عن المكتبة التالية و اضافتها بهذه الطريقة اليك اهم ثلاث متغيرات للاتصال بملف الاكسل Dim xlApp As Excel.Application Dim xlWb As Excel.Workbook Dim xlWs As Excel.Worksheet الآن و تحت المتغييرات سوف نضع الأوامر التالية Set xlApp = New Excel.Application xlApp.Visible = False ' عدم عرض ملف الاكسل اثناء الاستيراد او التصدير Set xlWb = xlApp.Workbooks.Open(" ضع هنا مسار ملف الأكسل ") Set xlWs = xlWb.Worksheets(1) ' رقم صفحة في ملف الاكسل الآن سوف نضغ متغيير رقمي لكي نقوم من خلاله بتحديد السطر سيبدء الاستيراد منه Dim intLine As Long الآن لكي يتم تحديد حقل داخل الاكسل لغرض الاستيراد او التصدير للبيانات نستخدم الأمر التالي تحديد الحقل من خلال رقم العمود و رقم الصف xlWs.Cells(Line_Number, Column_Number).Value بعدما عرفنا كيفية تحديد الخلية الآن لو فرضنا أننا نريد استيراد الخلايا الى مربعات النص داخل الاكسس من خلال حلقة تكرارية ستكون بهذه الكيفية intLine = 2 'بدء الاستيراد من رقم السطر Do TextBox1 = xlWs.Cells(intLine, 1).Value TextBox2 = xlWs.Cells(intLine, 2).Value TextBox3 = xlWs.Cells(intLine, 3).Value ' نقوم بعكس القيم في حال التصدير '============================================ xlWs.Cells(intLine, 1).Select ' وضع المحدد داخل اول خلية في ملف الاكسل بعد الانتهاء intLine = intLine + 1 ' تحديد سطر جديد للاستيراد او التصدير Loop Until IsEmpty(xlWs.Cells(intLine, 1)) و بعد الانتهاء من الاستيراد يجب حفظ و انهاء ملف الاكسل xlWb.SaveAs CurrentProject.Path & "\Excel-" & Format(Now, "hh-nn-ss") & ".xlsx" xlWb.Close False xlApp.Quit Set xlApp = Nothing Set xlWb = Nothing Set xlWs = Nothing و هذا ببساطة كل شيئ عن مبادئ استيراد او تصدير ملف الاكسل

تفضل s.zip

تفضل ضع هذا الكود في حدث الحالي Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then If IsNull(ctl) Or ctl = "" Then Form.Controls(ctl.Name).Visible = False End If End If Next ctl

تفضل هذا التعديل النقر المزدوج على حقل الكود لعرض القائمة ورشة 1 - Copy.zip

اخوي افتح سؤال جديد و ارفق فيه مثال لكي يتم التعديل عليه شكرا لك

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

صحيح تم حل المشكلة لم افهم المقصود نعم صحيح و السبب لكي يكون لك مطلق الحرية في تصميم الملف تفضل التعديل الدائن و المدين.zip

تفضل هذا التقرير كما بالصورة &&ساعات (1).zip