نجوم المشاركات

ممكن تكتبها هكذا LIKE "*" & "مهندس" & "*" وهو هيجيب لك كل ال فيها كلمة مهندس

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

ممكن تعد عمود الرقم ب count =Count(A2:A10) وممكن تعد عمود الاسم ب counta =Counta(b2:b10) بالتوفيق

المرفق change dfb.accdb

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

أستاذ محمد مرفق برنامج انشاء الله سيعجبك تغيير كل شئ بالصورة . لا يخلو أي مبرمج من وجوده لديه . image tuner_7.0.rar

السلام عليكم التعديل تم كالتالي : 1- وجدت خلل غير ملاحظ وهو تسمية متغير بنفس اسم حقل الاسم ... وهنا تظهر فائدة Option Explicit في رأس المحرر 2- حذفت جميع ما يخص انشاء المجلدات وحذفها ، واذا اردنا حذف الملف وبياناته التي في الجدول فأرى من الأفضل تخصيص زر خاص بها 3- المشكلة الحقيقية كانت في ادخال مجلد قاعدة البيانات ضمن المسار .. فقمت باستبعاده عن المسار اخيرا ازلت جميع المسافات في تسميات المجلدات .. للتنبيه فيما لو نقلت القاعدة بجانب مجلداتك Newfolder.rar

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

ربما يرجع اختلاف الحل المقدم من الأخ الفاضل @محمد هشام. بسبب اختلاف فهم المطلوب أعتقد أن المطلوب * إن كان الاسم الموجود في ( أ) موجود في (ب) يتم كتابة نفس الاسم / وإذا لم يكن موجودا في (ب) يتم ترك الخلية أمامه فارغة (وهذا تم تنفيذه) * إن كان الاسم الموجود في (ب) غير موجود في (أ) يتم كتابة نفس الاسم من (ب) ويتم ترك الخلية أمامه في (أ) فارغة (وهذا لم يتم تنفيذه) بالتوفيق للجميع

تفضلي أستاذتنا @safaa salem5 محاولتي . CalculatAge.accdb

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

المشكله الاولة هي ان هناك حقول تحمل نفس الاسم فى اكثر من جدول بينهم علاقة وحلها فى الاتى تميز كل حقل بجدوله مثلا تضيف كلمة Item للحقل ال فى جدول Item وكلمة InvSub للجدول الفرعي للفواتير (هذا اقتراح) وممكن تعدلها بما تراها مناسب لك SELECT Sales_Invoice_sub.Sales_Invoice_No, Sales_Invoice_sub.Item_Name, Sales_Invoice_sub.Quantity_of_cartons, Sales_Invoice_sub.pieces_in_each_caton, Sales_Invoice_sub.JUST_PIECES, (Nz([Quantity_of_cartons],0)*Nz([pieces_in_each_caton],0))+Nz([JUST_PIECES],0) AS total_pieces1, (Nz([total_pieces1],0)*Nz([sales_cost_price_kwacha],0))-Nz([Discount],0) AS Value1, (Nz([total_pieces1],0)*Nz([sales_shop_order_price],0))-Nz([Discount],0) AS sales_total_sell_price, Sales_Invoice_sub.landing_cost, (Nz([landing_cost],0)*(Nz([JUST_PIECES],0)+Nz([bonus_qty],0))) AS total_landing_cost, Sales_Invoice_sub.Discount, item.Notes, item.Category_Name, item.packing_type, Sales_Invoice_sub.category_type, (Nz([total_pieces1],0)*Nz([sales_sell_shop_price_kwacha],0)) AS total_special, (Nz([total_order_k],0)-Nz([discount_kwatcha],0)) AS total_order, (Nz([total_pieces1],0)*Nz([sales_order_price_kwacha],0)) AS total_order_k, (Nz([total_order_us],0)-Nz([discount_dollar],0)) AS total_us, (Nz([total_pieces1],0)*Nz([sales_order_price_$],0)) AS total_order_us, Sales_Invoice_sub.discount_sub, ((Nz([total_order_k],0)*Nz([discount_sub],0))/100) AS discount_kwatcha, ((Nz([total_order_us],0)*Nz([discount_sub],0))/100) AS discount_dollar, Sales_Invoice_sub.sales_cost_price_kwacha, Sales_Invoice_sub.sales_shop_order_price, Sales_Invoice_sub.sales_order_price_kwacha, Sales_Invoice_sub.sales_sell_shop_price_kwacha, Sales_Invoice_sub.notes, Sales_Invoice_sub.bonus_qty, (Nz([bonus_qty],0)+Nz([total_pieces1],0)) AS total_pieces_with_bonus, Sales_Invoice_main.discount_main, ((Nz([total_order_us],0)*Nz([discount_main],0))/100) AS [discount_main_$], Nz([discount_main_$],0)+Nz([discount_dollar],0) AS [total_inoice_discount_$], ((Nz([total_order_us],0)-Nz([discount_dollar],0))-Nz([discount_main_$],0)) AS total_retail_sell, Sales_Invoice_main.curency_type, Sales_Invoice_main.term_of_payment, Sales_Invoice_main.Customer_Name, Sales_Invoice_main.sales_Invoice_date, Sales_Invoice_main.manual_invoice_no, item.supplier_company, item.cosmatics_category, item.cosmatics_group, item.barcode, item.cosmatics_range, item.DOASGE_FORM, item.category_med, item.Batch_No FROM Sales_Invoice_main INNER JOIN (item INNER JOIN Sales_Invoice_sub ON item.Item_Name = Sales_Invoice_sub.Item_Name) ON Sales_Invoice_main.Sales_Invoice_No = Sales_Invoice_sub.Sales_Invoice_No WHERE (((Sales_Invoice_sub.Item_Name)<>"balancing rate")); دي نسخه من التقرير بعد التعديل المشكله اتحلت وفتح عادي

