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

سلام عليكم ورحمة الله وبركاته إخواني الأعزاء .. يسرني ويسعدني أن أقدم لكم اليوم هذه الهدية الجميلة الرائعة والتي كثيرا ما تم طلبها في مختلف المحافل .. وهي عبارة برنامج مجاني وجاهز للدردشة بين المستخدمين على الشبكة الداخلية .. البرنامج شبيه جدا ببرنامج الواتسأب المشهور لذلك سيسهل على المستخدمين فهمه واستخدامه وهذا ما اجتهدت عليه .. وهو برنامج مفتوح المصدر .. يمكن استخدامه كبرنامج منفصل ومستقل .. ويمكن دمجه مع قواعد البيانات الأخرى كجزء من البرنامج الأصلي .. أطلقت على البرنامج اسم : وهذه لقطتين واحدة لشاشة قائمة المراسلات والثانية لقائمة الرسائل في أحد المحادثات .. لن أطيل عليكم الشرح فقد شرحت البرنامج في مقطعين فيديو الأول يشرح البرنامج والثاني كيفية تنصيب البرنامج على الأجهزة .. أولا : شرح عمل البرنامج واستخدامه : ثانيا : شرح كيفية تنصيب البرنامج على الأجهزة : وأخيرا لا تنسوني من صالح دعواتكم ونصائحكم وإرشاداتكم .. ولا أنسى أن أتقدم بالشكر الجزيل لأخي المهندس @ابا جودى على مراجعته النهائية للبرنامج ودعمه الدائم .. لتحميل النسخة الغير مقسمة من هنا :: https://drive.google.com/file/d/1OQFZJ_4hc1_dyNyz8PLkNPABE_4yM7e1/view?usp=sharing ولتحميل النسخة المقسمة ( جداول و واجهات ) من هنا :: https://drive.google.com/file/d/1oj-5wqwLgq8d6TSEyjikhGbEGAloz_Xp/view?usp=sharing أخوكم ومحبكم ،، موسى الكلباني

اعرض الملف برنامج دردشة بين المستخدمين على الشبكة (مجاني) سلام عليكم ورحمة الله وبركاته إخواني الأعزاء .. يسرني ويسعدني أن أقدم لكم اليوم هذه الهدية الجميلة الرائعة والتي كثيرا ما تم طلبها في مختلف المحافل .. وهي عبارة برنامج مجاني وجاهز للدردشة بين المستخدمين على الشبكة الداخلية .. البرنامج شبيه جدا ببرنامج الواتسأب المشهور لذلك سيسهل على المستخدمين فهمه واستخدامه وهذا ما اجتهدت عليه .. وهو برنامج مفتوح المصدر .. يمكن استخدامه كبرنامج منفصل ومستقل .. ويمكن دمجه مع قواعد البيانات الأخرى كجزء من البرنامج الأصلي .. أطلقت على البرنامج اسم : وهذه لقطتين واحدة لشاشة قائمة المراسلات والثانية لقائمة الرسائل في أحد المحادثات .. (الصفحة الرئيسية لقائمة المراسلين) (صفحة الدردشة) لن أطيل عليكم الشرح فقد شرحت البرنامج في مقطعين فيديو الأول يشرح البرنامج والثاني كيفية تنصيب البرنامج على الأجهزة .. أولا : شرح عمل البرنامج واستخدامه : ثانيا : شرح كيفية تنصيب البرنامج على الأجهزة : وأخيرا لا تنسوني من صالح دعواتكم ونصائحكم وإرشاداتكم .. ولا أنسى أن أتقدم بالشكر الجزيل لأخي المهندس @ابا جودى على مراجعته النهائية للبرنامج ودعمه الدائم .. لتحميل النسخة الغير مقسمة من هنا :: https://drive.google.com/file/d/1OQFZJ_4hc1_dyNyz8PLkNPABE_4yM7e1/view?usp=sharing ولتحميل النسخة المقسمة ( جداول و واجهات ) من هنا :: https://drive.google.com/file/d/1oj-5wqwLgq8d6TSEyjikhGbEGAloz_Xp/view?usp=sharing أخوكم ومحبكم ،، موسى الكلباني صاحب الملف Moosak تمت الاضافه 14 نوف, 2021 الاقسام قسم الأكسيس  

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

