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

تم تعديل مثال اخونا Kanory ليعمل على النواتين 32بت و 64بت ، وبصيغة mdb 🙂 جعفر Kan_Fonts.zip

تفضل أخي الكريم .... Kan.accdb

وعليكم السلام 🙂 اول خطوة هي عمل حقل ترقيم تلقائي Auto_ID في كلا الجدولين ، هذه الجداول والبيانات الموجودة ، والبيانات المتشابهة بين الجدولين : . نعمل استعلام يأتي هذه النتائج : . . ثم نعمل استعلام حذف ، بحيث معيار Auto_ID الجدول TB1 نأخذه من نتائج الاستعلام qry_Similars : . وبعد تشغيل الاستعلام ، هذه نتائج الجداول : . جعفر 1304.مثال اوفيسنا استعلام حذف بيانات من جدول بناء على جدول اخر.accdb.zip

Sub test() Dim ws1 As Worksheet Dim ws2 As Worksheet Dim lr, x Dim rng Set ws1 = Sheets(1) Set ws2 = Sheets(2) Set rng = ws2.Range("c3") lr = ws1.Cells(Rows.Count, 2).End(3).Row For x = 2 To lr If ws1.Cells(x, 2) = rng Then ws1.Cells(x, 1).Resize(1, 4).Copy ws2.Range("b7").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Application.CutCopyMode = False Exit For End If Next x End Sub جرب المرفق test (2).xlsm

السلام عليكم ورحمة الله وبركاته فكرة بسيطة لترجمة الاسماء باللغة العربية الى اللغة الانجليزية ممكن تجربته names.xlsm

كما يمكنك استعمال هذا الماكرو البسيط Option Explicit Sub Get_sum_by_formula() With Sheets("totalICU").Range("B7").Resize(31, 20) .ClearContents .Formula = "=SUM('ICU1:ICU3'!B7)" .Value = .Value End With End Sub

السلام عليكم ورحمة الله وبركاته تفضل اخوي العزيز .. بعد اذن اخوي العزيز .. سليم Copy of Malades.xlsm

تفضل لك كل ما طلبت حسابات العملاء 1.xlsx

حياك الله ....... الحمد لله رب العالمين

بشرط اذا وجدت القاموس تدرجة هنا مع هذا المثال ..... طبعا موافق .... طيب انظر المرفق .... names.mdb

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

بارك الله فيك ..... الحمد لله رب العالمين

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

نعم ممكن .... أعتقد انا شفت مثال بهذه الصورة في المنتدى .... استخدم خاصية البحث في المنتدى وسوف تجد ما يسرك .. ان شاء الله تعالى

حياك الله ... الحمد الله رب العالمين

انشأ استعلام تحديث وطبق كما في الصورة

لا أعلم اذا كان هذا المطلوب abdelrhmank.xlsx

هناك علاقة موجودة بين الجدولين هي تمنع التحديث لذلك طبق حسب الصورة ثم اعد تلك العلاقة بعد الترحيل مرة اخرى احذف العلاقة رقم 1 كون العلاقة رقم 2 انشأ التحديث رقم 3 شغل الاستعلام ليتم تحديث بيانات الجدول istimaraall ثم اعد العلاقة رقم 1 مرة اخرى

ماهي الرسالة التي تظهر صور لنا تلك الرسالة

اكتب هذا الكود If IsNull(Texte8) Or Me.Texte8 = "" Then " اكتب الاسم "MsgBox DoCmd.CancelEvent Else DoCmd.OpenReport "mouv", acViewReport End If

لا يوجد لدي جهاز حاليا فيه 64 بت ولكن جرب هذا ..... Kan.accdb

