أمجد جمالي

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

يعني تفهم بالاصول

السلام عليكم تفضل اخ ابو سفاري و دبلوم غلبان هذا مثال على استخدام دالى Dcount تحياتي DcountFunction.zip

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

السلام عليكم اخي الكريم حملت الملف ومن كثر المشاكل الي فيه :d لم اميز اي مشكله تريد حلها بالضبط تحياتي

السلام عليكم سهل جداً اضف هذا الكود عند حدث الضغط على الزر MyField.value = Null فقط عدل من MyField الى اسم الخانة عندك تحياتي

استخدم دالة Dcount تحياتي

السلام عليكم ورحمة الله تفضل هذا مثال على ذلك تحياتي Example.zip

السلام عليكم ورحمة الله وبركاته تفضل هذا هو المثال تحياتي ابو نادر DuplicateEmployeeNo.zip

السلام عليكم ورحمة الله وبركاته اخي الكريم في الوقت الحالي لا تستطيع ادراج اي ملف الي المنتدى الا في حال وثقت بك ادراة المنتدى سوف يصلك رسالة على ايميلك تفيد بأنك الان تستطيع تحميل ملفات لكن هناك الكثير من المواقع تقدم خدمة تحميل الملفات راجع هذا الرابط http://www.officena.net/ib/index.php?showtopic=3206&hl وهذا الرابط http://www.officena.net/ib/index.php?showtopic=2129 تحياتي

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

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

السلام عليكم ورحمة الله وبركاته اخواني الأعزاء قمت بإضافة Menu بالكود كما هو موضح في المثال المرفق المشكلة الباقية هي أني اريد أن اضيف Icon لكل Item في هذه القائمة عن طريق الكود. اسم المستخدم هو Admin وكلمة المرور Admin تحياتي AddIconToMenu.zip

السلام عليكم مازلت بإنتظار ردك اخ جمال وانا شايف لحد الأن انا الوحيد الي عم يشتغل في البرنامج ياشباب وينكم والله فكرة هالبرنامج حلوه وانا بس يخلص رح جربوا على 300 موظف عندي في الشركة وعلى اساسه يتقم تقييم او اي شخص جديد يتقدم لوظيفة تحياتي

السلام عليكم ورحمة الله وبركاته شكراً لك اخ biskra على تعقيبك ايضاَ اكتشتفت عدة ثغرات مثل 1-اذا كان يوجد سجل لم يدخل فيه تاريخ يعني قيمته Null 2-تتكرر الرسالة كل مرة لكل موظف وفي الوقت الحالي اقوم بتطوير طريقة ثانية وسوف اطرحها فور انتهائها بإذن الله أما بالنسبة للوثائق التي تكون تاريخ بدايتها وانتهائها بالهجري مثل الاقامة في الدالة Ap_LoopDateCode اضف هذا الكود Calendar = vbCalHijri تحياتي

السلام عليكم ورحمة الله وبركاته تفضل اخي الكريم هذا هو المثال المعدل بس ان شاء الله اكون فهمتك صح تحياتي مثال.zip

مثال الاخ شاعر هو مثال.rar

السلام عليكم ههههههههه ابشر ولا يهمك

اهلا وسهلا فيك اخي الكريم انا عارف اني عطيتك طريقة صعبة نوعاً ما لكن هي الوسيلة الوحيدة لحتى تتعلم بالنسبة Immediate Window تلقيها موجودة في VBA تروح على قائمة View بعدين تختارها واستدعي الكود بعدين خذ الكود وحاول تطبيقه في برنامجك على كيفك تحياتي

السلام عليكم من الواضح انك لم تبحث جيداً لكن بما انك عضو جديد لازم ندللك شوي ونسهلك الامور تفضل هذا مثال تم عمله خصيصاً لك تحياتي واهلأ وسهلا فيك DateDiff.zip

اخي العزيز عطيني رقم رسالة الخطأ او اكتب نص الرسالة تحياتي

السلام عليكم تأكد من تاريخ جهازك هل هو صحيح واذا كان بالهجري حوله الى الميلادي وجرب

السلام عليكم ورحمة الله وبركاته تفضل Public Sub Ap_TestPoBoxNo(IntPoBoxNo As Integer) Select Case IntPoBoxNo Case 1 To 500 Debug.Print 111 Case 501 To 1000 Debug.Print 222 Case 1001 To 1500 Debug.Print 333 End Select End Sub ضع هذا الكود في وحدة نمطية جديدة قم باستدعاء الكود في ال Immediate Window مع تمرير القيمة كالأتي Ap_TestPoBoxNo (1000) تحياتي

السلام عليكم ورحمة الله وبركاته يتألف ال Ado من ثلاث مكتبات هي Activex data Objects الاصدار 2.5 Ado extensions for ddl and security الاصدار 2.5 Jet and Replication Objectsالاصدار 2.5 طريقة الاتصال مع قاعدة البينات الحالية Dim cnnLocal As ADODB.Connection Set cnnLocal = CurrentProject.Connection Debug.Print cnnLocal = CurrentProject.Connection طريقة الاتصال مع قاعدة بيانات اخرى سواء كانت على الشبكة او في اي مكان في الهارد Dim CnnNet As New ADODB.Connection CnnNet.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\DataBase\MyProject\MyProject.Mdb" Debug.Print CnnNet.ConnectionString CnnNet.Close انواع المؤشر وقفل السجلات adOpenKeyset لتحرير السجلات ضمن قاعدة بيانات الا انك لن تتمكن من رؤية تحريرات المستخدمين الاخرين adOpenForwardOnly مجمموعة سجلات للقراءة فقط ولكن بالاتجاه الأمامي حصراً adOpenStatic مجمموعة سجلات للقراءة فقط مثال على ذلك Dim RstDBProps As New ADODB.Recordset Dim cnnLocal As New ADODB.Connection Set cnnLocal = CurrentProject.Connection RstDBProps.Open "MyTbl", cnnLocal, adOpenForwardOnly Debug.Print RstDBProps!MyField RstDBProps.Close adLockOptimistic يمنع الوصول الى الى السجلات اثناء عملية الحفظ adLockPessimistic يمنع الوصول الى السجلات عند بدء التحرير adLockReadOnly يمنع الوصول الى السجلات من قبل المستخمين الاخرين مثال على ذلك Function Ap_GetDataBaseProp(StrPropertyName As String) As Variant Dim RstDBProps As New ADODB.Recordset Set cnnLocal = CurrentProject.Connection RstDBProps.Open "MyTbl", cnnLocal, adOpenDynamic, adLockOptimistic Ap_GetDataBaseProp = RstDBProps(StrPropertyName) RstDBProps.Close End Function هذه طرق الاتصال مع قواعد البيانات باستخدام Ado يوجد عدة امثلة قمت بتحميلها الى منتدى اوفيسنا وجميعها استخدم فيها ال Ado منها http://www.officena.net/ib/index.php?act=A...e=post&id=22584 وهذا http://www.officena.net/ib/index.php?showtopic=4375 وهذا المثال ايضاً لفتح قاعدة بيانات محمية بكلمة مرور http://www.officena.net/ib/index.php?showtopic=4129 ارجو ان اكون قد وفقت في شرحي واي واحد عنده استفسار انا جاهز بإذن الله تحياتي ابو نادر

السلام عليكم راجع هذا الرابط http://www.officena.net/ib/index.php?showtopic=4267 تحياتي