اتفضل غير الكود بتاعك بالكود ده If Nz(DCount("*", "typeDa2wa", "[type]='" & Me![type] & "'"), 0) = 1 Then MsgBox "بيانات مكررة" Exit Sub Else Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("typeDa2wa") rs.AddNew rs![type] = Me.type rs.Update Me.type = "" End If

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

السلام عليكم 🙂 في الكثير من الاحيان لما نكون في وضع التصميم ، في النموذج او التقرير ، نتمنى لو انه بإمكاننا تكبير الشاشة حتى نرى تفاصل الكائنات ونضعها بجوار بعضها بدقة ، ولكن للأسف الاكسس لا يقدم لنا هذه الخاصية (مثل الاكسل والبوربوينت مثلا) 🙂 في الواقع الوندوز يقدم لنا هذه الخدمة ، ولكن كبرنامج مستقل 🙂 يمكنك استخدام برنامج التكبير بطريقة مستقلة ، بإستخدام ازرار الكيبورد: 1. لإغلاق البرنامج ، زر الوندوز + Esc 2. لتكبير الشاشة ، وتكون ثابته ، زر الوندوز + Alt + F 3. لتكبير الشاشة كمكبر يدوي ، زر الوندوز + Alt + L . وهذه هي الاعدادات التي استعملها انا : . والآن اليكم هذه الطريقة في برنامج الاكسس (يمكننا استعمال اختصارات الوندوز اعلاها في عملنا كذلك) : نموذج به نوعين من تكبير الشاشة ، تستعمل الطريقة التي تفضلها لوضعك 🙂 . الكود هو: Private Sub btn_Zoom_Click() 'open/close the magnify glass If Me.btn_Zoom = -1 Then 'turn ON the magnifying glass 'Shell "cmd /c C:\Windows\System32\Magnify.exe /lens", vbHide Shell "cmd /c C:\Windows\System32\Magnify.exe /fullscreen", vbHide Else 'manually close it: ' Win key & Esc key 'call the Function to kill the magnifying glass process Call WMI_KillProcesse("Magnify.exe") End If End Sub Private Sub btn_Zoom_lens_Click() 'open/close the magnify glass If Me.btn_Zoom_lens = -1 Then 'turn ON the magnifying glass Shell "cmd /c C:\Windows\System32\Magnify.exe /lens", vbHide 'Shell "cmd /c C:\Windows\System32\Magnify.exe /fullscreen", vbHide Else 'manually close it: ' Win key & Esc key 'call the Function to kill the magnifying glass process Call WMI_KillProcesse("Magnify.exe") End If End Sub . واما كود اغلاق برنامج التكبير ، اي يوقف تشغيله من الكمبيوتر: '--------------------------------------------------------------------------------------- ' Procedure : WMI_KillProcesse ' Author : Daniel Pineault, CARDA Consultants Inc. ' Website : http://www.cardaconsultants.com ' Purpose : Forcibly kill all the instances of a specified process ' Copyright : The following is release as Attribution-ShareAlike 4.0 International ' (CC BY-SA 4.0) - https://creativecommons.org/licenses/by-sa/4.0/ ' Req'd Refs: Uses Late Binding, so none required ' ' Input Variables: ' ~~~~~~~~~~~~~~~~ ' sProcessName : Name of the process to kill ' sHost : Host computer to query, omit for the local PC ' ' Usage: ' ~~~~~~ ' Call WMI_KillProcesse("explorer.exe") ' Call WMI_KillProcesse("excel.exe") ' Call WMI_KillProcesse("calculator.exe") ' ' Revision History: ' Rev Date(yyyy-mm-dd) Description ' ************************************************************************************** ' 1 2015-05-28 Initial Release ' 2 2020-08-21 Added Proc Header ' Code updated ' Updated Error Handler ' Made it Option Explicit compliant '--------------------------------------------------------------------------------------- Public Function WMI_KillProcesse(sProcessName As String, Optional sHost As String = ".") As Boolean On Error GoTo Error_Handler Dim oWMI As Object 'WMI object to query about the PC's OS Dim sWMIQuery As String 'WMI Query Dim oCols As Object Dim oCol As Object Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & sHost & "\root\cimv2") sWMIQuery = "SELECT Name FROM Win32_Process" Set oCols = oWMI.ExecQuery(sWMIQuery) For Each oCol In oCols If LCase(sProcessName) = LCase(oCol.Name) Then oCol.Terminate ' Kill this instances of the process End If Next oCol WMI_KillProcesse = True Error_Handler_Exit: On Error Resume Next Set oCol = Nothing Set oCols = Nothing Set oWMI = Nothing Exit Function Error_Handler: MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _ "Error Number: " & Err.Number & vbCrLf & _ "Error Source: WMI_KillProcesse" & vbCrLf & _ "Error Description: " & Err.Description & _ Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _ , vbOKOnly + vbCritical, "An Error has Occurred!" Resume Error_Handler_Exit End Function جعفر Magnify.mdb

