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

وعليكم السلام 🙂 الحل الاقصر if len(dir("\\100.0.100.5\temp\myData.accdb"))=0 then msgbox "لا توجد شبكة" end if جعفر

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

يمكنك استعمال التنسيق الشرطي بمعادلة مثل =OR(COUNTIF($F$6:$I$11,C6)>0,COUNTIF($L$14:$N$19,C6)>0) وتطبق على المدى المطلوب بالتوفيق عدم السماح بتكرار.xlsx

Sub Test() Dim a, c As Long, r As Long With ActiveSheet r = 7 a = .Range("B7").CurrentRegion.Offset(1).Value For c = LBound(a, 2) To UBound(a, 2) .Range("E" & r).Resize(UBound(a, 1)).Value = Application.Index(a, , c) r = r + UBound(a, 1) - 1 Next c End With End Sub

السلام عليكم ورحمة الله وبركاته هذا ناتج تمرين اليوم على البرمجة VBA 🙂 :: آلة حاسبة :: أهديكموها مفتوحة المصدر 😊🎁 ملاحظة : تم إضافة خاصية الحساب عن طريق مفاتيح الكيبورد 😊 مع حل مشكلة الأرقام العشرية 😁 آراؤكم ودعواتكم 😉 Moosak Calculator V1.1.accdb

تم تنفيذ المطلوب بالفيجوال لاحظ ان الخلية F1 تحتوي علي معادلة ..فقط اضغط الزر وستجد النتيجة امامك ...تفضل att test#3.xlsb

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

السلام عليكم ورحمة الله اذن لا مناص من استخدام الكود التالى Sub TrData() Dim ws As Worksheet, Sh As Worksheet Dim LR As Long, i As Long, j As Integer, p As Long Dim Arr As Variant, Tmp As Variant, Fsl As String Application.ScreenUpdating = False Set ws = Sheets("قوائم الفصول") Set Sh = Sheets("مجمع الشيتات") LR = Sh.Range("E" & Rows.Count).End(3).Row ws.Range("C" & ws.Range("E" & Rows.Count).End(3).Row + 1) = "" Fsl = ws.Range("F4").Value If IsEmpty(Fsl) Then Exit Sub Arr = Sh.Range("C10:P" & LR).Value ReDim Tmp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If Arr(i, 13) = Fsl Then p = p + 1 For j = 1 To 8 Tmp(p, j) = Arr(i, Choose(j, 1, 2, 3, 5, 7, 9, 10, 13)) Tmp(p, 1) = p Next End If Next If p > 0 Then ws.Range("C10").Resize(p, UBound(Tmp, 2)).Value = Tmp Application.ScreenUpdating = True End Sub

وعليكمالسلام تفضل أخي M_L - Copy (7) (1).mdb

جميعا بإذن الله

شكرا استاذ محمد لاهتمام حضرتك و جزاك الله خيرا

المشكلة الأولى تكمن في أن النص الموجودج في مربع النص هو نص string وليس مصفوفة array والحل mycols = Split(textbox2.value, ",") لتحويل النص إلى مصفوفة ولتحويل العنصر في المصفوفة من نص إلى رقم نستعمل int في هذا السطر a(ii + 1, j) = ws.Cells(i, Int(myCols(ii))).Value والمشكلة الثانية تكمن في أن الخلية الفارغة قيمتها صفر ولا يوجد عمود رقمه صفر والحل ألا توجد خلية فارغة وهذا ملفك بعد التعديل: لأنه في الغالب يوجد مشكلة في تطبيق المعلومة المستفادة من الإجابة بالتوفيق listbox dynamic.xlsb

طيب ... ايش رأيك في هذا ...... اذا كان ينفعك ... Me.RecordSource = "SELECT *FROM tbl_Employ IN 'C:\Users\ACER\Desktop\AdoForm\Adb_Dat.accdb'[access];"

اشكركم على تعاونكم

السلام عليكم ورحمة الله وبركاته بعد إذن الأستاذ محمد صالح المحترم وإثراء للموضوع أرى أنه يمكن الحل - كما ذكر أستاذنا العزيز محمد - بالتنسيق الشرطي مضافاً إليه التحقق من الصحة لطول النص لأرقام الهواتف والبطاقة ولمنع تكرار الاسم أيضاً تقبلوا تحياتي العطرة والسلام عليكم. رسائل تنبيه من عدة اعمدة.xls

يمكنك استعمال التنسيق الشرطي رسائل تنبيه من عدة اعمدة.xls

يمكنك استعمال هذا الاجراء Sub merge2cols() rng1Count = Cells(Rows.Count, "B").End(xlUp).Row - 6 rng2Count = Cells(Rows.Count, "C").End(xlUp).Row - 6 lr = Cells(Rows.Count, "E").End(xlUp).Row + 1 Range("E" & lr & ":E" & rng1Count + lr - 1).Value = Range("B7:B" & Cells(Rows.Count, "B").End(xlUp).Row).Value lr = Cells(Rows.Count, "E").End(xlUp).Row + 1 Range("E" & lr & ":E" & rng2Count + lr - 1).Value = Range("C7:C" & Cells(Rows.Count, "C").End(xlUp).Row).Value End Sub بالتوفيق نقل عمودين في عمود.xlsb

