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

وعليكم السلام عليكم ورحمة الله وبركاته FIRAS.accdb

اضف هذه الاسطر في نهاية الكود السابق Call SendKeys("{right}", True) Call SendKeys("{right}", True) Call SendKeys("{right}", True) Call SendKeys("{right}", True)

تفضل اخي الكريم تعديل.rar تحياتي

وعليكم السلام ورحمة الله وبركاته استبدال السطر التالي Name oldpathANDname As newpathANDname بهذا FileCopy oldpathANDname, newpathANDname 001.rar تحياتي

تم تشغيل الصفحة الثانية من اليوزر (Chrecher) 1- في هذه الصفحة اضغط على الكومبوبوكس قتظهر لك البيانات في التكست بوكسات 2- قم بنعديل ما تريد ثم أضغظ الزر (Modifier) لتنتقل البيانات الى الصفجة test1 RJS .xlsm

بالاضافة الى ما تفضل به اخونا الفال @ازهر عبد العزيز وله الشكر لمعاينة التقرير مع فلتر Id المريض DoCmd.OpenReport "we1", acViewPreview, , "id = " & Me.id DoCmd.OpenReport "we2", acViewPreview, , "id = " & Me.id تحياتي

بالاضافة الى ما تفضل به استاذنا الفاضل @أبو إبراهيم الغامدي تفضل احي الكريم تحياتي

يمكن عمل ذلك بمعادلة بسيطة ولا ضرورة للكود مثال قي الملف المرفق الاسماء الأساسية في الصفحة Source ويوجد عنها نسخة مرتبطة بها في الصقحة Target اذا حذفت (اسم او عدة اسماء) او اضفت ( اسم او عدة اسماء ) في الصفحة Source تتغير البيانات في Target Dynamic_names.xlsx

السلام عليكم 🙂 اخي @kanory ، وبما اني ماعندي واتس اب ، فرجاء جرب الكود التالي ، علشان اللغة العربية : Private Sub أمر15_Click() On Error Resume Next DoCmd.GoToRecord , , acFirst For i = 1 To Me.kan + 1 Langauge ELanguage.Ar Dim fOK As Boolean Dim strTemp As String Forms!whatsapp.SetFocus strTemp = Me.txtMessage 'fOK = SetClipboardData_clt(strTemp) 'copy name to clipboard Me.txtMessage.SetFocus Me.txtMessage.SelStart = 0 Me.txtMessage.SelLength = Len(Me.txtMessage) DoCmd.RunCommand acCmdCopy '========================================================================================================= 'Langauge ELanguage.en Application.FollowHyperlink "https://wa.me/" & txtNumbers auseTime = 40 start = Timer Do While Timer < start + auseTime DoEvents Loop Call SendKeys("~", True) Call SendKeys("{Enter}", True) Call SendKeys("^v", True) Call SendKeys("{Enter}", True) '=========================================================================================================== DoCmd.GoToRecord , , acNext Next MsgBox "انتهت الارقام" End Sub جعفر

مجدى فين انت من هذه الإجابة الممتازة ؟!!! أين الضغط على الإعجاب ؟!!!💙

برنامج المحاسبه الماليه برنامج محاسبي يصلح للشركات الصغيره و المتوسطه لا يحتاج البرنامج الي خبير حسابات يسهل التعامل مع البرنام الاصدار الاول البرنامج باللغه العربيه برنامج محاسبي مجاني مصصم بالاكسيس تسجيل قيود اليوميه بكل سهوله واعداد دفتر الاستاذ اعداد ميزان المراجعه اعداد قيود التسويه اعداد قائمه الدخل و الميزانيه العموميه اعداد قائمه التدفقات النقديه اعداد كافه التقارير المحاسبيه يمكن التعديل علي البرنامج و تطويره رابط التحميل http:// http://activeterium.com/BhBv برنامج+المحاسبة+المالية.rar

بسم الله الرحمن الرحيم كل عام وأنتم بخير بمناسبة حلول الشهر الكريم أعاده الله عليكم بالخير واليمن والبركات وتقبل الله صيامكم وقيامكم كود معادلة لحساب الفرق بين تاريخين ميلادي او هجري Function kh_count_day(Mydate_Max As Date, Mydate_Min As Date) If IsDate(Mydate_Max) And CDate(Mydate_Min) Then kh_count_day = Mydate_Max - Mydate_Min End If End Function تفضل المرفق حساب الفرق بين تاريخين.rar