Shivan Kurdi

اليك مشاركة للاستاذ جعفر بالصور كما قال استاذنا ابو خليل https://www.officena.net/ib/topic/64955-مشكلة-عند-فتح-البرنامج-على-ويندوز-8/?do=findComment&comment=423014

رائع جدا لکن هناك بيطلع خطأ عند اختيار كومباكت بيعطيك رسالة الخطأ المرقمة ب 3045 اي لا يجد القاعدة هناك لكي يعمل كومباكت >>>>> وممكن ان تظاف اليه كومباكت القاعدة الحالية ام قاعدة اخر بدون نسخة احتياطية لكي يكتمل اكثر تحياتي

احذف هذا "0)+" في الجملة اينما تجد IIf([الدرجه الوظيفية بالراتب]=1;20000;IIf([الدرجه الوظيفية بالراتب]=2;17000;IIf([الدرجه الوظيفية بالراتب]=3;10000;IIf([الدرجه الوظيفية بالراتب]=4;8000;IIf([الدرجه الوظيفية بالراتب]=5;6000;0))))) اليك قاعدتك بعد تعديل عليه 1.accdb

يجب ان تتحكم بمصدر النموذج الداخلي بدل نموذج الرئيسي اي فقط غير من Me.RecordSource الى Me.Qwaz.Form.RecordSource اي غير الكود الى هذا لانك اضفت حقل اخر جديد Private Sub choo_AfterUpdate() If Me.choo.Value = 0 Then Me.Qwaz.Form.RecordSource = "SELECT Tab1.name1, Tab1.wazefa, Tab1.salary FROM Tab1 " Else Me.Qwaz.Form.RecordSource = "SELECT Tab1.name1, Tab1.wazefa, Tab1.salary FROM Tab1 WHERE (((Tab1.wazefa) = [Forms]![manag]![choo])) WITH OWNERACCESS OPTION;" End If DoCmd.Requery End Sub اليك مثالك بعد تعديل chooseAll_2.mdb

اتفضل استخدم هذا Private Sub choo_AfterUpdate() If Me.choo.Value = 0 Then Me.RecordSource = "SELECT Tab1.name1, Tab1.wazefa FROM Tab1" Else Me.RecordSource = "SELECT Tab1.name1, Tab1.wazefa FROM Tab1 WHERE (((Tab1.wazefa) = [Forms]![Qwaz]![choo])) WITH OWNERACCESS OPTION;" End If DoCmd.Requery End Sub chooseAll.mdb

اتفضل استخدم هذا بدل ذلك Private Sub choose_Click() On Error Resume Next DoCmd.RunSQL "UPDATE Qchoo SET Qchoo.Choose = No;" DoCmd.RunCommand acCmdRefreshData End Sub choose_1 (1) (1).mdb

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

استخدم هذا Private Sub choose_AfterUpdate() DoCmd.RunSQL "UPDATE Qchoo SET Qchoo.Choose = No;" Me.Refresh End Sub choose_1 (1).mdb

استخدم هذا بعد تحديث الكمية DoCmd.GoToRecord , , acNewRec Me.prodno.SetFocus

هل تريد ان يرحل الى سجل جديد او حقل اخر اذا تريد ان يرحل الى حقل اخر استخدم كود اعلاه واذا تريد ان يرحل الى سجل جديد لا تستخدم الكود من الطبيعة الجهاز الباركود يتم تسجيل الباركود ويرحل الى سجل جديد لكن اذا تدخل بيانات باليد اكتب هذا DoCmd.GoToRecord , , acNewRec في حدث بعد تحديث لحقل باركود

مشاركة مع استاذ صالح اليك هذا الرابط به طريقتين

اليك هذا Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount If Me.CurrentRecord < RC Then DoCmd.GoToRecord , , acNext End If

وانا شاھد على ذلك اهلا بك و بعودتك استاذنا الحبيب كتير من الاحيان قلنا كان يا مكان كان هناك رجل اسمه رمهان وين كنت يا حبيبي 😃😃

المشاركة مع احبتي ھناک قلنا ان الحرف a هو حقل او مربع نصي بنوع التاريخ و ايضا قلنا ان حرف b هو حقل رقمي من نوع دبل وعند استدعائها يجب ان نكتب حقلين الاول بدل حرف a وهو حقل تاريخ والثاني هو حقل رقمي هكذا عذراً استاذ ابوخليل لم اجد مشاركتك 😅

اتفضل Private Sub Command0_Click() Dim dbs As Database Dim ThisTable As String Set dbs = CurrentDb ' Create a table with two text fields. ThisTable = InputBox("Name For Table", "ÇÏÎá ÇÓã ÌÏæá ÇáÌÏíÏÉ") dbs.Execute "CREATE TABLE " & ThisTable _ & "(FirstName CHAR, LastName CHAR);" dbs.Close DoCmd.OpenTable ThisTable, acViewNormal End Sub create a table1.rar

اتفضل تم حذف سطر واحد من كودك create a table1.rar

افتح استعلام اللي هو مصدر نموذج الرصيد ستجد استخدمنا nz اي يعني قلنا اذا هناك فراغ اي لا يوجد اي بيانات فيه اعطيه رقم صفر

اليك هذا Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) Dim ctl As Control For Each ctl In Report.Controls If ctl.ControlType = acTextBox Then If IsNull(ctl) Then ctl.Visible = False Else ctl.Visible = True End If End If Next ctl End Sub

هذه احد من طرائق Private Sub MyCombo_NotInList(NewData As String, Response As Integer) Undo Response = 0 MsgBox "(لا توجد هذه الكلمة ضمن الاختيارات)" End Sub

مخزن سيد.rar

بدل هذا استخدم هذا في الاستعلام Minutes1: IIf([close]>[open];DateDiff("n";[open];[close]);DateDiff("n";[open];[close]+1)) شوف النتيجة اليك التعديل TEST mnts.accdb

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

تأکد من اعدادات اللغة والمنطقة في جهازك