Shivan Kurdi - شڤان کوردی

اتفضل filter_continus_forms.rar

ما فهمت قصدك بالضبط

جرب هذا اخ علي filter_continus_forms.rar

اتفضل استخدمت هذا الكود في حالة بعد تحديث للاسم و اب و الخ مع حالة الجنس If Me.الجنس = "ذكر" Then fullname = Fname + " بن " + Mname + " بن " + Gname + " بن " + family Else fullname = Fname + " بنت " + Mname + " بن " + Gname + " بن " + family End If مثال.rar

اليك ما طلبت عملنا جدول اولا بها ثلاث خقول فقط الاول اي دي للتسلسل والثاني HIGH والثالث LOW وبعدين عملنا استعلام واضفنا حقولباسماء الاخرى P , X , SELL FROM و ... الخ وكل واحد منها عطيتناه شروط وكل شروط كان فقط + و / و - و * مع NZ وبعدين عملنا نموژج على ژاك الاستعلام شوف ووافيني بالنتيجه‌ Database3.rar

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

عفوا منك استاذ جعفر على المداخلة كود استاذ جعفر بيشتغل 100 % لكن اسم جدولك ليس هو ليس مسمية باسم table1 وانتي استخدمتها بقاعدة بياناتك بدون تتغير table1 باسم الجدول اللي في قاعدة بياناتك واستاذنا الفاضل ابو حسين قلت . لتفريغ بيانات جدول اسمه table1 DELETE * FROM table1 شوف استخدم هكذا اي بدل تابل1 باسم جدولك DoCmd.SetWarnings False DoCmd.RunSQL " delete * from [إجازات وحدة التوثيق والإحصاء]" DoCmd.SetWarnings True

اتفضل بين تاريخين ورقم السجل.rar

ما شاء الله بدون تعليق

اتفضل جرب ووافيني بالنتيجة انا استخدمت هذا الكود Dim nTikrar As Integer nTikrar = DCount("[رقم الموظف]", "حضور", _ "[رقم الموظف]=" & Me.ID & _ " And [التاريخ] = #" & Date1 & "#") If nTikrar > 0 Then MsgBox ("هذا الاسم مسجلة اليوم") Exit Sub Else Me.idh = Me.ID Me.timeh = Me.time1 Me.dateh = Me.Date1 Refresh DoCmd.GoToRecord , , acNewRec End If منع تكرار التسجيل.rar

لكي نتأكد هل تريد بعد 24 ساعة بالتمام ام منع تكرار لنفس التاريخ

عندك في استعلام بين التاريخين هذا الكود مرتين و مع شرط نعم >=[Forms]![frmDate2]![txtStartDate] And <=[Forms]![frmDate2]![txtEndDate] بدلها بهذا Between[Forms]![frmDate2]![txtStartDate] And [Forms]![frmDate2]![txtEndDate]

عفوا منك استاذ امير للمداخلة اتفضل كما قال استاذ امير لكن حين تضغط على زر للطباعة بين تاريخين راح يفتح نافذة لكي تدخل التاريخ الاول وبعدين التاريخ الثاني وبعدين راح يطبعها وهناك طريقة اخرى اذا تريد راح استخدمها وهو حين تضغط على زر بين تاريخين راح يظهر على النموذج 2 من مربعات نصية وحين تدخل التاريخ الاول في مربعة الاولى و تكتب تاريخ الثاني في مربع الثاني راح يطبع التقرير print_rp.rar

اخي الكريم هل عملت كوبى باست للكود الاعلاه في مشاركتي السابقة ؟ اذا نعم اليك هذا On Error Resume Next Dim nCount As Integer nCount = DCount("[ID]", "Q1") If nCount > 0 Then If MsgBox(" اقترب موعد صرف " & " ( " & nCount & " ) " & " شيكات , هل تريد متابعته ", vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then Forms!shikatacila.SetFocus DoCmd.Minimize DoCmd.OpenForm "FRM1", acNormal Else Exit Sub End If ' MSGBOX End If ' NCOUNT > 0 End Sub لكن انتبه حين تعمل كوبي باست للكود يغير الكلمات اللغة العربية الى ذاك الكلمات الغير مفهومة افتح محرر فيجوال للاكواد وغير بنفسك تحياتي شكرا لك استاذ اباجودي على الاضافة النغمة تحياتي الك

اتفضل اخي الكريم اليك ملف بصيغة mdb اي 2003 من الممكن ان نستخدم هذا الكود بدل الكود عند تحميل شيكات الاجلة لان في كود الاعلاه حين تضغط لا بيعمل ميني مايز النموذج الشيكات والان ان شاء الله الكود تمام On Error Resume Next Dim nCount As Integer nCount = DCount("[ID]", "Q1") If nCount > 0 Then If MsgBox("ÇÞÊÑÈ ãæÚÏ ÕÑÝ " & " ( " & nCount & " ) " & "ÔíßÇÊ , åá ÊÑíÏ ãÊÇÈÚÊå ", vbYesNo + vbMsgBoxRight, "ÊäÈíå") = vbYes Then Forms!shikatacila.SetFocus DoCmd.Minimize DoCmd.OpenForm "FRM1", acNormal Else Exit Sub End If ' MSGBOX End If ' NCOUNT > 0 End Sub شيكات.rar

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

تمام لكن ارفق له قاعده‌ بيانات لكي يعمل عليه

اتفضل اخي اولا عملنا استعلام باسم Q1 وفي حقل التاريخ كتبنا شرط لكي يبين لنا الريكوردات اللي فيه تاريخ اليوم و حتى تاريخ بعد يومين اي تاريخ زائد يومين وبعدين عملنا نموذج على تلك الاستعلام اي مصدر النموذج هو استعلام Q1 وفي نموذج الشيكات الاجلة وفي حالة التحميل كتبنا هذا الكود Private Sub Form_Load() On Error Resume Next Dim nCount As Integer nCount = DCount("[ID]", "Q1") If nCount > 0 Then DoCmd.Minimize If MsgBox("ÇÞÊÑÈ ãæÚÏ ÕÑÝ " & " ( " & nCount & " ) " & "ÔíßÇÊ , åá ÊÑíÏ ãÊÇÈÚÊå ", vbYesNo + vbMsgBoxRight, "ÊäÈíå") = vbYes Then DoCmd.OpenForm "FRM1", acNormal Else Exit Sub End If ' MSGBOX End If ' NCOUNT > 0 End Sub شيكات.rar

اليك هذا الكود جرب ووافيني بالنتيجة ControlPanelValue = Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0", 5)

اليك هذا استخدم ارقام 1 و 2 و 3 اللي فوق الحروف اي في الاعلى الكيبور وليس الارقام الجانبي فتح نماذج بواسطة ارقام.rar

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

اي جرب هذا docmd.setwarnings false test70 (1).rar

روعة من اي كوكب انت ؟

هناك سۆال : هل ذاك الحقل بها كم ارقام و كم حروف ؟ اي يعني كلها بها رقمين و حرف واحد او اي ؟ تحياتي

اتفضل مثلا ادخل التاريخ 5-2-2017 الى 6-2-2017 وشوف النتيجة -مكتب حوالات - نسخة.zip