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

السلام عليكم ,,,,, في النموذج FMAIN احتاج زر عند الضغط علية يقوم بالتراجع عن كل التغيرات او الاضافات التي حدثت في الحقول xxx.accdb

السلام عليكم ,,,,, احتاج ترحيل بيانات من الورقة 2 الى الورقة 3 tset20.xlsm

عذرا هنااك خطا في السؤال

ولا اجمل ولا احلى روعه

ماهي الميزة استاذي خالد

السلام عليكم ,,,,,,, لماذا استخدم متغيرات مختلفة بينما استطيع استخدام متغير واحد هو variant هل هناك مشاكل في استخدامه واماهي

في هذا الكود كيف اجعل حقل u= mij Private Sub xvk4_Click() Dim a, B As Integer Dim u As String u = Me.q B = Me.z a = Me.x Me.y = B + a u = "mij" End Sub

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

السلام عليكم..... احتاج كود يحول لي الارقام السالبة الى موجوبة طبعا يستثني الارقام الموجوبة

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

استاذي العزيز اولا شكرا لسعت صدرك وتقبلك النقد بالنسبة لاقتراحاتي 1- يجب ان يكون هناك اللوان ماخوذوة من السنة التي نحن بها فكل سنة تتطرح شركات التصميم الوان مغايرة للسنة التي قبلها 2- الازاز في التصميم لو افترضنا طبعا انها الشاشة الرئيسية فهي غير متشابهة بالتصميم بالحجم والطول وشكل الازرار يذكرني بالبرامج المعمولة عام 2002 حبذا لو كانت احترافية اكثر 3-حجم الساعة وشكلة في النموذج وموقعة غير مناسب اطلاقا 4-لون الخلفية لو كان متدرج افضل 5- العنوان الرئيسي شكلة وموضعة وحجمة ليس بااحترافي ولا اعراف هل شعارك الموجود على اليمين من ضمن البرنامج فاذا كان كذلك فحجمة وتصميمة غريب يفضل تصغيرة طبعا النقد فقط للتصميم الواجهة وليس للبرنامج

بصراحة وبدون زعل راح انطي (((((التصميم))))) تقيم 25 من 100

ما شاء الله استاذي 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 على كلن جزاك الله كل خير

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