السلام عليكم - جزاك الله خيراً هو هذا المطلوب

جرب هذا المرفق Get.accdb

لعل هذه الطريقة تفيدك في الوصول للهدف تم وضع 3 معادلات: معادلة لوضع الاسم إذا كان موجودا في ب وإلا يترك خاليا (في العمود الذي تم إدراجه B ) ومعادلة لتحديد غير الموجود في ب (في العمود D) معادلة لجلب الأسماء الموجودة في ب وغير موجودة في أ (أسفل القائمة في العمود B ) بالتوفيق ترتيب عمود بنفس قيم عمود اخر.xlsx

في الاصدارات ماقبل 2007 اي 2003 ومادون كانت هناك ميزة الاذونات والامان على مستوى المستخدم وهذه نبذه عنها من موقع مايكروسوف يشبه الأمان على مستوى المستخدم في Access آليات الأمان على الأنظمة المستندة إلى الخادم، فهو يستخدم كلمات المرور والأذونات للسماح بالوصول إلى العناصر الموجودة في قاعدة البيانات أو تقييد وصول الأفراد أو مجموعات من الأفراد إليها. في Access 2003 أو الإصدارات السابقة، عند تطبيق الأمان على مستوى المستخدم في قاعدة بيانات Access، يمكن لمسؤول قاعدة البيانات أو مالك عنصر التحكم في الإجراءات التي يمكن للمستخدمين الفرديين أو مجموعات المستخدمين تنفيذها على الجداول والاستعلامات والنماذج والتقارير وحدات الماكرو في قاعدة البيانات. على سبيل المثال، يمكن لمجموعة واحدة من المستخدمين تغيير الكائنات في قاعدة بيانات، ويمكن لمجموعة أخرى إدخال البيانات فقط في جداول معينة، ويمكن لمجموعة ثالثة عرض البيانات فقط في مجموعة من التقارير. وللوصول على هذه الميزه افتح برنامج اكسس ثم فتح وقبل اختيار الملف اختر فتح خاص ثم اختار الملف بعد فتح القاعدة من قائمة ملف اختار معلومات ستجدمن ضمن الخيارات ادارة المستخدمين والاذونات الاذونات والامان على مستوى المستخدم للاصدارات 2003 ولكن تعمل في الاصدارات بشرط عدم ترقية قاعدة البيانات الصورة المرفقة للاذونات التي استخدمت في البرنامج الحالي هل يمكن كسرها هنا اتوقف ونترك الامر للاساتذة فمن تحدث في غير فنه اتى بالعجائب اخونا الشايب

لنبدأ مما انتهى الآخرون منه

اتفضل الطلب الأول Me.Y = Int((Date - [bdate]) / 365) Me.M = Int(((Date - [bdate]) / 365 - Int((Date - [bdate]) / 365)) * 12) Me.D = Int((((Date - [bdate]) / 365 - Int((Date - [bdate]) / 365)) * 12 - Int(((Date - [bdate]) / 365 - Int((Date - [bdate]) / 365)) * 12)) * 30)

برنامج حميل أستاذ @kkhalifa1960 شفاك الله و عافاك

