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

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

الدالة الغبية والدالة العبقرية الدالة () DLookup والدالة () ELookup هل تصدق ان هناك دالة غبيه قد تستغرب ان اقول لك انها دالة () DLookup والكل منا يعرفها ويعرف استخداماتها فهي ببساطة تعيد او تسترجع قيمه واحدة من الجدول . عيوبها : 1. تعيد اول قيمة فقط تم وضعها في الدالة في عملية البحث . 2. لا تستطيع بإي حال من الاحوال اعادة الحقل المفهرس . 3. قد تحصل على نتائج متناقضة ومتقلبة حتى من نفس نوع البيانات التي تبحث عنها اذا كان لا يوجد مفتاح اساسي في الجدول وقمت بعملية ضغط قاعدة البيانات . ( جرب بنفسك وأنظر النتائج الغبية التي تعطيك هذه الدالة ) . 4. اداء هذه الدالة سيئ للغاية فهو لا يقوم بمسح ما تم البحث عنه سابقا ويفترض ان تكون القيم خالية بعد عملية كل بحث . 5. ظهور العديد من الاخطاء والرسائل من الاكسيس عندما تكون القيم خاليه . الدالة () ELookup العبقرية هل احد منكم سمع عن هذه الدالة ( دالة جديده تم اختراعها ) لنرى إمكانات هذه الدالة 1. قمة في الاداء والابهار والقوة والمتانة والمرونه . 2. تسمح لك بتحديد اي نوع من البيانات ولا تتقيد يحقول معينه . 3. تسمح لك بإستخدام الاقل MIN والاعلى MAX من القيم . 4. بعد عملية البحث والبدء بعملية استخدام جديده تجد القيم خالية وجاهزة لتقبل اي امر . 5. اسرع من الدالة () DLookup بعشر مرات . 6. قد ترغب في تعديل مسار البحث قبل استعمال الدالة فتستطيع ذلك بدون ظهور رسائل MsgBox لكل صف . 7. تقوم هذه الدالة بتمييز وتحسس ومعرفة ان هذا الحقل Zzero-length( طول صفري ) او خالي من البيانات Null . 8. اذا استخدمت في الاستعلامات فأنظر الى النتائج الباهره حتى لو استخدمت معها اربعة معايير مختلفه . قد يكون عيبها الوحيد انها تحتاج الى مكتبة DAO وهذا ليس بعيب ولكن لانها ليست من دوال برنامج الاكسيس . امثلة على طريقة استخدامها 1. ايجاد القيمة الاخيرة متضمنة الـ DESC ELookup("[Surname] & [FirstName]", "tblClient", , "ClientID DESC") اذا رغبت في اضافة حقول اضافية قم بالاضافة فهي تقبل جميع الحقول ولا تقتصر على حقل معين 2. ايجاد القيم الاقل الغير خالية Null بإستعمال المعايير ELookup("ClientID", "tblClient", "Surname Is Not Null" , "Surname") واليكم الدالة الجباره بكل معنى الكلمة ويفضل مقارنة نفس النتائج مع الدالة السابقة لتروا الفرق كل ما عليك هو وضعها في وحدة نمطية ومن ثم استخدامها سواء في النماذج او الاستعلامات او التقارير او الماكرو . Function ELookup(Expr As String, Domain As String, Optional Criteria, Optional OrderClause) On Error GoTo Err_ELookup ' DAO ملاحظة: تحتاج الى مرجع مكتبة Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSql As String 'بناء جملة الاستعلام strSql = "SELECT TOP 1 " & Expr & " FROM " & Domain If Not IsMissing(Criteria) Then strSql = strSql & " WHERE " & Criteria End If If Not IsMissing(OrderClause) Then strSql = strSql & " ORDER BY " & OrderClause End If strSql = strSql & ";" 'البحث عن القيم Set db = DBEngine(0)(0) Set rs = db.OpenRecordset(strSql, dbOpenForwardOnly) If rs.RecordCount = 0 Then ELookup = Null Else ELookup = rs(0) End If rs.Close Exit_ELookup: Set rs = Nothing Set db = Nothing Exit Function 'zahrah Err_ELookup: MsgBox Err.Description, vbExclamation, "ELookup Error " & Err.Number Resume Exit_ELookup End Function

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

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

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

