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

لإجراء اتصال هاتفي انشئ موديل جديد و الصق به الكود التالي Option Explicit Declare PtrSafe Function tapiRequestMakeCall Lib "tapi32.dll" (ByVal stNumber As String, ByVal stDummy1 As String, ByVal stDummy2 As String, ByVal stDummy3 As String) As Long Public Const ID_CANCEL = 2 Public Const MB_OKCANCEL = 1 Public Const MB_ICONSTOP = 16, MB_ICONINFORMATION = 64 Function DialNumber(PhoneNumber) Dim Msg As String Dim MsgBoxType As Integer Dim MsgBoxTitle As String Dim RetVal As Long Msg = "Please pickup the phone and click OK to dial " _ & PhoneNumber MsgBoxType = MB_ICONINFORMATION + MB_OKCANCEL MsgBoxTitle = "Dial Number" If MsgBox(Msg, MsgBoxType, MsgBoxTitle) = ID_CANCEL Then Exit Function End If RetVal = tapiRequestMakeCall(PhoneNumber, "", "", "") If RetVal < 0 Then Msg = "Unable to dial number " & PhoneNumber GoTo Err_DialNumber End If Exit Function Err_DialNumber: Msg = Msg & vbCr & vbCr & _ "Make sure no other devices are using the Com port" MsgBoxType = MB_ICONSTOP MsgBoxTitle = "Dial Number Error" MsgBox Msg, MsgBoxType, MsgBoxTitle End Function و في ازرار الاتصال ضع التالي DialNumber ([رقم الهاتف]) و للأمانة الكود منقول و لم اجربه لعدم توفر هاتف ثابت لدي

فضلا جرب المرفق استخراج رقم من نص.xlsx

اكتب المعادلة ادناه بالاكسيل بجانب عامود التاريخ =DAY(D4) ثم انسخ الناتج للورد وللايضاح اكثر ابعث ملف مع الشكر

السلام عليكم ورحمة الله وبركاته بسم الله الرحمن الرحيم تفضل ليس كود (مؤقت) تنسيق شرطي.xlsx وجعل كل ايامكم رضا وكل عام وحضرتك وكل احبابك والمسلمين فى خير ورضا والسلام عليكم ورحمة الله وبركاته

كده odbda (2).accdb

طالما انك تريد الإتصال لماذا تحاول فعل ذلك بالأكسس؟ استخدم Android Studio

وعليكم السلام ورحمة الله وبركاته اتفضل جرب odbda.accdb

جرب هذا لم أغير شيء فقط أعد كتابة الاسم بشكل صحيح 1.accdb

تفضلي هذا و لتحرير تنسيق الرسم فقط اضغطي مزدوج على الرسم لعرض الخصائص الرسم البياني.accdb

تفضل معادلة متوسط السعر =(SUMPRODUCT($E$2:E2;--($A$2:A2=A2))-SUMPRODUCT($H$2:H2;--($A$2:A2=A2)))/SUMPRODUCT($C$2:C2-$F$2:F2;--($A$2:A2=A2)) والملف حساب المتوسط المتحرك أوتوماتيك (2).xls

في المرات القادمة يجب ارفاق ملف للعمل عليه فضلا جرب المرفق مع الشكر ترحيل حسب الشرط.xls

فضلا وكرما وليس امرا فى المرات القادمة ان شاء الله تضع ما تريد جملة وتفصيلا واتمنى ان يكون هذا المرفق كاف و وواف ان شاء الله ملاحظة حاول الابتعاد عن اللغة العربية فى محرر الاكواد انا غيرت ما يلزم لتلاشى مشاكل اللغة العربية داخل المحرر عندى فكرة ان احببت انفذها وهو سماع الاذان مع كل وقت بس الان انا ذاهب الى العمل ان شاء ان كان فى العمر بقية وقدر الله لنا اللقاء بعد عودتى من العمل بأمر الله اتيكم بتحديث رائع لهذه الفكرة az(v3).accdb

طبعا النموذج frmMain لازم يكون مفتوح وممكن تخفى كل مربعات النص من النموذج انا تركتهم فقط للاطلاع اسف نسيت الرسالة انتظر قليلا

اتفضل az.accdb

جرب هذه المحاولة ترقيم.xlsm

