بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
2,256 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
136
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو kanory
-
ممكن مثال صغير للفكرة التي تريدها
-
طلب استعلام إلحاق من جدول واحد إلى عدة جداول بشروط
kanory replied to العبيدلي's topic in قسم الأكسيس Access
واضح الرسالة تظهر قبل الضغط على زر ارسال البيانات ... صحيح -
جرب تغير هذا الكود <<<<<<>>>>>>>>> Fol.AllowMultiSelect = False بهذا ........... Fol.AllowMultiSelect = True
-
طلب استعلام إلحاق من جدول واحد إلى عدة جداول بشروط
kanory replied to العبيدلي's topic in قسم الأكسيس Access
هذا الكلام في المرفق ام برنامجك ........... وماهي رسالة الخطأ التي تظهر ..... -
كود vba لانشاء جدول و حقل في جدول من نوع yes/no
kanory replied to hosslom's topic in قسم الأكسيس Access
جرب المرفق <<<<<<<<>>>>>>>>> Kanory.accdb -
كود vba لانشاء جدول و حقل في جدول من نوع yes/no
kanory replied to hosslom's topic in قسم الأكسيس Access
يا اخي هل طبقك الكود قبل السؤال .... وفتحت على خصائص الجدول ..... ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ -
كود vba لانشاء جدول و حقل في جدول من نوع yes/no
kanory replied to hosslom's topic in قسم الأكسيس Access
تفضل <<<<<<<<<>>>>>>>>> Dim strSQL1 As String strSQL1 = "CREATE TABLE [kanory] ([ProductID] AUTOINCREMENT,[ProductName] TEXT(40) NOT NULL,[SupplierID] LONG,[BirthDate] DATETIME,[CategoryID] LONG,[QuantityPerUnit] TEXT(20),[UnitPrice] CURRENCY,[UnitsInStock] SMALLINT,[UnitsOnOrder] SMALLINT,[ReorderLevel] SMALLINT,[Discontinued] BIT NOT NULL,CONSTRAINT [PrimaryKey] PRIMARY KEY ([ProductID]));" DoCmd.RunSQL strSQL1 اسف اخي الكريم @عبد اللطيف سلوم يبدو ان المشاركيتن في في الوقت .... لكن الطريقتين مختلفتين للفائدة ..... -
طلب استعلام إلحاق من جدول واحد إلى عدة جداول بشروط
kanory replied to العبيدلي's topic in قسم الأكسيس Access
تم التطبيق على المرفق <<<<<<<>>>>>>> تجريبي (1).rar -
مشاركة مع حبايبنا الاساتذة <<<<<<<<>>>>>>>> DATA2.accdb
-
مساعدة في تجنب رسالة الخظأ بعد تغيير البيانات
kanory replied to ازهر عبد العزيز's topic in قسم الأكسيس Access
هذا طبيعي لان الاكسس يعتبر هذا السجل قيد التحرير لانك بتحاول تعديل سجل او حقل معين بقيمتين قبل حفظ القيمة الاولى ..... يجب حفظ التعديلات في النموذج الاول وتحديث البيانات ثم تبدأ بتعديل البيانات من خلال النموذج الثاني .... -
مساعدة في تجنب رسالة الخظأ بعد تغيير البيانات
kanory replied to ازهر عبد العزيز's topic in قسم الأكسيس Access
هذه الرسالة تخبرك بأنك تحاول الكتابة على سجل موجود اصلا ولهذا يحدث التعارض لذا لديك ثلاث خيارات اما حفظ السجل او اضافة التحديث اولا الى الحافظة ثم بعد ذلك يتم نسخ ما تم في الحافظة الى السجل او الغاء الأمر....................................... لذا لحل هذا التعارض يلزمك عمل حفظ للسجل يمكن استخدام هذا الكود ....... DoCmd.RunCommand acCmdSaveRecord -
عملية حسابية بخصوص الخصم من الرصيد الحالى ثم من رصيد اول المدة
kanory replied to الحلبي's topic in قسم الأكسيس Access
واياك استاذنا الفاضل ابا الحسن ... جزاك الله خيرا -
مشكلة في اظهار باقي الاصناف اكسس مساعدة من فضلكم
kanory replied to davha2020's topic in قسم الأكسيس Access
-
عملية حسابية بخصوص الخصم من الرصيد الحالى ثم من رصيد اول المدة
kanory replied to الحلبي's topic in قسم الأكسيس Access
الحمد لله رب العالمين .... بالتوفيق يادكتور الله يجزاك خير حبينا الغالي ... اشكرك -
عملية حسابية بخصوص الخصم من الرصيد الحالى ثم من رصيد اول المدة
kanory replied to الحلبي's topic in قسم الأكسيس Access
طيب ... جرب الكود هذا <<<<<<<<<>>>>>>>>> DoCmd.RunCommand acCmdSaveRecord If Val(outs) <= Val(a) Then Me.a = [Forms]![Form1]![a] - [Forms]![Form1]![outs] ElseIf Val(outs) > Val(a) And Val(a) > 0 Then MsgBox "الرصيد الحالي لا يغطي التسديد" ElseIf Val(a) = 0 And Val(outs) <= Val(m) Then Me.m = [Forms]![Form1]![m] - [Forms]![Form1]![outs] ElseIf Val(outs) > Val(m) And Val(a) = 0 Then MsgBox "التسديد اكبر من رصيد اول المدة" End If -
عملية حسابية بخصوص الخصم من الرصيد الحالى ثم من رصيد اول المدة
kanory replied to الحلبي's topic in قسم الأكسيس Access
لم افهم ... اعذرني لكبر سني ... ممكن مثال للفهم -
عملية حسابية بخصوص الخصم من الرصيد الحالى ثم من رصيد اول المدة
kanory replied to الحلبي's topic in قسم الأكسيس Access
طيب جرب الحدث التالي <<<<<<<<>>>>>>>>> DoCmd.RunCommand acCmdSaveRecord If Me.outs <= Me.a Then DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE t1 SET t1.a = [Forms]![Form1]![a]-[forms]![Form1]![outs] WHERE (((t1.kan_id)=[Forms]![Form1]![kan]))" DoCmd.Requery DoCmd.SetWarnings True ElseIf Me.outs > Me.a And Me.a > 0 Then MsgBox "الرصيد الحالي لا يغطي التسديد" ElseIf Me.a = 0 And Me.outs <= Me.m Then DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE t1 SET t1.m = [forms]![Form1]![m]-[Forms]![Form1]![outs] WHERE (((t1.kan_id)=[Forms]![Form1]![kan]))" DoCmd.Requery DoCmd.SetWarnings True ElseIf Me.outs > Me.m And Me.a = 0 Then MsgBox "التسديد اكبر من رصيد اول المدة" End If اشكرك يا بشمهندس ........ منكم تعلمنا -
عملية حسابية بخصوص الخصم من الرصيد الحالى ثم من رصيد اول المدة
kanory replied to الحلبي's topic in قسم الأكسيس Access
طيب جرب المرفق حسب فهمي للموضوع <<<<<<<<<<>>>>>>>>>> اضفتا حقل ترقيم ... الخصم.accdb -
اعانك الله اخي عمر وعوضك خيرا ..... اخي الكريم .... نصيحة اخ .. دائما وابدا اعمل نسخ احتياطية لبرامجك سواءا وقت التصميم او وقت العمل عليه ....
-
-
طلب استعلام إلحاق من جدول واحد إلى عدة جداول بشروط
kanory replied to العبيدلي's topic in قسم الأكسيس Access
بعض ما لديكم استاذنا الغالي .. كلامك صحيح ... بس انا قلت عشان يفهمها الجميع بما في ذلك المبتدئ .. وايضا تحسبا لكون هذا مثال ... ممكن الجداول متغيرة لديه ... وملاحظتك في محلها سيدي ... تسلم على المداخلة ... -
طلب استعلام إلحاق من جدول واحد إلى عدة جداول بشروط
kanory replied to العبيدلي's topic in قسم الأكسيس Access
طيب <<<<<<<>>>>>>>> ضع هذا الحدث تحت الزر عندك ......... If Me.الوظيفة = "اداري" Then DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO 1 ( [رقم الكتاب], [تاريخ الكتاب], الاسم, الوظيفة, الموضوع, [اسم المستلم], [تاريخ الاستلام], المرحلة ) SELECT المعاملات.[رقم الكتاب], المعاملات.[تاريخ الكتاب], المعاملات.الاسم, المعاملات.الوظيفة, المعاملات.الموضوع, المعاملات.[اسم المستلم], المعاملات.[تاريخ الاستلام], المعاملات.المرحلة FROM المعاملات WHERE (((المعاملات.[رقم الكتاب])=[Forms]![ادخال بيانات]![رقم الكتاب]));" DoCmd.RunSQL "INSERT INTO 2 ( [رقم الكتاب], [تاريخ الكتاب], الاسم, الوظيفة, الموضوع, [اسم المستلم], [تاريخ الاستلام], المرحلة ) SELECT المعاملات.[رقم الكتاب], المعاملات.[تاريخ الكتاب], المعاملات.الاسم, المعاملات.الوظيفة, المعاملات.الموضوع, المعاملات.[اسم المستلم], المعاملات.[تاريخ الاستلام], المعاملات.المرحلة FROM المعاملات WHERE (((المعاملات.[رقم الكتاب])=[Forms]![ادخال بيانات]![رقم الكتاب]));" DoCmd.RunSQL "INSERT INTO 3 ( [رقم الكتاب], [تاريخ الكتاب], الاسم, الوظيفة, الموضوع, [اسم المستلم], [تاريخ الاستلام], المرحلة ) SELECT المعاملات.[رقم الكتاب], المعاملات.[تاريخ الكتاب], المعاملات.الاسم, المعاملات.الوظيفة, المعاملات.الموضوع, المعاملات.[اسم المستلم], المعاملات.[تاريخ الاستلام], المعاملات.المرحلة FROM المعاملات WHERE (((المعاملات.[رقم الكتاب])=[Forms]![ادخال بيانات]![رقم الكتاب]));" DoCmd.RunSQL "INSERT INTO 4 ( [رقم الكتاب], [تاريخ الكتاب], الاسم, الوظيفة, الموضوع, [اسم المستلم], [تاريخ الاستلام], المرحلة ) SELECT المعاملات.[رقم الكتاب], المعاملات.[تاريخ الكتاب], المعاملات.الاسم, المعاملات.الوظيفة, المعاملات.الموضوع, المعاملات.[اسم المستلم], المعاملات.[تاريخ الاستلام], المعاملات.المرحلة FROM المعاملات WHERE (((المعاملات.[رقم الكتاب])=[Forms]![ادخال بيانات]![رقم الكتاب]));" MsgBox Space(20) & "تمت العملية بنجاح.." & Space(20), msgstyle, "للمعلومية" DoCmd.SetWarnings True ElseIf Me.الوظيفة = "معلم" Then DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO 5 ( [رقم الكتاب], [تاريخ الكتاب], الاسم, الوظيفة, الموضوع, [اسم المستلم], [تاريخ الاستلام], المرحلة ) SELECT المعاملات.[رقم الكتاب], المعاملات.[تاريخ الكتاب], المعاملات.الاسم, المعاملات.الوظيفة, المعاملات.الموضوع, المعاملات.[اسم المستلم], المعاملات.[تاريخ الاستلام], المعاملات.المرحلة FROM المعاملات WHERE (((المعاملات.[رقم الكتاب])=[Forms]![ادخال بيانات]![رقم الكتاب]));" DoCmd.RunSQL "INSERT INTO 6 ( [رقم الكتاب], [تاريخ الكتاب], الاسم, الوظيفة, الموضوع, [اسم المستلم], [تاريخ الاستلام], المرحلة ) SELECT المعاملات.[رقم الكتاب], المعاملات.[تاريخ الكتاب], المعاملات.الاسم, المعاملات.الوظيفة, المعاملات.الموضوع, المعاملات.[اسم المستلم], المعاملات.[تاريخ الاستلام], المعاملات.المرحلة FROM المعاملات WHERE (((المعاملات.[رقم الكتاب])=[Forms]![ادخال بيانات]![رقم الكتاب]));" DoCmd.RunSQL "INSERT INTO 7 ( [رقم الكتاب], [تاريخ الكتاب], الاسم, الوظيفة, الموضوع, [اسم المستلم], [تاريخ الاستلام], المرحلة ) SELECT المعاملات.[رقم الكتاب], المعاملات.[تاريخ الكتاب], المعاملات.الاسم, المعاملات.الوظيفة, المعاملات.الموضوع, المعاملات.[اسم المستلم], المعاملات.[تاريخ الاستلام], المعاملات.المرحلة FROM المعاملات WHERE (((المعاملات.[رقم الكتاب])=[Forms]![ادخال بيانات]![رقم الكتاب]));" DoCmd.RunSQL "INSERT INTO 8 ( [رقم الكتاب], [تاريخ الكتاب], الاسم, الوظيفة, الموضوع, [اسم المستلم], [تاريخ الاستلام], المرحلة ) SELECT المعاملات.[رقم الكتاب], المعاملات.[تاريخ الكتاب], المعاملات.الاسم, المعاملات.الوظيفة, المعاملات.الموضوع, المعاملات.[اسم المستلم], المعاملات.[تاريخ الاستلام], المعاملات.المرحلة FROM المعاملات WHERE (((المعاملات.[رقم الكتاب])=[Forms]![ادخال بيانات]![رقم الكتاب]));" MsgBox Space(20) & "تمت العملية بنجاح.." & Space(20), msgstyle, "للمعلومية" Else MsgBox Space(20) & "الرجاء اختيار الوظيفة.." & Space(20), msgstyle, "تحذير" End If -
طلب استعلام إلحاق من جدول واحد إلى عدة جداول بشروط
kanory replied to العبيدلي's topic in قسم الأكسيس Access
اين الجداول من 1 >>>>>>>>>>>> 8 على كل حال العملية سهلة ..... بعد تصميم الجداول الثمانية هنا عدة طرق منها اما ( IF أو Select Case ) ........ وصمم استعلامات الحاق ثمانية الى الجداول الثمانية ..... -
طيب <<<<<<<<>>>>>>>> اعمل زر وضع فيه هذا الحدث ............ Dim msgstyle Dim Rs As DAO.Recordset Dim Rs2 As DAO.Recordset Dim rstChild As Recordset Dim rstChild2 As Recordset Dim rstChild3 As Recordset Dim rstChild4 As Recordset Set Rs2 = CurrentDb.OpenRecordset("select * from proces where [id] Like '" & [id] & "*'") Set Rs = CurrentDb.OpenRecordset("local") Do While Not Rs2.EOF Rs.AddNew Set rstChild = Rs!vend.Value Set rstChild2 = Rs2!vend.Value Set rstChild3 = Rs!sisi.Value Set rstChild4 = Rs2!sisi.Value Rs!id_f = Rs2!id Do While Not rstChild2.EOF rstChild.AddNew rstChild.Fields(0) = rstChild2.Fields(0) rstChild.Update rstChild2.MoveNext Loop Do While Not rstChild4.EOF rstChild3.AddNew rstChild3.Fields(0) = rstChild4.Fields(0) rstChild3.Update rstChild4.MoveNext Loop Rs.Update Rs2.MoveNext Loop Set Rs = Nothing MsgBox Space(20) & "تمت العملية بنجاح.." & Space(20), msgstyle, "للمعلومية"