لاحظ ترتيب اجابتي: 2. وبعد فتح ملف أخي ابوخليل ، فالرسائل التي تظهر بعد الزر جميعها صحيح ، حيث ان الالة الحاسبة كبرنامج ، لما تم فتحه فيكون الكود قد اتم عمله ، فبعدها يعطيك الرسالة ، ولكن عند طلبك المنطقة واللغة ، فالامر لم ينتهي بعد إلا بعد انتهائك من اتمام لاختيار ، وهذا عيناً طلبك 1. هذا موضوع آخر ، وهو هل الامر نجح او فشل ، فالامر Shell او ShellWait لا علاقة لهم بنجاح المسح الضوئي وفشله هنا تأتي طريقة اخرى ، وهي طريقة مناداة الوحدة النمطية (لا اعني Shell وانما الوحدة النمطية لتشغيل الاسكانر مثلا) ، وطلب نتيجة الامر ، هكذا هذه وحدة نمطية عادية ، تعمل المطلوب ، ولكن لا تخبرنا عن نتيجة العمل ، تم او لا Public Function TransferWithoutUI(ByVal sngResolution As Single, _ ByVal tColourType As TWAIN_MDL_COLOURTYPE) ونناديها هكذا: call TransferWithoutUI(.....) ---------------------------------- بينما هنا لاحظ بعد اغلاق القوس هذه وحدة نمطية عادية ، تعمل المطلوب ، وتخبرنا عن نتيجة العمل ، تم او لا Public Function TransferWithoutUI(ByVal sngResolution As Single, _ ByVal tColourType As TWAIN_MDL_COLOURTYPE) As Long ونناديها هكذا: Dim Result as Long Result = TransferWithoutUI(.....) if Result = .... وهنا نتيجة Result تعتمد على ما يحدث في عملية قيام الاسكانر بالاسكان ، سواء تم الاسكان بطريقة صحيحة او .... جعفر

السلام عليكم ورحمة الله اكتب المعادلة التالية : =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

بسيطة اعمل تجميع (جروب) استبدل الكود ب : 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% بالنسبة لمسار البرنامج فنعم هو الشورت كت الموجود على سطح المكتب فهو يحتوي على مسار البرنامج الاصلي فهل يمكن قراءة المسار منه؟ لانك عند تنصيب البرنامج قد يتم تغيير مكان التنصيب الى مكان آخر لذلك يجب استخراج المسار الصحيح والا فلن يعمل البرنامج

@Shivan Rekany شكرا لك

انا غيرت السطر من الكود ده 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 ليتم التعديل عليها وبعدها يتم الشرح. عموما المشكلة الاساسية كانت في العلاقات.

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

فيها كثير أوامر حسب حروف الهجاء شكرا جزيلا

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

في حالة عندك أرقام 50 و 60 وأنت كتبت 55 فسوف يأتيك الأقرب للأعلى أولا ثم الأدنى جرب المرفق new2.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 والترجمة العربية روعة ههههههههههههه الانضمام سورسيراي . حاجة جميلة بتوضح فعلا إن الانضمام يجب أن يكون (سورسيراي) وليس شيئا آخر ويجب ن نسافر سويسرا ونضم هناك ههههههههه وهتلاقي هناك شخص كفيف لا يرى يطلقون عليه اسم (الصفيف احادي الابعاد) هههههههههه مش عارف لماذا مايكروسوفت تترجم حرفيا ولماذا لا تستعين بمترجمين عرب على العموم المرجع الانجليزي أفضل وشكرا لك مرة أخرى

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

Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus) استدعاء المنطقة واللغةوالوقت والتاريخ والحاسبة.rar

طيب رجاء تجربة المرفقين الاتيين المرفق الاول لو عدد الاوراق المراد مسحها ضوئيا 10 وسيتم العمل والمسح الضوئى من خلال نموذج الصادر لو كان رقم الصاد 2 بمجرد الضغط على زر الامر ادارج مرفقات من الاسكنر ستجد النتيجة الاتية ان شاء الله تعالى بعد انهاء عملية المسح الضوئى - بجورقاعدة البيانات مجدل باسم archives ثم تجد بداخله مجلد باسم sader ثم تجد بداخله مجلد باسم 2017 ثم تجد بداخله مجلد برقم الصادر وسيكون 2 وبداخل هذا المجلد تجد عدد عشر صور بعدد العشر ورقات التى تم مسحهم ضوئيا Archive v10.rar المرفق الثانى لو عدد الاوراق المراد مسحها ضوئيا 10 وسيتم العمل والمسح الضوئى من خلال نموذج الصادر لو كان رقم الصاد 2 بمجرد الضغط على زر الامر ادارج مرفقات من الاسكنر ستجد النتيجة الاتية ان شاء الله تعالى بعد انهاء عملية المسح الضوئى - بجورقاعدة البيانات مجدل باسم archives ثم تجد بداخله مجلد باسم sader ثم تجد بداخله مجلد باسم 2017 ثم تجد بداخله مجلد برقم الصادر وسيكون 2 وبداخل هذا المجلد تجد صورة واحده فقط بصيغة tif وعند فتحها تستطيع ان تستعرض فيها عدد العشر ورقات التى تم مسحهم ضوئيا مثل الـ pdf Archive-Scan multiple files v11.rar

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

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

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

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

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

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

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

ع السريع كدة شاهد الرابط التالي 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