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

السلام عليكم مازلنا نتعلم فى أركان هذا الصرح التعليمي جزى الله خيرا القائمين عليه ما الفرق بين DoCmd.RunCommand acCmdFind و DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 لتنفيذ أمر واحد و هو فتح نافذة البحث فى أكسيس هل هناك ميزة لاستخدام runcommand بثوابتها الكثيرة وفقكم الله رأيت بعض البرامج معظم أكوادها ب runcommand هذا موقع متخصص فقط فى ثوابت و أكواد runcommand http://access.mvps.org/access/RunCommand/list/listf.htm و جزاكم الله خيرا

السلام عليكم جرب الكود التالى كأحد الطرق علة المطلوب تماماً Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 4 Then Dim lRow As Long lRow = Sheet3.Range("C" & Rows.Count).End(xlUp).Row Sheet3.Range("C4:C" & lRow).Name = "MyList" With Range("B" & Target.Row).Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=MyList" End With End If End Sub تفضل المرفق قائمة منسدلة.rar

لازم تجرب هذا انا لا اضع موضوع إلا اذا فيه له اهمية زبائني كان عندهم طلب ، وهو الارشفة ، وجزء منهم لإوراق قليلة وجزء لشئون الموظفين ، بالإضافة الى صور الموظفين ، موضوع النقر لفتح نافذة الوندوز واختيار الصور ، و السكانر بالطريقة العادية ، هاي منتهين منها ، الطلب تطور بسبب بطئ السكانرات العادية (حوالي 50 ثانية لتصوير الورقة الواحدة) ، طبعا لا اتكلم عن تصوير مجموعة من المستندات دفعة واحدة بالاسكانر السريع الغالي ، فالحمدلله ومن حوالي سنه توصلت الى التصوير عن طريق WebCam (حوالي 5 ثواني) و DSLR (حوالي 5 ثواني) ، وفي السجل مباشرة ، ولكن كاميرات DSLR غالية ، و WebCam يحتاج الى إضاءة صحيحة والصورة ليست بالوضوح المطلوب ، لذلك والحمدلله توصلت الى التصوير عن طريق كاميرات هواتف الاندرويد ، والتصوير فيه دقة عالية ، والفلاش ممتاز ، والتصوير يأخذ حوالي 9 ثواني ، وكل بيت فيه على الاقل هاتف واحد قديم لا يُستعمل هاي التقنية الجديدة اللي انصح المبرمجين اتباعها لزبائنهم ، سواء للصور الشخصية او تصوير المستندات صورة بصورة جعفر

أعتقد أن الأمر الخاص بالقوائم موجود لدعم النسخ السابقة ٢٠٠٣ وما قبلها والأفضل والأقصر هو الأمر الأول وجزاك الله كل خير أستاذ عبد الفتاح على كل ما تقدمه من معلومات نافعة كل عام والجميع بخير وسعادة ورضا

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

السلام عليكم ورحمة الله تعالى وبركاته هو انا عندى شيت اكسل بتحددله الرسالة واسماء الاشخاص اللى هيتبعتلهم وهو هيبعتلهم عن طريق الواتس ويب بدون روابط خارجيه بيعتمد على الاسماء اللى انت مسجلها انا بستعمله دايما هو تلقائى بيفتح صفحة الواتساويب ويبحث عن الاسماء اللى انت محددهاله ويبعتلها دى صورة منه ودا الشيت Excel e whatapp.rar

السلام عليكم مؤسسسة غير ربحية لديها حوالي مليون رقم هاتف مستهدف قابلة للزيادة ويريدون ارسال رسائل لهم وحيث ان رسائل الـــ sms مكلفة رأوا ان يكون الارسال عبر الواتس فهل من طريقة برمجية تساعد في ذلك

من أروع ما قرأت في موضوع رضا الناس هذه القصيدة التي لم أقف على صاحبها ولا حتى عنوانها ضحكتُ فقالوا ألا تحتشـم؟ ........ بكيت فقالوا ألا تبتسم؟ بسمت فقالوا يرائـــــــــي ........ عبست فقالوا بدا ما كتم صمتّ فقالوا كليل اللسان ........ نطقت فقالوا كثير الكلم حلمت فقالوا صنيع الجبان ........ ولو كان مقتدرا لانتقم بسلت فقالوا لطيشٍ بــــه ........ وما كان مجترئا لو حكم يقولون شـــذٌ إذا قلـــت لا ........ وإمّعةٌ حين وافقتـــــهم فأيقنتُ أني مهــــــما أُرِدْ ....... رضا الناس لابد من أن أُذَم طبعا هذا يخص الناس الذين ليس لهم همٌ سوى تتبع أخطاء الناس وإظهار أخطائهم حتى وإن لم يخطئوا أما باقي المعتدلين من الناس فيستسحنون الفعل الحسن ويستقبحون الفعل القبيح

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

