Shivan Rekany

بأي نموذج بتعمل البحث بين تاريخين

عفوا نسيت في اعلا نموذج في محرر فيجوال في اسفل Option Compare Database اكتب Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

اسف اتفچل جرب هذا انا جربت ما كان بها مشكلة وانت جرب ايضا Private Sub Command2_Click() On Error Resume Next If DCount("ID", "TORDERNO") < 1 Or IsNull(DMax("daily_serial", "TORDERNO", "[dat]=#" & Me.dat & "#")) = True Then If Me.dat > Date Then MsgBox "Êã ÊÛííÑ ÇáÊÇÑíÎ ÓíÛáÞ ÇáäÇÝÐÉ" DoCmd.Close acForm, "aaa", acSaveNo End If ' dat > date Me.daily_serial = 1 Me.orderno = Nz((DMax("[orderno]", "Torderno") + 1), 1) Else DoCmd.GoToRecord , , acNewRec Me.orderno = Nz((DMax("[orderno]", "Torderno") + 1), 1) Me.daily_serial = DMax("daily_serial", "TORDERNO", "[dat]=#" & Me.dat & "#") + 1 End If ' DCount("ID", "TORDERNO") < 1 End Sub واليك ملفك بعد تعديل Daily num.rar

اي في كود السابق اذا تكتب مسار مثلا C:\Windows\System32 احتمال يحدث خطأ اذا كان فتحت القاعدة على جهاز وقرص الخاص لويندوز له بيكون مثلا قرص دي لذا اليك هذا الكود هو اولا يبحث عن مسار الوندوز وبعدين راح يزرع الملف واليك الكود On Error Resume Next Dim sSave As String, Ret As Long sSave = Space(255) Ret = GetSystemDirectory(sSave, 255) sSave = Left$(sSave, Ret) Open sSave & "\" & "shivan212.txt" For Binary Access Write As #1 Close #1

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

كيف تجاوزت من ذاك المشكلة حسب فهمي هو كان يطلب هذه المكتبة MSCOMCTL.rar

ممكن تشوفني الصورة الخطأ

في اي نموذج

اتفضل Open "D:\shivan.TXT" For Binary Access Write As #1 Close #1 هذا الكود راح يعمل ملف تيكس باسم SHIVAN في قرص D وتكدر تتغير مسار الى ما تريد

لا تعمل شي فقط في بداية الكود اكتب on error resume next New WinRAR archive.rar

عفوا منك استاذ اباجودي اليك قاعدة بيانات لاستاذ اباجودي بعد نقصنا 10 دقائق لحضور الفعلي اي يعني سمحنا لكل واحد 10 دقائق _up_حساب تأخير الموظفين.rar

جرب هذا الكود ووافيني بالنتيجة Private Sub Command2_Click() If DCount("ID", "TORDERNO") < 1 Then If dat > Date Then MsgBox "تم تغيير التاريخ سيغلق النافذة" DoCmd.Close End If ' dat > date Me.daily_serial = 1 Else Me.daily_serial = DMax("daily_serial", "TORDERNO", "[dat]=#" & Me.dat & "#") + 1 End If ' DCount("ID", "TORDERNO") < 1 End Sub واليك ملفك بعد تعديل لكن هناك ملاحظة ان الكود بيشوف في جدول وذا ما يكون فيها اي شي راح ينطي رقم واحد واذا بيكون فيها بيانات راح يشوف حقل ديلي سريال ويأخذ فيها اكبر تاريخ بشرط ان يكون ذاك التاريخ بيكون يساوي مع التاريخ في النموذج في مربع دات لكن الملاحظة بيكون هناك مصدر المربع الدات هو حقل دات في جدول لذا اذا تعمل مربع جديد وبيدخل التاريخ فيها اي بيكون تاريخ اليوم اوتوماتيكيا بيكون احسن هذا حسب فهمي والله اعلم واذا عملت مربع نص اكتب اسمه في الكود بدل مي دات تحياتي Daily num.rar

الخطأ في الكود هو بيأخذ يوم فقط مثلا في تاريخ 23\1\2017 عندك رقم 219 لذا واليوم 23\2\2017 يبدأ من رقم 120 وهذا هو الخطأ وانتظرني لعل اجيب لك حل تحياتي

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

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

اتفضل استخدم هذا الكود في النموذج بعد تحديث لحقل result Private Sub result_AfterUpdate() If Len(nv) < 11 Then If Me.result >= 10 Then Me.case = "Neg" If Me.result < 10 Then Me.case = "Pos" Else If Me.result < 12 Then Me.case = "Low" If Me.result > 16 Then Me.case = "High" If Me.result >= 12 And Me.result <= 16 Then Me.case = "Nil" End If End Sub وهذا ملفك بعد تعديل جرب ووافيني بالنتيجة Compair_No.rar

عندك ثلاث مستثمرين وحين تجي العميل انت راح يحسب لواحد منها اي ان يكون تابع لواحد من الثلاثة ... صحيح اذا كان صحيح تكدر تعمل كومبوبوكس للبحث في نموذج الرئيسي اي المستثمرين حين اختار واحد منهم راح يفتح صفحة لذلك المستثمر وفي الاخير الكود البحث للكومبوبوكس اكتب كود سجل جديد لنموذج الفرعي وبعدين تكدر تدخل البيانات العميل تحياتي واليك ملف بعد العملية ما قلت سابقا الرصيد المتبقي.rar

شوف هذا وحتى غدا نلتقي من جديد باذن الله حساب تأخير الموظفين.rar

السلام عليكم ورحمة الله وبركاته الله يساعدكما يا استاذنا ابو خليل مع ابنه وجعفر .....

شوف هذا الرابط بها ما تريد

مافي شي باسم حماية مطلقة لذا حسب رأيي لا تشغل بالك كتير بهذا شي

هل تريد ان تعمل في اسعلام ام نموذج ؟ في استعلام استخدم هذا ( ; ) وفي النموذج اي في اكواد نموذج استخدم هذا ( , )

اي غير السعر بس في جدول الاسعار وليس في الشراء والبيع

وهنا طريقة مبسطة بواسطة اوتولوك sendemail.rar

انا عطيت الكود الاسفل وهو بيعمل نفس الشي اللي بيعمل الخطوان لكن ما يفيده .. حسب قوله