السلام عليكم ورحمة الله وبركاته رأيت موضوع مهم من الاستاذ العبقرى المحترم سليم حاصبيا واريد تنفيذه وانا فى نهاية عمرى بحب اتعلم لقد تجاوزت60 من عمرى بس انا احب اتعلم لو سمحتولى الاساتذة العلماء موضوع الاستيراد من ملف مغلق لدى ملف به كودين الاول تفضل الاستاذ سليم بكتابة اكواده الى وهو بميزان حسناته ان شاء الله وهو كود استدعاء الكود الاخر قمت بتحميله من المنتدى كان سؤال احد الاخوة وهو من كتابة الاستاذ ياسر وان شاء الله بميزان حسناته الكودين والشيتات التى يتم الترحيل اليها والاستدعاء منها بالملف المسمى My_New_Repport احتاج الى ان يكون الكودين بالشيتين transfer-Report_Youmi بملف وياريت ياريت لو حبيت اضيف اكواد تانى لهذا الملف تعليمى ما هى الاضافات التى اضفها الى الكود لكى يعمل معى وباقى الشيتات بملف اخر ومغلق وان اقوم بفتح ملف الموجود به الشيتان فقط لا افتح الملف الاخر الذى به باقى الشيتات التى تتم الترحيل والاستيراد منها واعمل عليه فقط ويتم التنفيذ على الاخر وهو مغلق اعتذر للاطالة بس اتمنى شرح كيف انفذ الموضوع هذا الملف my new به كودين الاول ترحيل الى صفحات العمل بالملف. والكود الثانى استدعاء بيانات من صفحات العمل اريد بعد اذنكم فصل الشيتان الذان بهما الكودين فى ملف وباقى الشيتات فى ملف وأقوم بفتح ملف الذى تم فصل الكودين فيه وارحل واستدعى من وإلى الملف الآخر وهو مغلق مع الشكر والتقدير والاحترام كى لا ارهقكم بالاسئلة اساتذتى الافاضل الكرام شكر وتقدير واحترام من اخيكم My_New_Repport.xlsm ملف مطلوب ترحيل اليه والاستدعاء من وهو مغلق.xlsx

كلمة And لا محل لها من الاعراب !! جعفر

بارك الله فيك و جزاك الله خيرا عمل جبار💥

مشاركة مع استاذ جعفر ارجو ان تكون موفقة aaa.rar

بعد ادن الاستاد خيماوي كووول جرب المرفق ادخل رقم الشيت في العمود B ثم عدد مرات النسخ الى جانبه بالعمود A ثم انقر زر Entre لوحة المفاتيح كود عادي في حدث change اتمنى ان يفي بالغرض 1.xlsm

استبدل في الكود الرقم 15 بـــ 19 والرقم 16 بـــــ 20 اي زيادة 4 أعمدة

جزاك الله خير يا أخي جعفر لقد حلت المشكلة بعد تغيير اعدادات اللغة في الويندوز وتغيير اسم البرنامج

وعليكم السلام-اهلا بك فى المنتدى -تفضل لك ما طلبت المصنف1 1.xlsx

وعليكم السلام عليك بتتبع هذه الفيديوهات فستدلك على افضل الطرق تحويل الاسماء من العربي للانجليزى تلقائيا اكسل ترجمة الاسماء_تحويل كم كبير من الأسماء المكتوبة باللغة العربية إلى الانجليزية بضغطة زر

السلام عليكم ورحمة الله وبركاته طريقة اخرى .. عن طريق data .. نقوم بختيار consolidate .. عملية الجمع sum .. Copy of حركة المرضى.xlsm

جرب هذا الملف (تم ازالة زركشات الألوان لتصغير ججم الملف) بالاضافة الى تجسين المعادلات بجيث لا تظهر اخطاء الكود Option Explicit Sub Get_sum() Const Start = 7 Const Fin = 37 Dim ar_sh, Ar_sum(15) Dim A1, A2, A3 Dim ro_ws%, i%, k% ar_sh = Array("ICU1", "ICU2", "ICU3") For i = Start To Fin A1 = Sheets(ar_sh(0)).Range("B" & i).Resize(, 16) A1 = Application.Transpose(A1) A1 = Application.Transpose(A1) A2 = Sheets(ar_sh(1)).Range("B" & i).Resize(, 16) A2 = Application.Transpose(A2) A2 = Application.Transpose(A2) A3 = Sheets(ar_sh(2)).Range("B" & i).Resize(, 16) A3 = Application.Transpose(A3) A3 = Application.Transpose(A3) For k = 0 To 15 Ar_sum(k) = Val(A1(k + 1)) + Val(A2(k + 1)) + Val(A3(k + 1)) Next k Sheets("totalICU").Range("B" & i).Resize(, 16) = _ Ar_sum Next i End Sub Malades.xlsm