ريما تقصد هذا الشيء fon.xlsx

السلام عليكم ورحمة الله استخدم هذه المعادلة =IF($J$3="";"";SUMIF('كشف حساب العملاء'!$C$4:$C$344;$J$3;'كشف حساب العملاء'!$E$4:$E$344)-SUMIF('كشف حساب العملاء'!$C$4:$C$344; $J$3;'كشف حساب العملاء'!G4:G344))

جرب المرفق فاتورة بيع اجل.xlsm

القيم __.xlsm

تفضل القيم __.xlsm

لماذا لا تضعها بهذا الشكل وتستخدم دالة vlookup?

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

وعليكم السلام-بعد اذن الأستاذ سليم ولإثراء الموضوع ,تفضل تم عمل معادلة مصفوفة لطلبك (Ctrl+Shift+Enter) ... كما تم عمل قائمة منسدلة بالخلية B1 لتسهيل العمل لك لإختيار بدلاً من الكتابة لتقليل الأخطاء =IFERROR(INDEX(رئيسية!$B$2:$B$140,SMALL(IF(رئيسية!$C$2:$C$140=$B$1,ROW(A$2:A$140)-ROW(A$2)+1),ROWS($A$3:A3))),"") GOING1.xlsx

اهلاً معلمي الغالي, تلبية لطلبك الكريم قمت بجمع الطريقتين بملف واحد اذا وضعت مسار ملف صوت MP3 او WAV فهو سيقوم بفلترة المدخلات وتشغيلها حسب صيغتها. Option Compare Database Private Declare PtrSafe Function mciSendString Lib "winmm.dll" Alias _ "mciSendStringA" (ByVal lpstrCommand As String, ByVal _ lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _ hwndCallback As Long) As Long Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" _ (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long Private Declare PtrSafe Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Const SND_ALIAS_SYSTEMASTERISK As String = "SystemAsterisk" Const SND_ALIAS_SYSTEMDEFAULT As String = "SystemDefault" Const SND_ALIAS_SYSTEMEXCLAMATION As String = "SystemExclamation" Const SND_ALIAS_SYSTEMEXIT As String = "SystemExit" Const SND_ALIAS_SYSTEMHAND As String = "SystemHand" Const SND_ALIAS_SYSTEMQUESTION As String = "SystemQuestion" Const SND_ALIAS_SYSTEMSTART As String = "SystemStart" Const SND_ALIAS_SYSTEMWELCOME As String = "SystemWelcome" Const SND_ALIAS_YouGotMail As String = "MailBeep" ' playsound Params Const SND_LOOP = &H8 Const SND_ALIAS = &H10000 Const SND_NODEFAULT = &H2 ' silence if no sound associated with event Const SND_ASYNC = &H1 ' play async (don't freeze program while sound is playing) Private sMusicFile As String Dim Play, a Public Sub Sound_MP3(ByVal File$) sMusicFile = GetShortPath(File) Play = mciSendString("play " & sMusicFile, 0&, 0, 0) If Play <> 0 Then End If End Sub Public Sub Stop_MP3(Optional ByVal FullFile$) Play = mciSendString("close " & sMusicFile, 0&, 0, 0) End Sub Public Function GetShortPath(ByVal strFileName As String) As String Dim lngRes As Long, strPath As String strPath = String$(165, 0) lngRes = GetShortPathName(strFileName, strPath, 164) GetShortPath = Left$(strPath, lngRes) End Function Private Sub DoStartSound_Click() If IsNull(SoundPath) Then MsgBox "! áã ÊÞã ÈæÖÚ ãÓÇÑ ãáÝ ÇáÕæÊ", vbCritical, "ÚãáíÉ ÎÇØÆÉ" Exit Sub End If Dim Fix_Path As String Fix_Path = Mid(SoundPath, 2) Dim Rev_Extension As String Rev_Extension = FExtOnly(Fix_Path) If IsFile(Fix_Path) = False Then MsgBox "! áã íÊã ÇáÚËæÑ Úáì ÇáãáÝ", vbCritical, "ÚãáíÉ ÎÇØÆÉ" Exit Sub End If Select Case Rev_Extension Case "mp3" Sound_MP3 (Fix_Path) Case "wav" PlaySound Fix_Path, vbNull, SND_ALIAS Or SND_NODEFAULT Or SND_ASYNC Or SND_LOOP End Select Debug.Print Fix_Path End Sub Function IsFile(ByVal fName As String) As Boolean On Error Resume Next IsFile = ((GetAttr(fName) And vbDirectory) <> vbDirectory) End Function Function FExtOnly( _ ByVal filename As String) _ As String Dim nopath As String Dim dpos As Long Dim spos As Long spos = InStrRev(filename, "\") If spos > 0 Then nopath = Mid(filename, spos + 1) Else nopath = filename End If dpos = InStrRev(nopath, ".") If dpos > 0 Then FExtOnly = Mid(nopath, dpos + 1) Else FExtOnly = "" End If End Function Private Sub DoStopSound_Click() Dim Fix_Path As String Fix_Path = Mid(SoundPath, 2) Dim Rev_Extension As String Rev_Extension = FExtOnly(Fix_Path) Select Case Rev_Extension Case "mp3" Stop_MP3 (Fix_Path) Case "wav" PlaySound vbNullString, ByVal 0&, SND_NODEFAULT End Select End Sub حسنين MP3_WAV_Player_SEMO_Pa3x.accdb

