عبد الله قدور

للرفع

السلام عليكم ورحمة الله وبركاته حياكم الله جميعا وجدت هذا الكود على النت يقوم بترجمة النصوص داخل النموذج عن طريق كوكل ترانسليت Option Compare Database Declare PtrSafe Sub Sleep Lib "kernel32" _ (ByVal dwMilliseconds As Long) Global LangFrom As String Global LangTo As String Public Function AutoTranslate(ByVal Text As String) 'Add references to [Microsoft Internet Controls], [Microsoft Scripting Runtime] and [Microsoft 14.0 Object Library] ' On Error GoTo Err_Point Dim IE As InternetExplorer Dim URL As String Dim liCount As Integer Text = Replace(Text, "/", "") Text = Replace(Text, "\", "") For liCount = 0 To 31 Text = Replace(Text, Chr(liCount), "") Next liCount If Len(LangFrom) < 1 Then LangFrom = "ar" End If If Len(LangTo) < 1 Then LangTo = "en" End If '"https://translate.google.com/#" & langfrom & "/" & langto & "/" & text URL = "https://translate.google.com.tr/" & LangFrom & "/" & LangTo & "/" & Text Set IE = New InternetExplorer IE.Visible = False IE.Navigate URL Do Until IE.ReadyState = 4 DoEvents Loop Sleep 1000 AutoTranslate = IE.Document.querySelector(".tlid-translation.translation").innerText IE.Quit Set IE = Nothing Exit Function Err_Point: IE.Quit Set IE = Nothing strMsg = err.Number & Chr(13) & err.Description strTitle = "Error during translation" strResponse = MsgBox(strMsg, vbCritical, strTitle) End Function دائما يظهر لي خطأ عند الكود التالي: AutoTranslate = IE.Document.querySelector(".tlid-translation.translation").innerText فما السبب Google-Tran.accdb

السلام عليكم ورحمة الله وبركاته حياكم الله جميعا اخي الكريم @Elsayed Bn Gemy فكرة رائعة جدا لكنا نحتاج الى عدة امور تدعم هذه الفكرة منها 1- امكانية انشاء قاعدة بيانات جديدة sql والاتصال بها برمجيا (وذلك بسبب أن برامج المحاسبة تحتاج الى قاعدة بيانات جديدة لكل سنة) 2- امكانية النسخ الاحتياطي للقاعدة واستعادة النسخة الاحتياطية برمجيا 3- يوجد في قواعد بيانات sql ميزة انشاء function بحيث ترسل الامر الى القاعدة عن طريق الاتصال بالفنكشن الموجود بقاعدة بيانات sql ، يا ترى اكسس يستطيع الاتصال بها ؟؟؟ طبعا هذه الميزة توفر جهد كبير في ادخال البيانات وتعديلها واستدعائها من قاعدة البيانات و تعطي سرعة في العمل على الشبكة 4- اخيرا اخي العزيز من خلال بحثي على اليوتيوب عن هذا الموضوع وجدت فيديو لادخال البيانات وتعديلها من الاكسس الى sql بدون ربط الجداول حسب ما فهمت من الفيديو ، لكني للأسف لم استطع تطبيق ذلك نرجوا منك شاكرين الاطلاع عليه لعله يفيدنا في تحسين هذه الفكرة وحصولنا على خيارات اكبر

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

السلام عليكم ورحمة الله وبركاته لا ادري ان كانت هذه المعلومة مفيدة لكم ما اعرفه ان كل واحد سم في الاكسس يساوي 567 لكني نسيت ما اسم وحدة القياس هذه مثال اذا اردنا ان نضع عرض مربع نص 2 سم فيكون الكود me.textbox.width = 2*567

السلام عليكم ورحمة الله وبركاته وانا كمان اول مرة ارى هذا الامر ، ولكن عندما جرتبه توقف النموذج كاملا عن العمل ولم يفلح لايقافه سوى اغلاق الاكسس 😅

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

حياكم الله اخواني الكرام جميعا الكود يعمل بشكل جيد لكن على الفورم الفرعي الاول فقط ولا يعمل على الفورم الفرعي الثاني ، الذي هو بداخل الفورم الفرعي الاول وهكذا الى الفورم الاخير

السلام عليكم إليك المرفق اخي ابا جودي Database2.accdb

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

السلام عليكم يمكنك استخدام الدالة val() =val([اسم العمود1])+val([اسم العمود2])

السلام عليكم ورحمة الله وبركاته اخواني الكرام الى الان لم يعمل هذا الكود بعد

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

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

حياك الله دكتور انت في هذا الخيار لست بحاجة الى جدول للموردين وجدول للزبائن انت بحاجة الى جدول واحد يحوي شجرة الحسابات وهي تحوي الموردين والزبائن فبطريقتك هذه اذا ورد لك عميل تشتري منه وتبيعه في نفس الوقت وهذا وارد جدا في الحياة العملية ، فانت بحاجة الى فتح حساب له في الزبائن وفي الموردين وعند مطابقة حسابه في كل مرة انت بحاجة الى مراجعة حسابين دائما له ، وقد يحصل وينسى المستخدم (المحاسب ) مطابقة حساب الزبائن وينسى حساب الموردين في هذا الجدول انت بحاجة الى تفاصيل اكثر من هذا بكثير ، مثال : 1- واحدات القياس : مثل قطعة و دستة وكرتونة والوضع الافتراضي في كل البرامج المحاسبية يضعون ثلاث واحدات قياس 2- اسعار الاصناف : يجب تحديد اسعار افتراضية للمواد كسعر الشراء وسعر المفرق وسعر الجملة وسعر المستهلك و و و 3- انت بحاجة الى جدول مرتبط بالانصاف يحوي باركودات الاصناف بحيث ممكن اي يكون لكل صنف اكثر من باركود لم تذكر في مشاركتك جداول الدفع والقبض و اثبات المصاريف ولا مراكز الكلفة ارجوا يتسع صدرك لكل هذه الملاحظات وجزاك الله كل خير

لم يفلح الامر للأسف لم استطع استخدام الامر الذي ذكرته فهلا شرحت هذا الامر اكثر

السلام عليكم ورحمة الله وبركاته حياك الله وبياك دكتور اذا اردنا ان نتكلم على برنامج ادارة مخازن يتضمن عمليات البيع والشراء والدفع كما هو مذكور في الفيديو فنحن في صدد عمل برنامج محاسبة وانا سأقوم بذكر اسماء الجداول اللازمة لتصميم قاعدة بيانات لبرنامج محاسبة 1- جدول شجرة الحسابات (نظام شجري) 2- جدولي الفواتير (راس الفاتورة - وبنود الفاتورة) 3- جدولي السندات (راس السند - وبنود السند) 4- جدولي القيود المحاسبية (راس السند - وبنود السند) 5- جدول المواد (نظام شجري) 6- جدول المستودعات (نظام شجري) 7- جدول مراكز الكلفة (نظام شجري) 8- جدول العملات ( اذا اردت ان يستخدم البرنامج اكثر من عملة) 9- جدول الباركود (اذا اردت ان يستخدم البرنامج نظام الباركود ) وهو مرتبط بجدول المواد 10 - جدول المستخدمين وصلاحيتهم اذا اردت نظام مستخدمين 11- جدول خصائص الفواتير والسندات 12- جدولي المناقلات 13- جدول الخيارات

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم جميعا عندي نموذج فرعي ونموذج رئيسي يحوي النموذج الفرعي sub or function واريد تشغيل هذا الكود من زر في النموذج الرئيسي أو عند تحميل النموذج الرئيسي

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

جزاك الله كل خير اخي لكني استخدم اوفيس 64 ولم يعمل المرفق عندي

السلام عليكم ورحمة الله وبركاته كيف يمكنني عرض الخطوط في مربع تحرير وسرد في الاكسس

السلام عليكم ورحمة الله وبركاته لماذ لا تستخدم صف الاجماليات

السلام عليكم ورحمة الله وبركاته حياكم الله وبياكم عندنا في الاكسل الدالة =CEILING(A1;5) تقوم بتقريب الرقم الى الاعلى الى اقرب خمسة يعني اذا كان الرقم 11 او 12 او 13 او 14 يصبح الرقم 15 وهكذا الى الاعلى بخمسة وان كان الرقم 10 تقوم بالتقريب الى اقرب عشرة في المثال السابق يصبح الناتج 20 هل هناك دالة في الاكسس تقوم بهذا العمل مثال اذا كان صافي راتب موظف 12316 فقد احتاج الى تقريبه الى 12320 او 12325 حسب الحاجة

السلام عليكم ورحمة الله وبركاته بالنسبة لي استخدم الكود التالي : Select Case KeyCode Case 70 And Shift = 2 '========ÇáÛÇÁ ÇÎÊÕÇÑ ctrl+f=========== KeyCode = 0 Case 72 And Shift = 2 '========ÇáÛÇÁ ÇÎÊÕÇÑ ctrl+h========== KeyCode = 0 End Select

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