طيب من واقع مثال حضرتك للتضح لك الرؤية اكثر لو الحقل type فى الجدول نوع البيانات فيه نص يكون الكود DCount("*", "typeDa2wa", "[type]='" & Me![type] & "'") لو نوع الحقل رقم يكون الكود DCount("*", "typeDa2wa", ","[type]=" & Me![type]) لو نوع الحقل تاريخ يكون DCount("*", "typeDa2wa","[type] =#" & [type] & "#")

اشكرك استاذي العزيز شكرا جزيلا ربنا يزيد من عمله و ينفع بك

بص دى بترجع لنوع البيانات نستخدم ذلك مع الارقام' stLinkCriteria = "[PersonalNumber]=" & Me.PersonalNumber نستخدم ذلك مع النصوص' stLinkCriteria = "[PersonalName] ='" & [txtLastName] & "'" نستخدم ذلك مع التواريخ' stLinkCriteria ="[DateOfBirth] =#" & [txtDateOfBirth] & "#"

شكرا استاذى الفاضل ربنا يذيدك من عمله

تفضل Sub test() Dim RG1, RG2 Dim r, x Set RG1 = [D3]: Set RG2 = [E3] r = 2 Application.ScreenUpdating = False If RG1 > 51 Then MsgBox "ادخل فقط من 1 الى50", vbExclamation: Exit Sub If RG2 > 100 Then MsgBox "لا يمكن ادخال اكبر من 100", vbExclamation: Exit Sub Range("j2:j1000000").ClearContents For x = RG1 To RG2 Range("j" & r).Value = x r = r + 1 Next x Application.ScreenUpdating = True End Sub مسلسل.xlsm

تقصد اكثر من حقل وليس سجل .... صحيح ؟؟؟

عليكم السلام اباجودي ورحمة الله وبركاته انا استخدم ملف بات للنسخ والتسجيل انظر المرفق وحول الامتداد الى bat اضطر احيانا الى تخفيض امان وندوز خاصة 10 وما فوق Cpyto32.rar

تفضل التعديل *** يجب فك ضغط الملفات أولاً قبل التجربة الدائن و المدين.zip

وعليكم السلام ورحمه الله وبركاته تفضل اخي استدعاء أولياء الأمور 2021-2022.xlsx

1106650381_-(1).xlsm

جزاك الله كل خير

يمكنك استعمال هذا الكود Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case vbKey0 To vbKey9, vbKeyBack, vbKeyClear, vbKeyDelete, _ vbKeyLeft, vbKeyRight, vbKeyUp, vbKeyDown, vbKeyTab If KeyAscii = 46 Then If InStr(1, TextBox1.Text, ".") Then KeyAscii = 0 Case Else KeyAscii = 0 End Select End Sub بالتوفيق

الكلام هذا ما يفيد في حل مشكلتك !! يجب ان تخبرنا ايش المشكلة ، وبالتفصيل ، حتى نتمكن من مساعدتك 🙂 جعفر

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

فعلا ماشاء الله الله اكبــــــــر قمة فى الابداع والاحتراف

السلام عليكم ممكن =COUNTIF(B2:B21,"*")-COUNTIF(B2:B21,("سلطنة عُمان")) أو =COUNTIF(B2:B21,"<>سلطنة عُمان")

جزاك الله خيرا ووفقك ونفع بك

جزاك الله خيرا استاذ موسي واتفق مع رأي د.كاف

لأنه لا توجد سجلات ضمن السنة المالية المسجلة لكن تفضل تعم تعديل النسة المالية لكي تظهر النتائج الدائن و المدين.zip

جعله الله هذا العمل الجميل في موازين حسناتك عمل لا توفيه كل معاني الإعجاب قيمة في الإحترافية والإبداع شكرا لك و فعلا هذا ما كنت في حاجته و بارك الله فيك و في علمك

تفضل التعديل الدائن و المدين.zip

نعم أستاذنا @د.كاف يار وضعت فيه عداد وقت مدته ثانيتين تقريبا .. خفت أن يثقل على الجهاز .. وعلى العموم يمكن لأي شخص أن يقرب الوقت بالتعديل عليه في خصائص الفورم ( البرنامج مفتوح حلال على الجميع ) 😄🖐🏼️ مرورك يشرفني 😊🌹

السلام عليكم و رحمة الله اليك الملف مواد التخلف.xlsx

وعليكم السلام 🙂 الباركود الاحادي 1D الابعاد: Code 39 ، Code 128 ، UPC ، EAN ، وغيرها : . . . فيه قيمة احادية واحدة فقط ، وهو الرقم الموجود في الباركود ، هذا معناه انك محتاج الى حقل واحد في الاكسس ، يكون التركيز عليه ، وتستعمل قارئ الباركود ليقرأ المعلومة 🙂 بينما الباركود الثنائي 2D الابعاد: QR ، PDF417 ، وغيرها : . . . فيه اكثر من قيمة ، ولمعرفة القيم ، وطريقة ترتيب القيم ، فالافضل ان تكون فاتح ملف txt عادي ، ويكون فيه التركيز ، ثم تستعمل قارئ البركود ، لترى القيمة في الملف ، وبعد ان تعرف طريقة برمجة الباركود ، فتستطيع ان تبرمجه في برنامجك في الاكسس 🙂 رجاء مراجعة هذا الرابط حتى ترى كم البيانات التي يمكنك حفظها في الباركود : . جعفر

بارك الله بكم أستاذنا الفاضل أسأل الله تعالى أن يجعل ذلك بميزان حسناتكم آمين 🏵️

إذا سمحت لي طريقة تصميم الملف تخالف العرف البرمجي (لقد عددت صفحات الشيكات ويتم الكتابة فيها وتريد القراءة من صفحات الشيكات في صفحة البيانات) والصواب أن نقوم بعمل ورقتين فقط الأولى للبيانات ونكتب فيها بيانات الشيكات والثانية للبحث والطباعة نكتب فقط رقم الشيك فيتم استدعاء بياناته من شيت البيانات رجاء مراجعة هذا الملف وكتابة رقم الشيك في الخلية O1 في شيت الطباعة وبالنسبة لكود التفقيط بالمنتدى مليء بها يمكنك اختيار ما يناسبك للعلم حتى لا تتم طباعة الخلية التي يكتب فيها رقم الشيك المراد البحث عنه تم تعيين منطقة الطباعة set print area من تبويب تخطيط الصفحة page layout ويمكن تعديلها من خلال نافذة اعداد الصفحة page setup التبويب الأخير sheet بالتوفيق chk.xlsx

رجاء تحويل هذا الكود من VB.NET الى VBA.Access ' VB.NET ' الطريقة الثالثة والجديدة If (String.Compare(name1, name2, System.Threading.Thread.CurrentThread.CurrentCulture,CompareOptions.IgnoreSymbols) = 0) Then MessageBox.Show("النصوص متماثلة") Else MessageBox.Show("النصوص مختلفة") End If

اتفضل If StrComp(name1, name2) = 0 Then MsgBox ("النصوص متماثلة") Else MsgBox ("النصوص مختلفة") End If