انا والبرنامج Irfan View صحبة من زمان ، ومنصب على كمبيوتري ، وهذه احد مشاركاتي فيه خليني اشوف اذا ممكن يرجع نتيجة او لا نعم بالضبط ، 100% هذا اذا استعملتها ، ولكن الظاهر انكم هنا تستخدمون Irfan View ، فخليني اشوف اذا Irfan View يرجع النتيجة او لا جعفر

أشكرك ا/ محمد صالح علي ردك وأسال الله العلي العظيم أن يزدك في العلم وأن يجعل هذا الرد في ميزان حسناتك

لا ، Shell لا يعرف اي شيء عن البرنامج الذي يقوم بالعمل (فلنسمه الالة الحاسبة) ، مهمة Shell فقط بإعطاء الامر للكمبيوتر لفتح الآلة الحاسبة ، ولكن الآلة الحاسبة يجب ان يكون لها متغير يعطيك اذا النتيجة ايجابية او سلبية!! انتم في هذا الموضوع كلامكم عن الامر Shell ، ولكنه في حقيقة الامر هو مجرد مشغل لبرنامج آخر/كود ، وهذا البرنامج الآخر/الكود هو الذي يجب ان يعُطى المتغير ، هذا اذا كان يسمح بهذا جعفر

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

هنا ستلاحظ اني استعملت الامر ShellWait ، والرابط فيه الوحدة النمطية: جعفر

السلام عليكم الامر Shell مثله مثل اي امر آخر ، يعني بعد الامر مباشرة تستطيع ان تكتب msgbox ، ولكن الامر Shell يعطي الامر ولا ينتظر اكمال الامر ، مثل في حالة التصوير الضوئي ، فإنه يعطي الامر ولا ينتظر ان يُتم الاسكان ، لذلك فعمل msgbox بعده لا يعني ان السكان انتهى ، وانما يعني ان Shell قد انتهى من إعطاء الامر ، اذا كنت تريد ان تعطي الاسكان امر طباعة ، وتريد ان لا تنتقل الى السطر التالي من الكود قبل الانتهاء من العمل بالكامل ، فيجب ان تستعمل الامر ShellWait : http://access.mvps.org/access/api/api0004.htm وطريقة استعمالها هي نفسها بالضبط مثل Shell ، وبعدها تستطيع ان تضع msgbox جعفر

كان مجرد اقتراح ولكن بعد التجربة لم يفلح وتم التوصل لهذا الكود تفضل export range to jpg.rar

بسيطة اعمل تجميع (جروب) استبدل الكود ب : Option Compare Database Option Explicit Private Sub a_AfterUpdate() Dim dbsNorthwind As DAO.Database Dim rstProducts As DAO.Recordset Dim strSQL As String Set dbsNorthwind = CurrentDb strSQL = "SELECT TOP 1 mm.mm FROM mm GROUP BY mm.mm ORDER BY Abs([mm]-" & Me.a & ");" Set rstProducts = dbsNorthwind.OpenRecordset(strSQL) rstProducts.MoveLast: rstProducts.MoveFirst If Nz(rstProducts.RecordCount, 0) <> 0 Then If rstProducts.RecordCount = 1 Then rstProducts.MoveFirst Me.b = rstProducts!mm Me.c = "" End If If rstProducts.RecordCount = 2 Then rstProducts.MoveFirst Me.b = rstProducts!mm rstProducts.MoveNext Me.c = rstProducts!mm End If End If End Sub واذا كتبت رقم موجود بالجدول سيأتيك الرقم نفسه فقط واذا كتبت كان يقع في منتصف رقمين فسوف تأتيك القيمين واذا كان قريبا من قيمة بالجدول فسوف تأتيك هذه القيمة فقط

انا غيرت السطر من الكود ده Shell ("c:\program files\irfanview\i_view32.exe /batchscan=(,1,1,2,1," & Trim(temp_scan_path) & "" & Me.ID & " ,jpg,0)") الى Shell ("c:\program files\irfanview\i_view32.exe /batchscan=(,1,1,2,1," & Trim(temp_scan_path) & "" & Me.ID & " ,jpg,0)/scanhidden") Archive v10.rar هو حضرتك ده مسار اعداد البرنامج اللى على الديسكتوب ده شورت كت فقط من هذا المسار

