Shivan Rekany

اتفضل غير Combo ب اسم مربع تحرير وسرد عندك و غير FormArabic ب اسم نموذج ادخال العربية واسم FormEnglish ب اسم نموذج ادخال الانكليزية IF Me.Combo = "عربى" Then DoCmd.OpenForm "FormArabic", acNormal elseif me.Combo = "eng" then DoCmd.OpenForm "FormEnglish", acNormal endif

حسب ما افهم من قصدك حضرتك تريد عند اختيار قيمة تحويلة في كومبوبوكس تريد ان يكون طول النص في حقل فايلد ان يكون اربع مثل (de98) واذا تختار في كومبوبوكس قيمة ر قم حينئذ طول في حقل فايلد يكون اربع خانات او سبعة او ثمانية مثل (1234) او (gftr123) او (rt456781) اذا راح تستخدم هذا الكود بعد تحيديث كومبوبوكس If me.combo.value = "تحويلة" then Me.field.validationrule ="Is Null OR Like ""????""" Elseif me.combo.value = "رقم" then Me.field.validationrule="Is Null OR Like ""????"" OR Like ""???????"" OR Like ""????????""" End if

اعتذر استخدم هذا "Is Null OR Like ""????""" بدل "####"

هناك حالتين هل المربع النص بيدخل الارقام فقط ام نصية اذا الارقام استخدم هكذا If me.combo.value = "تحويلة" then Me.textRseed.ValidationRule = "Between 1000 And 9999" Elseif me.combo.value = "رقم" then Me.textRseed.ValidationRule = "Between 1000 And 99999999" End If واذا كان نصية استخدم هذا If me.combo.value = "تحويلة" then Me.textRseed.ValidationRule = "####" Elseif me.combo.value = "رقم" then Me.textRseed.ValidationRule = "########" End If

جرب هذا =IIf([in]<[from],0,IIf([in]>[from],DateDiff("n",[from],[in])))

اذا تقدرون ان تفتحون و تشرحون موضوعات المحاسبية سنكون من الشاكرين شكرا لتواجدك معنا

اتفضل استخدم هذا MsgBox DLookup("[ProcedureDate]", "SeasonalFollowUp", "[pN]=" & DMin("[PN]", "SeasonalFollowUp"))

شكرا لك استاذ @فارس بني هلال ... تعبناك وايضا تعبت من التفكير ما قلت حضرتك 😣 ان شاء الله سيكون فيها الحل شكرا لك على مشاركتك معنا شكرا لك على مشاركتك معنا ... ونحن نفكر فيه جيدا ... هذا لا ينسى لكن من شان التسهيل ما نشاركهم في الموضوع شكرا لك من جديد اولا شكرا لك على النصيحة ... قصدك لاني لا اشارك المصروفات بكل انواعه في مشاركتي هذا .... انا فكرت فيه جيدا على الرغم اني ليس محاسب كل شيء مهم لكن كل شيء في وقته سيكون المهم التسعير سيكون بيدنا لكن كان اريد اعرف كيف احصل على سعر الشراء لمادة ما لا اقل ولا اكثر لان دخول وخروج المواد سيكون بعدة مرات وسيكون اسعار مختلفة لكن الان عطيتنا فكرة وهو نعرف نسبة المال في المحل مع ملاحظة مصروفات و ادخال الى رأس المال وخروجه ( لان انا ضعيب بالعربي لذلك راح اعطيتكم المثال تجريبي ) واذا انا كان غلطان انصحني بما هو صح نفترض ان في بداية فتح المحل اموالنا فيه 100000 دولار وبعدة مدة 6 اشهر مثلا قمنا بعملية جرد راح نشوف كم هو نسبة المشتريات ( اي ما هو اجمالي المواد في المحل - المواد التالفة ) نفترض هو 50000 كم من المال في القاصة نفترض 15000 دولار وديوننا على المشتريين نفترض 60000 دولار ونسبة الدوين علينا هو 12000 دولار اذن ما هو الربح 50000 + 15000 + 60000 = 125000 125000 - 12000 = 113000 دولار 113000 - 100000 = 13000 دولار هو الربح هل هذه المعادلة صحيحة للربح ام لا ؟ ارجوا من حضراتكم ان تعطونا رأيك على هذا

هذا جيداً لكن نفترض اننا اشترينا مواد مثلا موبايل عددها 5 في اول مرة بسعر 500 دولار لكل واحد منهم ومرة ثانية اشترينا 6 موبايل بسعر 478 دولار لكل واحد منهم وبعنا اربع موبايلات ويبقى واحد لمجموعة الاولى اللي سعر الشراء يساوي 500 و احد من المشتريين اجى ويطلب 2 موبايل عند البيع راح نستخدم اي سعر 500 دولار ام 478 اذا تختار 500 دولار لا تقدر تعرف الربح الحقيقي لان في الحقيقة الربح سيكون اكبر واذا تختار 478 دولار ايضا لا تقدر تعرف الربح الحقيقي لان في الحقيقة الربح سيكون اقل هذه الطريقة جيدة لان راح تعرف الربح الحقيقي 100% لكن عند نزول السعر المواد راح يعمل لك منافس في السوق لان هناك من يعمل على اخر سعر الشراء لذلك راح تفقد بعض المشتريين انا لا احب هذا النوع لان هذا النوع لا يهتم على الادارة التخزين المواد هذا جيد ايضا لكن بهذه الطريقة ايضا لا نقدر ان نوصل الى الربح الحقيقي اي عند الجرد مثلا في نهاية الشهر الربح اللي يظهر لك هو ليس الربح الحقيقي بل هو اقل منه او اكثر منه

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

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