بسم الله الرحمن الرحيم الساده المشرفين والأعضاء والأخوه الأعزاء ،، سلام الله عليكم ورحمة وبركاته بعد إذن الساده القائمين على هذا العمل يقول بعض الاخوه ان اكسس عقيم بهذه الاشياء ============= لا يتمتع بأمنية قوية لأصول البرنامج. - عدم مقدرته لتحويل البرنامج إلى ملف تنفيذي. - محدودية مستخدمين الشبكة إذا كان البرنامج يعمل على شبكة. - مقدور البعض من كشف الرقم السري لأي برنامج معمول بالأكسس. - لا يتمتع بمساحة تخزينية عالية حيث يقدره البعض بـ 2 GB فقط. وغيرها من المشاكل الخطيرة ... ============= نعم ما يقوله الاخ الكريم فى محلة ولكن يمكننا استعراض بعض الاستخدامات التى تجعلنا لا نستغنى عنى الاكسس وهى أولاً فممكن ان تصمم بيه قاعدة بيانات وبعد ذلك تحولها الى الاوراكل مباشرة دون جهد هذا اول ثانياً يمكن استخدام قاعدة البيانات من خلال Visual Basic وخاصة تستطيع السيطره فى الحماية من خلال كود فيجوال بيسك القوى ثالثاً تستطيع عمل قاعدة بيانات وتضع كود بيحث إذا زاد العدد عن رقم معين ينتج جدول تلقائى به مواصفات محدده كما تحددها وكما تفعل فى تصميم جداول اوراكل بإستخدام SQL ،،، وعند ذالك تكون قد وضعت حل لمشكلة الـ 2G للحجم ،،، وهذا فضلاً عن الثقة فى تطوير اكسس من داخل اكسس بخبراتك من خلال الكود . وغيره وغيره وغيره ... الأخوه الكرام ، تقريبا تستطيع التحايل على اكسس من اكثر من طريقة هذا ما اعرفة والله اعلم وارجوا من الجميع إبداء الرأى لنتعلم سوياً ما يمكن الوصول غلية من خلال اكسس أخيكم/ هشام علام www.hisham.itgo.com

السلام عليكم عندي تقرير , يطبع قيد يومية محاسبي , بنهاية كل صفحة يعطي مجموع المدين و الدائن الجزئي , ثم ينقل هذا المجموع الى رأس الصفحة التالية , و بنهاية التقرير يعطي مجموع المبالغ المدينة و الدائنة , - جعلت حقل لحساب المجموع الجزئي بنهاية الصفحة فأعطى خطأ - مجموع نهاية التقرير يعطي النتيجة صح , لكن يأتي المجموع بنهاية البيانات تماما , أي يمكن أن يأتي في أول الصفحة أو منتصفها أو آخرها حسب ما نتتهي البيانات , كيف يمكن جعله يطبع بنهاية الصفحة الأخيرة فقط

المثال فيه فتح ملف عن طريق ارتباط تشعبي أو بدون ارتباط تشعبي openFile33.zip