وعليكم السلام الرابط التالي فيه برنامج يقوم بهذه الحسبة: http://www.lebans.com/textwidth-height.htm جعفر

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

وها هنا نعم هو احسن شكرا لك

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

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

بصراحه انا فكرت فى الموضوع ده حاولت ولم اوفق ولازلت احاول

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

بدون برمجيا اجمع الارقام كلها فى شيت اكسل وارفعها على ايميل الجيميل الخاص بك بشرط ان يكون الجيميل مسجلا فى الهاتف كاحد الحسابات وهذا رابط جهات الاتصال الخاص بك https://contacts.google.com/ وقم بتفعيل خيار المزامنة فى الهاتف وستجدهم كلهم فى هاتفك وهذا ما اقوم به فى هاتفى فلا احفظ الارقام على Sim ولا زاكرة الهاتف بل ارفعه تلقائيا على الميل وطبعا يا استاذنا لزما تحول شيت الاكسل الاول قبل الرفع الى صيغة CSV علشان الموقع يقرأها

::: حملي القاعده رجاءا على googl drive ليتم التعديل عليها وبعدها يتم الشرح. عموما المشكلة الاساسية كانت في العلاقات.

ممتاز

::: اعتذر البارحة لم احصل على الوقت ... الان اصبح على ما يرام تفضلي . Refer_UP.rar

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

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

السلام عليكم الحمد لله وصلت للحل 1 - احفظ جدول باي اسم 2 - اضغط كليك يمين على الجدول واختار اعادة تسمية اضغط زر Alt وفي نفس الوقت اكتب 0160 ( 0 ، 1 ، 6 ، 0 ) = ( صفر ، واحد ، ستة ، صفر ) ثم اضغط Enter ستجد الجدول بدون اسم مسافة فقط تحياتي

وهذا مثال للاكسس طبعا يجب ادخال الاسماء يدويا ( كما هي مسجلة في الهاتف تماما ) send1.rar

السلام عليكم ومرفق البرنامج الشبه نهائي (لأنه لا يرسل رسائل عربية Unicode بعد) والكود فيه الكود الاسرع (الذي في الاعلى) ، وكود التجارب في الاسفل: Private Sub cmd_WhatsApp_Click() Dim cmmd As String Dim cmmd1 As String Dim cmmd2 As String Dim cmmd3 As String Dim cmmd4 As String Dim cmmd5 As String Dim cmmd6 As String Dim cmmd7 As String 'set BE_Path Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" 'Send a message from MS Access through WhatsApp cmmd1 = App_Location & " shell input keyevent 82" & "; sleep 1; " cmmd2 = "am force-stop com.whatsapp" & "; sleep 1; " cmmd3 = "am start -n com.whatsapp/.Main" & "; sleep 1; " cmmd4 = "input text " & Me.To & "; sleep 1; " cmmd5 = "input tap 400 700" & "; sleep 2; " cmmd = cmmd1 & cmmd2 & cmmd3 & cmmd4 & cmmd5 'Debug.Print cmmd Call ShellWait(cmmd, vbHidden) cmmd = App_Location & " shell input text " & Chr(34) & Me.WhatsApp & Chr(34) & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input tap 1000 1100" Call ShellWait(cmmd, vbNormal) Exit Sub 'turn on the mobile cmmd = App_Location & " shell input keyevent 82" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'turn close WhatsApp cmmd = App_Location & " shell am force-stop com.whatsapp" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'start WhatsApp cmmd = App_Location & " shell am start -n com.whatsapp/.Main" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'search for a name or a Group or a phone number cmmd = App_Location & " shell input text " & Me.To & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'tap/touch the first name location (x,y) cmmd = App_Location & " shell input tap 400 700" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'insert the message cmmd = App_Location & " shell input text " & Chr(34) & Me.WhatsApp & Chr(34) & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'tap/click on the send button location (x,y) cmmd = App_Location & " shell input tap 1000 1100" Call ShellWait(cmmd, vbNormal) End Sub جعفر Send_WhatsApp_messages.mdb.zip

متابع فى صمت جزاكم الله خير

