بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
-
Posts
530 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
1
عمر ضاحى last won the day on مايو 1
عمر ضاحى had the most liked content!
السمعه بالموقع
131 Excellentعن العضو عمر ضاحى

- تاريخ الميلاد 05 ديس, 1988
البيانات الشخصية
-
Gender (Ar)
ذكر
-
Job Title
محاسب
-
البلد
مصر
-
الإهتمامات
الكمبيوتر والتكنولوجيا والبرمجه ..... كله
اخر الزوار
1,242 زياره للملف الشخصي
-
نقل سجل كامل من جدول الى آخر عن طريق النموذج
عمر ضاحى replied to Ahmed_J's topic in قسم الأكسيس Access
هذا هو الذى اعمل عليه حاليا لقد جربت هذا الكود لكنه فشل معي مش عارف اذاى اذيف المتغيرات داخل كود ال SQL Dim Ls1 As String Dim Ls2 As String Ls1 = Me.List1 Ls2 = Me.List2 strSQL1 = "INSERT INTO Ls2 ( num, age, school, adress ) " & vbCrLf & _ "SELECT Ls1.num, Ls1.age, Ls1.school, Ls1.adress " & vbCrLf & _ "FROM Ls1 " & vbCrLf & _ "WHERE (((Ls1.id)=[Forms]![form]![Ê]));" strSQL2 = "DELETE Ls1.id, Ls1.num, Ls1.age, Ls1.school, Ls1.adress " & vbCrLf & _ "FROM Ls1 " & vbCrLf & _ "WHERE (((Ls1.id)=[Forms]![form]![Ê]));" DoCmd.OpenQuery strSQL1 DoCmd.OpenQuery strSQL2 MsgBox Buttons:=vbInformation, Prompt:="Done", Title:="Notes" -
نقل سجل كامل من جدول الى آخر عن طريق النموذج
عمر ضاحى replied to Ahmed_J's topic in قسم الأكسيس Access
بص اجمالى الاستعلامات هتكون 12 استعلام الحل يكون تكوين الاستعلام متغير بتغير اسم الجدول انا شغال عليه دى النتيجه للفكره (فقط للاطلاع لحين ايجاد حل ان شاء الله) test-a.accdb -
نقل سجل كامل من جدول الى آخر عن طريق النموذج
عمر ضاحى replied to Ahmed_J's topic in قسم الأكسيس Access
انا ممكن معرفش اعملها كويس لكن سوف اجرب و الفكره هي اولا انت هتحتاج تعمل استعلام الحاقي لنسخ البيانات من جدول 1 الى جدول 2 وثم استعلام حذف لنفس البيانات فى جدول 1 -
متابع فى صمت ^_^
-
جرب هذا التعديل 5-5.mdb ايضا هذا حل اخر 5-5.mdb
-
حضرتك جربت الملف اولا ؟
-
بعد اذنك باش مهندس قاسم اسمح لى بالمداخله جرب هذا الحل لقد قمت باضفة دالة LIKE Like "*" & [Forms]![نموذج1]![الوظيفهA].[Text] & "*" 5-5.mdb
-
تحديث حقل بناء على قيمة حقل في نفس النموذج
عمر ضاحى replied to ابو هاله النبلسي's topic in قسم الأكسيس Access
طيب ما هو المعيار الذى بابني عليه المطلوب يعنى ما القيمه او الشرط التى اذا تحقق يفعل كذا عموما طلبك ممكن تنفيذه باستعلام او دالة if او دالة Select -
صار عندنا عيدين ، عيد الفطر ، وعيد ترقية اخونا ناقل
عمر ضاحى replied to jjafferr's topic in قسم الأكسيس Access
مبارك لك استاذي @ناقل واعاتك الله على هذه المسؤلية -
مطلوب : جملة Insert Edit Delete ADO Rrecored
عمر ضاحى replied to alsihran's topic in قسم الأكسيس Access
باعتذر لك عن عدم قدرتى على تقديم المساعده بسبب ضعف قدرتى وعلمي فى هذا الجانب لك ان تنتظر احد اساتذتى الكرام فى تقديم المساعده لك -
مطلوب : جملة Insert Edit Delete ADO Rrecored
عمر ضاحى replied to alsihran's topic in قسم الأكسيس Access
معرفش اذا كانت هذه الاكواد تعمل معك ام لا لكن يمكن ان تجرب للاضافة Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("TablName", dbOpenDynaset) With rst .AddNew ![Name1] = me.txt1 ![Name2] = me.txt2 .Update .Close End With Set rst = Nothing db.Close Set db = Nothing للتعديل Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("TablName", dbOpenDynaset) With rst .FindFirst Criteria:="[ID]="&me.txtID If Not .NoMatch Then .Edit ![Name1] = me.txt1 ![Name2] = me.txt2 .Update End If .Close End With Set rst = Nothing db.Close Set db = Nothing -
ادري ان الكود شغال لكن كنت عاوز اعرف ايه الكلام الهلوغروفى المكتوب بس ^_^ (( 'åÐÇ ÑÞã f6 ))
-
كل سنه وانتم طيبين ويتقبل الله منا ومنك صالح الاعمال وعيد مبارك للجميع
-
ممكن ترجمه للسطر ده ^_^
-
انا فعلا عملت كده لكن لقيته بيغلق النموذج الفرعي والنموذج الرئيسي انا عاوز اغلق النموذج المتفعل فقط (ال مفتوح فى وجهي فقط) مش يقفل كل النماذج مره واحده