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

ما شاء الله استاذي husamwahab العزيز حسام ولا اجمل ولا احاى من هكذا جواب اباداع

السلام عليكم ..... في النموذج Fd هناك حقلان x2 ,x3 المطلوب عند الزيادة او النقصان في الحقل x2 تتم اضافة نفس القيمة الى الحقل x3 في النقصان او الزيادة مثال الحقل الاول x2 = 1.20 في حال جعلهنا 2.20 تتغير قيمة الحقل x3 الى 3.30 بزيادة 1 وفي حالة النقصان مثال مثال الحقل الاول x2 = 1.20 في حال جعلهنا 0.20 تتغير قيمة الحقل x3 الى 1.30 بنقصان 1 d.accdb

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

السلام عليكم في النموذج xxxxx احتاج الى اضافة حقل ياخذ قيمتة الافتراضية من الحقل y2 باي طريقة ممكنة القيمة الافتراضية.accdb

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

السلام عليكم ..... في النموذج Faction2 يوجد مربع تحرير وسرد مصدر بياناتة هو TBLibraries اي جدول المكتبات وفي نفس النموذج نموذج فرعي Faction3 يحتوي ايضا على مربع تحرير وسرد مصدر بيانتة هو TBBooks اي الكتب المطلوب عند اختيار اسم مكتبة من مربع التحرير الاول ونفرض اخترنا اسم المكتبة library2 وعند الاختيار من مربع التحرير وسرد الثاني في النموذج الفرعي تظهرلي جميع الكتب الموجود في المكتبة التي تم اختيارها من مربع التحرير وسرد الاول اي ستظهر لنا الكتب التالية (book1,book2,boo3) المساعدة باي وسيلة ممكنة ز libraries.accdb

السلام عليكم .... في النموذج المنقسم xxxxx يوجد مربع تحرير x لتصفية البيانات داخل النموذج المشكلة عند الضغط على زر تفريغ الحقول لاتظهر لي البيانات بينما اذا قمت بمسح الكتابة الموجودة داخل هذا المربع والضغط على رز تحديث تظهر لي البيانات بعد عملية التصفية المطلوب عند الضغط على زر تفريغ الحقول تظهر لي جميع البيانات xxxxxx.accdb

تم

السلام عليكم هل توجد طريقة لحذف الاسماء المكررة من الجدول NAMEA A.accdb

السلام عليكم .. لماذ لا استطيع عمل علاقة مرجعية بواسطة الحقل A في الجدول ABC مع الحقل DEF في الجدول DEF ABCDEF.accdb

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

لولا اني احبك استاذ @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