حسب فهمي لطلبك حضرتك تريد تعرف عدد سجلات غائب او اجازة ... الخ اتفضل بعد البحث استخدم هذا Dim db As Database Dim rs As Recordset Dim rc As Long Dim StrShrit As String Dim D, K, S, G Set db = CurrentDb Set rs = Form_EmployeeMovemSub_F.RecordsetClone Form_EmployeeMovemSub_F.SetFocus rs.MoveLast: rs.MoveFirst rc = rs.RecordCount For I = 1 To rc StrShrit = rs!Status If StrShrit = "دوام كامل" Or StrShrit = "دوام جزئي" Then D = D + 1 ElseIf StrShrit = "غائب" Then K = K + 1 ElseIf StrShrit = "أستئذان" Then S = S + 1 ElseIf StrShrit = "أجازة" Then G = G + 1 End If rs.MoveNext Next I Form_EmployeeMovemSub_F.SumD = D Form_EmployeeMovemSub_F.SumG = G Form_EmployeeMovemSub_F.SumK = K Form_EmployeeMovemSub_F.SumS = S rs.Close Set rs = Nothing Employee 12 .rar

بعد لم يكتمل الشرح ماذا تريد ان تجمع بذلك الشروط هل تريد ان تجمع وقت العمل او اي حقل بالضبط

اتفضل استخدم هذا Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer) If Me.الكود = 5 Then Me.Devirse.Visible = False Me.Label40.Visible = False End If End Sub Database1 (2).rar

ممكن توضيح مع المرفق

نفترض ان اسم الحقل هو Tarix في جدول Tbl1 ونفترض ان اسم النموذج هو Frm1 واسم المربع نصی اللی يتم تغيير فيها التاريخ هو Tarix استخدم هذا الكود DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE Tbl1 SET Tbl1.Tarix = [Forms]![Frm1]![Tarix];" DoCmd.SetWarnings True

نعم

Private Sub Command0_Click() Dim Db As Database Dim Rs As Recordset Dim Rc As Long Set Db = CurrentDb Set Rs = Db.OpenRecordset("a1", dbOpenTable) Do While Not Rs.EOF Rs.Edit Rs![العدد] = DCount("[الرقم الجامعي]", "A2", "[az2]='" & Rs![المعرف] & "'") Rs.Update Rs.MoveNext Loop MsgBox "تم تحديث" Rs.Close Set Rs = Nothing End Sub تحديث البيانات.rar

1- نعم هذا هو 2 - عند تحويل القاعدة الى Accde تقدر تفتح الاستعلامات و الجداول وتعمل عليه ماتريد ... فقط لا يمكنك ان تفتح النماذج والتقارير في وضع تصميم والاكواد ايضا

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

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

اذاً اتفضل اليك هذه الطريقة للاستاذ جعفر db.accdb

اتفضل اليك هذا Private Sub cmdBrowse_Click() Dim spl() As String Dim tmp As String tmp = GetBrowseFolder("اختيار المجلد المطلوب :") If Len(tmp) > 0 Then Source = tmp Me.path.SetFocus path.Text = Source spl = Split(Me.path, "\") Me.dn = spl(UBound(spl)) Me.sn = spl(UBound(spl) - 1) End If End Sub Database1_2.accdb

اتفضل اليك هذا Option Compare Database Private Sub ComFrq_AfterUpdate() Me.ComNam = Null Call Tesfie End Sub Private Sub command10_Click() Me.ComMnth = Null Me.ComFrq = Null Me.ComNam = Null Call Tesfie End Sub Private Sub command9_Click() DoCmd.OpenForm "KBT", acNormal End Sub Private Sub ComMnth_AfterUpdate() Me.ComFrq = Null Me.ComNam = Null Call Tesfie End Sub Private Sub Form_Load() Call Tesfie End Sub Function Tesfie() If Len(Me.ComMnth & "") = 0 And Len(Me.ComFrq & "") = 0 Then Me.ComNam.RowSource = "SELECT KBT.nam FROM KBT GROUP BY KBT.nam; " Me.ComFrq.RowSource = "SELECT KBT.frq FROM KBT GROUP BY KBT.frq; " ElseIf Len(Me.ComMnth & "") = 0 And Len(Me.ComFrq & "") <> 0 Then Me.ComNam.RowSource = "SELECT KBT.nam FROM KBT WHERE (((KBT.frq)=Forms!TSF!ComFrq)) GROUP BY KBT.nam; " Me.ComFrq.RowSource = "SELECT KBT.frq FROM KBT GROUP BY KBT.frq; " ElseIf Len(Me.ComMnth & "") <> 0 And Len(Me.ComFrq & "") = 0 Then Me.ComNam.RowSource = "SELECT KBT.nam FROM KBT WHERE (((KBT.mnth)=Forms!TSF!ComMnth)) GROUP BY KBT.nam; " Me.ComFrq.RowSource = "SELECT KBT.frq FROM KBT WHERE (((KBT.mnth)=[Forms]![TSF]![ComMnth])) GROUP BY KBT.frq; " ElseIf Len(Me.ComMnth & "") <> 0 And Len(Me.ComFrq & "") <> 0 Then Me.ComNam.RowSource = "SELECT KBT.nam FROM KBT WHERE (((KBT.mnth)=Forms!TSF!ComMnth) And ((KBT.frq)=Forms!TSF!ComFrq)) GROUP BY KBT.nam; " Me.ComFrq.RowSource = "SELECT KBT.frq FROM KBT GROUP BY KBT.frq; " End If End Function combo.accdb