كما اخبرك الاستاذ @زياد الحسناوي هتحتاج تعمل فورم اما ان تعمل مربع نص وتستخدم معاها دالة Like وبكده هيكون مثل بحث قوقل او تستخدم قائمة بها جميع المسميات الوظيفيه وتحتار منها ما تريد

حسب ما فهمت منك لابد من عمل فورم يوجد فيه قائمة منسدلة مصدرها العناوين الوظيفية وعند التنفيد يكون مصدره الاستعلام و المعيار يكون [X]![nameform]! [FORM] حيث الاكس هو اسم الكومبوبوكس في الفورم

ترليون مبروك تستاهلوا كل خير نفعنا الله بعلمكم

سؤال ؟ حيرني وما لكيت اله اجابة ليش خليت العنوانين بهالطريقة بالكويري ؟

قم بتحويل مم.مهندس الى م_مهندس مثلا او م-مهندس

مبارك للاستاذين الكريمين عمر ضاحى و Foksh وبارك الله فيكم

هو هذا اللي اريده ...عاشت ايدك ابو جودي مع اعتذاري للاخوة الاساتذة @kkhalifa1960... @Foksh عندنا ...مهما تعبت على البرنامج ...يبقى شكل التقرير جدا مهم ويجلب الزبائن

استغفر الله استاذ عمر ..انا مجرد تلميذعند الجميع كلهم اساتذتي ..لكن ..والحق يقال ..لا غنى عن اساتذتي @ابوخليل.. @jjafferr

اتفضل test.accdb

وعليكم السلام ورحمة الله تعالى وبركاته لم استوعب الطلب جيدا لاكن على العموم تفضل جرب ووافينا بالنتيجة Sub Unique_Stores() Dim rng As Range, cRng As Range Dim cell As Range, Lastrow As Long Dim wsDest As Variant, s As String Dim cUnique As Collection Set WSData = ThisWorkbook.Sheets("aaa") 'عمود الفلترة Set rng = WSData.Range("L2:L" & WSData.Cells(WSData.Rows.Count, "L").End(xlUp).Row) Set cUnique = New Collection Application.ScreenUpdating = False Application.DisplayAlerts = False Application.CopyObjectsWithCells = False ' حدف الاوراق السابقة For Each ws In Sheets If ws.Name <> WSData.Name Then ws.Delete Next On Error Resume Next For Each cell In rng.Cells cUnique.Add cell.Value, CStr(cell.Value) Next cell On Error GoTo 0 ' انشاء اوراق جديدة For Each wsDest In cUnique s = wsDest Sheets.Add(After:=Sheets(Sheets.Count)).Name = wsDest ActiveSheet.DisplayRightToLeft = True With WSData Lastrow = .Cells(.Rows.Count, "L").End(xlUp).Row .Range("A2").AutoFilter field:=12, Criteria1:=wsDest ' النطاق المنسوخ Set cRng = .Range("A1:S" & Lastrow) cRng.Copy Sheets(s).Range("A2") .Select .[A2].AutoFilter End With Next wsDest '''''''''تنسيق الاوراق الجديدة ''''''' For Each wsCopy In ThisWorkbook.Worksheets If wsCopy.Name <> WSData.Name Then 'خلية اسم المخزن Set rng = wsCopy.[G1] rng = "المخزن" & "" & wsCopy.Name With rng .Font.Name = "Algerian": .Font.Size = 20: .Font.Color = vbBlue End With ' تنسيق الاعمدة For i = 1 To 19 wsCopy.Columns(i).ColumnWidth = WSData.Columns(i).ColumnWidth wsCopy.Rows(i).RowHeight = WSData.Rows(i).RowHeight ' التحقق من خطأ تنسيق الخلايا Application.ErrorCheckingOptions.BackgroundChecking = False Next '************************************************** ' لتسمية الاوراق باسم المخزن قم بتفعيل السطر التالي ' wsCopy.Name = rng '************************************************* End If Next wsCopy WSData.Activate Application.ScreenUpdating = True Application.CopyObjectsWithCells = True End Sub ترحيل البيانات حسب اسم المخزن.xlsb

العام معادلته =INT(B2/365) الشهر معادلته =INT((B2-B5*365)/30) اليوم معادلته =B2-SUM(B5*365,C5*30) مع العلم خطأ هذه الطريقة في الحسابات حيث 12 في 30 يساوي 360 فقط وليس 365 بالتوفيق

اكيد واحد عنده ما يزيد عن 8000 ثانيه من عمره يريد اضاعتهم هباءً فلا أهمية للوفت مطلقاً بالنسبة له

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