ازهر عبد العزيز

لولا اني احبك استاذ @jjafferr يمكن كنت دعيت عليك ماهذا الكود لا حول ولا قوة الا بالله معقولة يمكن انت تتريك وتتغدى وتتعشى كودات Private Sub Browse_Click() ' open the widows filw dialog to select the Excel file With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Add "Excel Files", "*.xls ; *.xlsx" '.Filters.Add "Excel Files", "*.csv" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then Me.txtPath = .SelectedItems(1) End If End With End Sub Private Sub cmd_Selected_File_Click() ' import the Excel sheet '1 'Empty the temporary Table tabl1 CurrentDb.Execute ("Delete * From tabl1") '2 'import Sheets to table tabl1, one at a time Dim blnHasFieldNames As Boolean, blnEXCEL As Boolean, blnReadOnly As Boolean Dim lngCount As Long Dim objExcel As Object, objWorkbook As Object Dim colWorksheets As Collection Dim strPathFile As String, strTable As String Dim strPassword As String ' Establish an EXCEL application object On Error Resume Next Set objExcel = GetObject(, "Excel.Application") If Err.Number <> 0 Then Set objExcel = CreateObject("Excel.Application") blnEXCEL = True End If Err.Clear On Error GoTo 0 ' Change this next line to True if the first row in EXCEL worksheet ' has field names blnHasFieldNames = False strPathFile = Me.txtPath ' "C:\Filename.xls" ' Replace tablename with the real name of the table into which ' the data are to be imported strTable = "tabl1" '"tablename" ' Replace passwordtext with the real password; ' if there is no password, replace it with vbNullString constant ' (e.g., strPassword = vbNullString) strPassword = vbNullString '"passwordtext" blnReadOnly = True ' open EXCEL file in read-only mode ' Open the EXCEL file and read the worksheet names into a collection Set colWorksheets = New Collection Set objWorkbook = objExcel.Workbooks.Open(strPathFile, , blnReadOnly, , strPassword) For lngCount = 1 To objWorkbook.Worksheets.Count colWorksheets.Add objWorkbook.Worksheets(lngCount).Name Next lngCount ' Close the EXCEL file without saving the file, and clean up the EXCEL objects objWorkbook.Close False Set objWorkbook = Nothing If blnEXCEL = True Then objExcel.Quit Set objExcel = Nothing '3 ' Import the data from each worksheet into the table For lngCount = colWorksheets.Count To 1 Step -1 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTable, strPathFile, blnHasFieldNames, colWorksheets(lngCount) & "$" '4 'append the data using the proper query DoCmd.SetWarnings False DoCmd.OpenQuery "qry_" & lngCount DoCmd.SetWarnings True '5 'empty tbl_Sheets CurrentDb.Execute ("Delete * From tabl1") Next_lngCount: Next lngCount ' Delete the collection Set colWorksheets = Nothing ' Uncomment out the next code step if you want to delete the ' EXCEL file after it's been imported ' Kill strPathFile MsgBox "Done" End Sub على كلن جزاك الله كل خير

جميل لكن الصوت غير واضح

السلام عليكم ...... لكي توضح الصورة البرنامج عبارة عن تجارب يقوم بها الاطباء في المختبر في الورقة 2 نموذج ترحيل البيانات بواسطة الماكرو يوجد اسم المختبر وتاريخ التجربة واسم الدكتور وفي الاسفل اسم الفايروس وكمية الفايروس واسم العلاج وكمية العلاج ونتيجة التجربة المشكلة عند ترحيل البيانات من هذة الورقة الى الورقة الثالثة لاتوجد مشكلة كل شئ تمام لكني اعاني في حال كانت هناك اكثر من تجربة ان الحقول اسفل اسم الدكتور و ورقم المختبر وتاريخ التجربة يظهر لي فقط السطر الاول صحيح وبقية الاسطر فارغة كما في الصورة التحديد باللون الاصفر كيف اجعل بقية السطور تاخذ نفس البيانات بعد الترحيل ارجو المساعدة والنصيحة في حال وجود خطا New Microsoft Excel Worksheet.xlsm

شكرا جزيل استاذ Ali Mohamed Ali وهو المطلوب جزاك الله عني كل خير

السلام عليكم ........ لدي مجموعة من المسائل تحتاج الى حلول كما في الصورة الاسئلة باللون الاصفر ارجو المساعدة الفلزات.xlsx

السلام عليكم في الورقةالعناصر الفلزية احتاج تامين الصف الاول من الجدول من الحذف بشرط امكان التعديل على البيانات بداخلة وايضا منع ترك المستخدم من ترك حقل فارغ في الصف الاول من الجدول الفلزات1.xlsx

الاستاذ المبدع سليم حاصبيا شكرا جزيلا وهو المطلوب