نعم ..... ولكن اين الفرز في مثالك .... ممكن تدرج لنا مثال حتى يمكن ارشادك للطريقة الممكنه ' هذا الكود لاخفاء القائمة ChangeProperty "AllowShortcutMenus", DB_Boolean, False 'وهذا لاظهارة مرة اخرى ChangeProperty "AllowShortcutMenus", DB_Boolean, True ولكي يعمل الكود يجب اعادة تشغيل القاعدة مرة اخرى

هذه احد الدروس 🙂 إنشاء دروس VBA أكسس - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

طبق من خيارات الاكسس وازل العلامة من السماح بالقوائم المختصرة الافتراضية

وهنا افكار جديدة وتستحق Reset Select Table.mdb

يلي ماإلو أديم ماإلو جديد 😄 مشكور استاذنا @ابا جودى

المرفق قديم ولكن 882034828_.zip

وبكم اخي محمد وشهادتكم وسام اعتز به

افكارة بحث جميلة جداً بارك الله بجهودك

عزيزي الكريم لم افهم الغاية من حفظ الاسم في جدول لانه موجود بالاساس في جدول tab1 اما ان كان قصدك هو طباعة السجل الحالي الموجود في النموذج الفرعي فهذا الحل ان شاء الله مع حبي وتقديري لك وللاستاذ @ابا جودى Database1.mdb

هذا المرفق يحتوى على نموذج بدون مصدر بيانات وحقول غير منضمه ومن خلاله يتم الحاق البيانات بالجدول الشرح Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("اسم الجدول") rs.AddNew rs("اسم الحقل فى الجدول") = Me![اسم الكائن فى النموذج] rs.Update rs.Close 606969672_Unboundform.mdb

ادة مهمة لا غنى عنها تحويل الحروف والارقام الى الترميز العالمى UNICODE وذلك لكتابة الرسائل داخل المحرر منعا لمشاكل اللغة العربية نهائيا والعكس طبعا لقرائتها كرة أخرى Converter Arabic and Unicode (v. 2).mdb

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

بارك الله بكم واضم صوتي الى صوتك

السلام عليكم 🙂 الاستعلام qry_Attended_Absent يحتوي على صافي البيانات ، حسب ما تصفيه في النموذج ادناه ، والنموذج frm_Main هو الذي تبحث من خلاله ، وبعد ان تختار من الحقول ، يجب ان تنقر على الزر "ابحث" (او اطبع) حتى تحصل على البيانات المطلوبه ، ويمكنك النقر مرتين في اي حقل ، حتى تجعله فارغا ، مما يعني انك تريد جميع بيانات ذلك الحقل : . جعفر 1279.1.attend.accdb.zip

وهذا التعديل على مرفق استاذى الجليل و معلمى القدير والدى الحبيب الاستاذ @jjafferr المرفق يتم من خلاله استيراد ملف CSV او اكثر من ملف فى وفت واحد يتم فصل الوقت والتاريخ كل منهما حقل منفصل وجمهما معا يستطيع اخونا الكريم الاستاذ saffar اختيار ما يريد ومن ثم يكمل عمله بكل سهولة بعد ذلك ImportExcel (jjafferr) Correc Date Format.zip

الف مليون شكر لحضرتك تم التجربه وشغاااااال زاي الفل

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

احسنت اخي حسين تقبل خالص تحياتي