لن ينجح الامر مع كل دوال api بهذا التغير فقط ومن ضمنهم اخفاء اطار الاكسس ولكن لابد من بعض التعديلات الاخرى على بعض المتغيرات كما ان هناك اصلا دوال api لا تعمل مع نواة 64 حتى لو قمت بتغير ما تفضلتم به غير ان تلك الطريقة وان صادفت متغيرات تقبلها وعملت القاعدة سوف تفقد عمل القاعدة على النواة 32 ان تم تغيير الجاسوب لذا انصحكم بهذا الموضوع

احسنت

تم حل مشكلة الأرقام العشرية (ولله الحمد) قبل أن أرى مشاركتك عمي @jjafferr 😅🖐️ والملف أرفقته في المشاركة الأصلية 🙂 عمي @jjafferr طلعلي هذا في الملف مالك 😅

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

يا اخوة الاجابتان سواء ربما سبقت اجابتي فكانت قبل أي إجابة بدقيقتين فقط الغبرة بنفع الغير وليست في نقاط وهمية بالتوفيق

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

فعلا هناك مشكلة في الفاصلة إذا تلاها صفر .. باب الاجتهاد فيها مفتوح 👍🏼😁 تم حل هذا الإشكال 👍🏼

استاذ علي ...خدني على قد عقلي ...فانا شيخ كبير هل كان البرنامج يشتغل عندك منذ فترة وفجأة ظهرت هذه المشكلة ؟ ام انك قمت بالتعديل على بعض الاكواد وظهرت المشكلة ... ياريت نسخة مبسطة من البرنامج لديك ... الموضوع مهم ... واعتقد انك اول شخص يطرحه خلينا نستغل استاذنا ابو موسى في هذا الموضوع 😄

لعيونك يا دكتورنا العزيز :

وهذا ملفك الاساسى خلفيتين مائيتين مختلفتين في صفحتين.xls

الحمد لله الذي بنعمته تتم الصالحات...جزاكم الله خيراً على هذا الدعاء الطيب... لكن كيف تحولت أفضل إجابة ؟!!. سبحان الله....ليست الغاية أفضل إجابة ... بل الغاية وجه الله تعالى وصدقة عن ولدي .... لكن كيف تحولت بعد ...... ؟؟؟؟؟!!!... سبحان الله والسلام عليكم

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

ان شاء الله اكمل اعتذر نسيت الموضوع لانشغالى

كل عام أنتم جميعاً بخير بمناسبة أفضل أيام الدنيا العشر الأوائل من ذي الحجة كنت قد صممت في الفترة السابقة أداة للتحويل بين الأكسس وmysql ويبدو أن فكرتها غير ممكنة نظرا لاختلاف الملفات التي ينبغي أن يتعامل معها البرنامج والتي يتم تصديرها من أكثر من إصدار لنسخة phpmyadmin لذلك كنت قد صممت لنفسي برنامج لتحويل ملفات الإكسل إلى قواعد بيانات mysql ولكن يحتاج إلى برنامج مساعد هو mysql-connector-odbc ويمكنكم تحميل أحدث نسخة منه من موقعه http://dev.mysql.com...connector/odbc/ واليوم أعرضه لأحبابي وبانتظار ملاحظاتكم واقتراحاتكم للعلم برامجي الأصل فيها مناسبتها لاحتياجاتي فإذا احتجتم إضافة شيء فأبلغوني به ولا تنسوني من صالح دعائكم MasExcelAndMysql.rar

شكرا لتواصلك أخي العزيز م / محمد طاهر أستخدم نسخة ويندوز 7 - 32 بت ولكن هل حملت الموصل من رابط الميديا فاير أم من موقعه؟ لأن الرابط في ميديا فاير 32 بت ولذا يفضل تحميله من موقعه والتسجيل فيه لكي تحمل النسخة الموافقة لنظامك 64 بت ربما يكون هذا هو السبب

قمت باستيراد قاعدة بيانات mysql إلى أكسس 2010 بدون اي مشاكل خطوات الاستيراد: get external data odbc database file data source ----> new select Mysql odbc 5.1 driver next ---> any name next ---> finish server user password ok إذا ظهرت رسالة أنه لم تتم عملية الحفظ لا مشكلة (لأنه بالفعل تمت عملية الحفظ وظهر الملف في مجموعة مصادر البيانات) اختر الاسم الذي حفظته به من مصادر البيانات ثم ok تظهر نافذة خيارات الخادم والمستخدم وقاعدة البيانات مرة أخرى حدثها ثم ok تظهر جداول القاعدة اختر منها ما تشاء ثم ok بعدها يتم الاستيراد بنجاح

أنا جربت البرنامج والبرنامج المساعد في إكسل 2010 وشغال تمام ومن قبلها إكسل 2007 ومفيش مشاكل وسأجرب مع الأكسس وأخبرك بالنتيجة رغم أني لا أعتقد وجود مشكلة في الكونيكتور لأنه لم يتم إضافة bugs إليه

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

أكرمك الله أخي عبد الله فقط أنا أحاول نفع نفسي وغيري وأنت بحق (دينامو) المنتدى فأينما أتحرك أجدك منيراً للمكان وفقنا الله وإياكم

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

يفضل إرفاق ملفك للتعديل عليه أو يمكنك استعمال الأمر kill ثم بعده تكتب مسار الملف الذي تريد حذفه

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

اقتراح جيد أخي سعيد ولكن أعتقد أن الأمر به ســــــــــــــــــــــــــــــــــــــــــــــــــــعة وكلنا يعرف بعضه باسمه الحقيقي وبأولاده وربما يكون للاسم المستعار حكاية مع صاحبه ربما أعرض لكم حكايتي mas123 إذا رغبتم فيها