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

السلام عليكم مازلنا نتعلم فى أركان هذا الصرح التعليمي جزى الله خيرا القائمين عليه ما الفرق بين 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 يرجع النتيجة او لا جعفر

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

السلام عليكم ورحمة الله اكتب المعادلة التالية : =MAX(IF(E3=B$2:B$14;$A$2:$A$14;"")) ثم اضغط "Crtl + Shift + Enter" ثم اسحب نزولا حتى آخر خلية

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

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

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

السلام عليكم اليك الدالة المعرفة التالية Public Function ConcatenateRange(rRange As Range, Optional sDelimiter As String) As String Dim c As Variant For Each c In rRange.Cells ' اذا اردت ان تتجاهل المعادلة الخلايا الفارغة احذف تلك الشرطه ' من السطر التالى والسطر القبل قبل الاخير فوضع تلك الشرطة امام اي سطر من الاكواد يعنى انه سطر للشرح او ملاحظه وليس كود سينفذ ' If Not c.Value = "" Then If ConcatenateRange = "" Then ConcatenateRange = c.Value Else ConcatenateRange = ConcatenateRange & sDelimiter & c.Value End If ' End If Next c End Function Employee_4.rar

كان مجرد اقتراح ولكن بعد التجربة لم يفلح وتم التوصل لهذا الكود تفضل 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 واذا كتبت رقم موجود بالجدول سيأتيك الرقم نفسه فقط واذا كتبت كان يقع في منتصف رقمين فسوف تأتيك القيمين واذا كان قريبا من قيمة بالجدول فسوف تأتيك هذه القيمة فقط

هو حضرتك ده مسار اعداد البرنامج اللى على الديسكتوب ده شورت كت فقط من هذا المسار scanhidden تمام 100% بالنسبة لمسار البرنامج فنعم هو الشورت كت الموجود على سطح المكتب فهو يحتوي على مسار البرنامج الاصلي فهل يمكن قراءة المسار منه؟ لانك عند تنصيب البرنامج قد يتم تغيير مكان التنصيب الى مكان آخر لذلك يجب استخراج المسار الصحيح والا فلن يعمل البرنامج

انا غيرت السطر من الكود ده 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 جعفر

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

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

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

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

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

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

السلام عليكم ورحمة الله تعالى وبركاته استاذى الكريم طيب ممكن بعد ما حضرتك تشوف المرفق ده وبعد كده نكمل نقاش الرقم القومى.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 فأول اسم للموديول وإذا استدعينا الدالة باسم واحد فقط فيجب أن تكون باسم غير اسم الموديول بحيث يتم البحث أولا في الموديولات فإذا لم يجد هذا الاسم فإنه يبحث في الدالات كل عام وجميع الأحباب في منتدانا الرائع بكل خير

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

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

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

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

السلام عليكم ورحمة الله وبركاته اسمحوا لي ان اعرض فكرتي لكل جهاز طريقته الخاصة لمخاطبة الكمبيوتر بالكود ، وهذا يجعل العمل على كل الاجهزة عملية صعبة للغاية لذا ، اذا كان هناك برنامج محترف وسيط (مثل ما ذكراخي soft.Sample مثلا) ، فهو سيقوم بالعمل القذر (يعني ربط الجهاز بالكمبيوتر وDrivers و... ) ، والمطلوب من هذا البرنامج الوسيط ان يكون في امكانية التحكم به من برنامج الاكسس (وإلا فاننا نستطيع العمل مباشرة عن طريق برنامج الجهاز). برنامج IrfanView بالاضافة الى Plug-ins التابعة له: http://www.irfanview.com/ من البرامج التي لا استطيع ان استغنى عنها ، فاول ما يكون عندي كمبيوتر جديد ، فعلى طول انزل وانصب هذا البرنامج المجاني الأكثر من رائع احد الخصائص التي في البرنامج ، انك ممكن تتحكم فيه عن طريق CommandLine ، وفيه العديد من الاوامر ، وهذا الشئ مهم اذا كنا نريد استعماله مع الاكسس. البرنامج كذلك يستطيع التعرف على جميع اجهزة السكانر المرتبطة بالكمبيوتر: فلما تريد ان تقوم بعملية مسح مستندات من الاسكانر ، فما عليك إلا ان تقوم باختيار الماسح من القائمة (مرة واحدة فقط) ، وبعدها تستخدم هذا الامر من الكود في VBA عن طريق الامر Shell او ShellWait: "c:\program files\irfanview\i_view32.exe" /batchscan=(scanfile,1,1,2,0,c:\temp,tif,1) /scanhidden "c:\program files\irfanview\i_view32.exe" /multipdf=(c:\temp\test.pdf,c:\temp\scanfile01.tif) /killmesoftly والذي يقوم بمسح المستندات وحفظها بصيغة tif ، ويقوم السطر التالي بتحويل المستند الى pdf. وبما ان الكود في VBA ، فيمكنك التحكم في اسم المجلد اسم الملف وترقيمه و.... جعفر

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

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

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

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