ما شاء الله ولا اروع استاذ سليم حاصبيا لكن هناك مشكلة في المعادة الثانية يكتب لي TRUE وانا احتاجها X

moneer saad ما شاء الله احسنت ابداع ملاحظة لماذا النهائي ربي يعطيك الصحة والعافية وتقوم بتطويرة اكثر فاكثر

السلام عليكم .... في الحقل الاصفر الموجود اسفل الجدول اريد ان يكتب لي TRUE اذا كان العمود فلز تحتوي احد حقولة على T1 وبعكسة يكتب FALSE ام في الحقل الاصفر الاخر الموجود ايضا اسفل الجدول اريد ان يكتب لي X اذا كان الحقل القيمة 2 يحوي على العدد 11 وبعكسة يكتب لي Z يتضمن.xlsx

شكرا استاذ @ابو عارف شكرا استاذ @الفلاحجى شكرا استاذ husamwahab جزاكم الله عني كل خير

الاساتاذ العزيز @الفلاحجى يوجد عندي مشكلة في تنزيل الملف من هذا الرابط ارجو المساعدة كالعادة استاذي العزيز @husamwahab وهو المطلوب شطرا جزيلا

السلام عليكم ....... في النموذج Flibraries احتاج مربع تحرير وسرد يمكنني من التنقل بين المكتبات libraiesT1.accdb

الاستاذ Ali Mohamed Ali شكرا جزيلا لكن انظر الى الصورة مازلت استطيع تغير حجم الخلايا Column Width &RowHeight.xlsm

السلام عليكم ...... في الملف كيف احافظ على حجم الخلايا من تغير عرضها عند تغير عرض الصف بالكامل مثال عند تغير عرض الصف L لا اريد الخلايا الملونة يتغير حجمها وهل يمكن عمل ذلك مع الجداول New Microsoft Excel Worksheet.xlsx

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

الاستاذ taas2079 ارجو ان لاتزعل من الصديق مهند محسن فهنا الجميع يرغب بتقديم المساعدة واعتقد انة لم يقم بالتوبيخ كما ذكرت بالنسبة لسؤالك اذهب الى قائمة START من الوندوز عندك ثم اختر Ease of Access ثم Keyboard ليظهر لك الكيبورد على سطح المكتب ثم قم بالضغط من خلال هذا الكيبورد على الزر ScrLk ليرجع الكيبورد المتصل شغال ارجو ان اكون وفقت بالشرح

ان شاء الله في الانتظار استاذ ابوخليل

السلام عليكم ...... طلب مني انشاء مكتبة تتضمن عدد من المكتبابات قد يزداد وقد ينقص وبعد محاولات من الفشل الذريع لم يبقى لي سوى اللجوء الى اوفيسنا لحل هذى المشكلة لدي مجموعة جداول اولا- tbbooks وهو جدول الكتب ثانيا- tblibraries وهو جدول المكتبات ثالثا- tbaction وهو جدول لربط جدول المكتابات مع الجدول الكتب رابعا -tbreaders وهو جدول القراء المطلوب انشاء نموذج يمكنني من التعامل مع استعارة الكتب وارجاعها يتضمن اسم القارئ و تاريخ الاستعارة وتاريخ ارجاع الكتاب وحالة الكتاب وايضا في حالة الاستعارة من احدى المكتبات يتم انقاص الكتاب من مجموع الكتب الموجودة لنفس الكتاب من المكتبة التي تم الاستعارة منها ويزداد في حالة ارجاع الكتاب ارجو منكم ان تتحملوني في حال لاحظتم بعض الاخطاء في العلاقات ولكم جزيل الشكر libraies-1.accdb

شكرا استاذ Ali Mohamed Ali وهو المطلوب جزاك الله عني كل خير

السلام عليكم احتاج في شيت تحليل البيانات عند اختيار اسم الفلز من القائمة المنسدلة يظهر لي بشكل مباشر كود الفلز 5 الذي يقابلة في صفحة العناصر الفلزية الفلزات.xlsx

السلام عليكم...... في النموذج tblAction_Form لماذا عندما اختار اسم الكتاب من الحقل idbook لاتظهر لي مجموع الكتاب الموجوده في المكتبة في الحقل qbook libraies-1.accdb

السلام عليكم في الجدولين لماذا لا استطيع تحديد خاصية تحديث الحقول المرتبطة في العلاقة راس براس the students1.accdb

سؤال اخر لو سمحت يا استاذ husamwahab لو فرضنا انة لدينا 100 كتابA موجود في المكتبة 1 و 200 كتاب ايضا A موجو د في المكتبة اثنان و50 كتاب ايضا A موجود في المكتبة 3 اين اضع الحقل الذي يشير الى اعداد الكتب في الجداول الثلاثة

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