بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'recordset'.
تم العثور علي 5 نتائج
-
.thumb.gif.27c4a79ce23abc61b721f833e6899131.gif)
سؤال عن اضاقة قيم من نموذج غير منضم الى حقول فى جدول من خلال Recordset.AddNew الطريقة التقليدية اعلمها ولكن احاول عمل Function يسهل العملية وتدور فكرتى باستدعاء الكود كالاتى Call ApendData("Table Name", "Field Name On Table", Object Name On Form) وهذه الاكواد التى استخدمتها فى الموديول Sub ApendData(ByVal strTableName As String, ByVal strFieldName As String, ByVal strObjectName As String) Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb() Set rs = CurrentDb().OpenRecordset(strTableName) rs.AddNew rs.Fields(strFieldName) = "" & strObjectName & "" rs.Update rs.Close End Sub ولكن المشكلة انه تم اضافة البيانات فى اكصر من سجل حسبب عدد الحقول وبيانات كل حقل قى سجل المفروض ان يتم تسجيل كافة بيانات الحقول فى سدل واحد كيف يمكن عمل ذلك المرفق ApendDataByRecordset.mdb -
السلام عليكم ورحمة الله تعالى وبركاته فى موديول عام استخدمت هذا الجزء من الكود ولكن للمرة الأولى تحدث هذه المشكلة معى ولا ادرى السبب Dim db As DAO.Database Dim rs As DAO.Database Set db = CurrentDb() Set rs = db.OpenRecordset("tblErrorLog") rs.AddNew
-
السلام عليكم اعرض عليكم هنا طريقة قرءة السجلات Records عن طريق Recordset ، وقراءة اسماء الحقول Fields وقيمة كل حقل (للجداول والاستعلامات) . عندنا الجدول tbl_Letters ، فيه 3 سجلات ، وترقيمها يبدأ من الرقم 1 ، وعندنا 6 حقول ، وترقيمها يبدأ من الرقم صفر . هذا الكود به حدث لقراءة Fields وقيمة كل حقل ، وحدث لقراءة السجلات Records : Option Compare Database Option Explicit Dim rst As DAO.Recordset Dim i As Integer Dim RC As Integer Dim RF As Integer Dim j As Integer ' Private Sub cmd_Fields_Click() Set rst = CurrentDb.OpenRecordset("Select * From tbl_Letters") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount RF = rst.Fields.Count 'Records For i = 1 To RC Debug.Print Debug.Print rst!A & vbTab & rst!B & vbTab & rst!C & vbTab & rst!D 'Fields For j = 0 To RF - 1 Debug.Print rst(j).Name & vbTab & rst(j) Next j rst.MoveNext Next i rst.Close: Set rst = Nothing End Sub Private Sub cmd_Records_Click() Set rst = CurrentDb.OpenRecordset("Select * From tbl_Letters") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC Debug.Print rst!A & vbTab & rst!B & vbTab & rst!C & vbTab & rst!D rst.MoveNext Next i rst.Close: Set rst = Nothing End Sub . . نتيجة الزر الاول: a1 b1 c1 d1 a2 c2 d2 a3 b3 d3 . ونتيجة الزر الثاني (انا طلبت طباعة السجلات قبل طباعة اسم الحقل وقيمته) : a1 b1 c1 d1 Auto_ID 1 Auto_Date 26-Dec-17 2:33:22 PM A a1 B b1 C c1 D d1 a2 c2 d2 Auto_ID 2 Auto_Date 26-Dec-17 2:33:26 PM A a2 B C c2 D d2 a3 b3 d3 Auto_ID 3 Auto_Date 26-Dec-17 2:33:31 PM A a3 B b3 C D d3 جعفر 825.Records.mdb.zip -
السلام عليكم اساتذتى الكرام عندى فكرة محتاجة تطوير الطريقة كالتالى انا عندى جدول اسمه Orders وعندى نموذج لصرف الخامات من المخزن قمت بربط النموذج بمحتويات الجدول السابق الاشارة اليه حتى يجبر امين المخزن بصرف الاصناف الموجودة بالطلبية فقط وبالكميات المحددة ايضا عن طريق كود يتم وضعه فى حدث قبل التحديث Before Update مثال للكود if me.item <> Dlookup ("[item]","Orders","id='" & Me.Parent!Combo51 & "'"") then cancel = Msgbox ("الصنف غير موجود فى قائمة الطلبيات") ولكن واجهتنى مشكلتين الاولى اذا كانت الطلبية أكثر من صنف تتم العملية بنجاح فى اختيار الصنف الاول ولكن عند اختيار الصنف الثانى فى الطلبية تظهر رسالة الخطأ المحددة فى الكود وتقول ان الصنف غير موجود بالطلبية ولكنه موجود واظن الخطأ هنا فى تطبيق الفكرة عن طريق Dlook up والمفترض تطبيقها عن طريق Recordset ولكن امكانياتى لا تسمح بتطبيق الفكرة المشكلة الثانية التى واجهتنى اذا قام امين المخزن بصرف صنف واحد من الطلبية تتم العملية بنجاح فى حين انى محتاج صرف الطلبية بالكامل وفى حالة مخالفة ذلك لا يمكن استكمال عملية الصرف ارجو انى اكون اوضحت الفكرة ومنتظر آراء الاساتذة ... دمتم بخير
-
السلام عليكم ورحمة الله وبركاته ... طابت اوقاتكم اخواني الكرام . احاول انشاء مجموعات بحيث يصبح بإمكاني اضافة اكثر من شخص لمجموعة معينة وكذلك الشخص ممكن يكون مضاف بأكثر من مجموعة. الطريقة مشابهه تماما لفكرة انشاء القروبات في تطبيق الواتس اب . المرفق يحتوي على ثلاث جداول .. tbl_contacts وهو جدول جهات الاتصال tbl_FavMain وهو جدول المجموعات . tbl_Favconn وهو جدول الربط بينهما .. يوجد نموذج وحيد ... frm_Groups . ====================== عند فتح النموذج احدد اكثر من اسم واضيفه ويقبل الإضافة .. ولكن عند المحاولة مرة اخرى يرفض . حيث يجب اغلاق النموذج ومن ثم فتحه.... واحيان اخرى لايقبل الإضافة . وهذا هو الكود المستخدم : Dim rs As DAO.Recordset Set rs = Me.RecordsetClone If Not (rs.EOF And rs.BOF) Then Do Until rs.EOF If rs!Cont_Selct = True Then DoCmd.SetWarnings False DoCmd.RunSQL "insert into tbl_favconn (fav_name,cont_id) values('" & Me.txtGroupSrch & "','" & rs!Cont_id & "' )" DoCmd.SetWarnings True rs.Edit rs!Cont_Selct = False rs.Update End If rs.MoveNext Loop MsgBox "done" rs.Close Set rs = Nothing End If End Sub ارجو التجربه ولو فيه اقتراح اخر وشكرا مقدما . Groups.rar