أخواني الكرام السلام عليكم طلبت من الطالبات أن يقومو بإدخال أعمالهم اليومية في الحاسب .وذلك بواسطة برنامج عملته بنفسي وعن طريق فورم لادخال البيانات . وثم عملت أستعلام يقرأ الأعمال اليومية بواسطة هذا الكود في شبكة المعايير: =Date() وصار يستعرض لي جميع الأعمال اليومية المدخلة من قبل الطالبات . لكن المشكلة التي واجهتني هي : أن بعض الطالبات أدخلن أعمالهم أمس وبعضهم متغيبات قبل يومين ومدخله لها عمل في آخر يوم ... ألخ . الأمر بسيط لو كنت أريد عمل طالبه واحدة أو أريد أستعلام عن أعمال أمس للجميع ( =date()-1) وهكذا... لكن الذي أريده وأن يستعرض لي الفورم جميع آخر عمل لكل طالبه في نموذج واحد . فأعرف منه جميع أعمال الطالبات المدخلة بالحاسب موضح فيه تاريخ آخر عمل أدخلته كل طالبه : مثل الأسم ------ تاريخ الأدخال ------ وصف المهمة منى ------ 28/12/2003 ------ تحضير في المعمل ليلى ------ 28/12/2003 ------ عمل الطبق الخيري عاشة ------ 26/12/2003 ------ أعداد كلمة الأسبوع في المصلى خلود ------ 24/12/2003 ------ مشاركة جماعة المصلى سارة ------ 25/12/2003 ------ أعداد صحيفة الاحياء الحائطية رشى ------ 22/12/2003 ------ مريضة ولم أستطع أن أقوم بأي عمل نورة ------ 28/12/2003 ------ مع جماعة اللغة الأنجليزية

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

السلام عليكم ورحمة الله وبركاته وبعد ايه الاخوة الكرم لدي جدول واريد بعد ان اكتب جميع بيانات السجل ينزل التاريخ الحالي بمعنا ان السجل به اسم ورقم وشويت حقول وبعد ان انتهي من جميع الحقول في الخانة الاخيرة ينزل التاريخ الحالي وشكراً . من قدم شي بيده التقاه .. وهنيالك يا فاعل الخير .. والحسنة باعشرة امثالها اخوكم فرحان منطنط المسروري

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

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

ثيرا ما أود ان آخذ نسخ احتياطية لما يلي : 1/ ملف المفضلة بالوندوز 2/ ملف الخطوط 3/ سطح المكتب 4/ قائمة بدأ التشغيل 5/ المستندات 6/بعض المجلدات الخاصة بي والتي اضعها على الهاردسك مباشرة وقد صممت برنامجا خاصا بي واحتياجات مكتبي واريد ان اضع فيه هذا الزر حتى يريحني من كثير من العناء في تجميع نسخ احتياطية لهذه الملفات المتناثرة ارجوا ان اجد لديكم الحل أو ان تدلوني عليه والشكرررررررررررررررررررررررر لــــــــــــــــــكم

السلام عليكم وهذه أول مشاركه لي وهي عبارة عن أستفسار . لدي جدول أسمه STUDENTS وبه عدة حقول من ضمنها حقل خاص بالتاريخ مثل 1/12/2003 . وجدول آخر به حقل واحد أسمه Month وبه أسماء الشهور : JAN FEB MAR APR..........DEC عملت نموذج آخر به أداة مربع تحرير وسرد يقرأ الشهور من جدول Month والهدف منه هو ان تقوم مستخدمة البرنامج بعملية البحث بواسطة الشهر بحيث عندما تختار شهر ديسمبر DEC تظهر لها جميع السجلات الموجودة في جدول الطالبات STUDENTS معتمدا على حقل التاريخ الموجود بالجدول السابق مثل ** /12/ **** أي جميع السجلات المسجلة في شهر 12 فقط بستثناء اليوم والسنة . سراحة لم أعرف لأن أدة مربع تحرير وسرد التي تقرأ الشهور عبارة عن نص وحقل التاريخ في الجدول الآخر عبارة عن رقم (تاريخ و وقت) فلم أعرف كيف كتابة الكود وياليت يكون الشرح بوضع ملف يحتوي على مثال . جزاكم الله كل خير