شكرا أستاذ كودي أحلى حاجة في الدوال هذه الدالة العنقودية: https://support.office.com/ar-sa/article/الدالة-Join-e65fbc9a-c499-430d-a51a-bdf22140650f?ui=ar-SA&rs=ar-SA&ad=SA والترجمة العربية روعة ههههههههههههه الانضمام سورسيراي . حاجة جميلة بتوضح فعلا إن الانضمام يجب أن يكون (سورسيراي) وليس شيئا آخر ويجب ن نسافر سويسرا ونضم هناك ههههههههه وهتلاقي هناك شخص كفيف لا يرى يطلقون عليه اسم (الصفيف احادي الابعاد) هههههههههه مش عارف لماذا مايكروسوفت تترجم حرفيا ولماذا لا تستعين بمترجمين عرب على العموم المرجع الانجليزي أفضل وشكرا لك مرة أخرى

::: البرنامج لم افهمه بشكل جيد فهو متداخل بعض الشيء ولكني سانظر اليه مساءا واتيك بالحل ...

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته يرجع هذا الخطأ إلى تسمية الدالة بنفس اسم الموديول حيث أن طريقة استدعاء الدالة عموما هي module_name.function_name فأول اسم للموديول وإذا استدعينا الدالة باسم واحد فقط فيجب أن تكون باسم غير اسم الموديول بحيث يتم البحث أولا في الموديولات فإذا لم يجد هذا الاسم فإنه يبحث في الدالات كل عام وجميع الأحباب في منتدانا الرائع بكل خير

::: يمكن رفعه على Google Drive ان كان لديك حساب .

::: ارفقي المثال لو سمحت ..

::: المخدزن ؟! ...... لم افهم

::: الم تسمعي بخاصية Enabled و خاصية Edit اللتان تتحكمان في نمكين التعدبل والاضافة من عدمه .... ؟ ::: عموما نقوم بتحديد حقل او اكثر في النموذج ومن خصائص نغير خاصية Enabled او (تمكين) من Yes الى No .... بالتوفيق.

هل عندكي مربع نصي بذلك الاسم ؟ ارفق نسخة مصغرة من قاعدة بياناتك

ع السريع كدة شاهد الرابط التالي http://www.officena.net/ib/index.php?showtopic=46770&hl=%2B%D8%A7%D8%B8%D9%87%D8%A7%D8%B1+%2B%D8%B5%D9%88%D8%B1%D8%A9+%2B%D8%A7%D9%84%D9%85%D9%88%D8%B8%D9%81+%2B%D8%A7%D9%84%D8%AE%D9%84%D8%A7%D9%8A%D8%A7+%2B%D8%A8%D9%86%D8%A7%D8%A1+%2B%D8%B9%D9%84%D9%8A+%2B%D8%B1%D9%82%D9%85%D9%87#entry282797

كتاب اخر لشرح الاكسس vb

بارك الله لكم جميعا إخوتي وبعد إذن أخونا رجب يمكن اختصار الكود إلى هذه الجملة Shell "calc" وتعني استدعاء الحاسبة بغض النظر عن مسارها المذكور في مثال الأخ أبو حنين لأنه يختلف من نظام تشغيل إلى آخر ومن مستخدم لآخر حسب القرص المثبت عليه نظام التشغيل وفقنا الله وإياكم لكل ما يحب ويرضى

السلام عليكم أخي العزيز قلت لك في ردي السابق ومن هذه الطرق وكوسيلة فعالة الجداول المحورية أنظر المرفق اريد حلا3.rar

السلام عليكم تفضل أخي المرفق أضفت لك عدة حسابات في صفحة حسابات للتجربة راجع المعادلات وستفهم أي الأطراف يثبت في كل حالة أنا مشيت معاك مع عدم إقتناعي أنا مش محاسب ولو أني متأكد أن هناك العديد من الطرق أسهل من هذه علي كل حال تفضل المرفق اريد حلا2.rar

أخى أنا متشكر اوى على إهتمامك وتعبك معايا ربنا يصلح حالك ويعنى لو مش هتقل عليك عندى سؤال أخر هو انا لما ارحل بالطريقة دى لحساب معين .... نفترض بقى انى عندى مثلا 50 حساب فى الشركة اللى بعمل فيها هنفذ المعادلة اللى انت ذكرتها مره واحده وبعد كده اسحب ولا هنفذها فى كل مره للخمسين حساب ولو هسحب أثبت ايه؟؟؟ واسحب أفقى ولا رأسى الأول عذرا اخى بتعبك معايا وشكرا