moham_q قام بنشر يونيو 26, 2015 قام بنشر يونيو 26, 2015 السلام عليكم الاخوة في المنتدى ... لدي جدول يحوي اسماء موظفين و اود ترحيل تاريخ اجازاتهم في الجدول من خلال فورم وحفظ تواريخ الاجازات في الجدول علما اني اضفت كومبوبوكس يحوي اسماء الموظفين في الفورم لاقوم بادخال تاريخ الاجازة لذلك الموظف الذي تم اختياره من الكومبوبوكس
Elsayed Bn Gemy قام بنشر يونيو 27, 2015 قام بنشر يونيو 27, 2015 اخى الكريم اادرج مرفقا ولو كمثال ليتسنى للاخوة التعديل عليه عموما هذا هو الكود 'تعديل سجل موجود فى جدول If MsgBox("هل تريد تعديل السجل" & vbCrLf & "", vbYesNo, " تعديل") = vbYes Then Dim Rs As DAO.Recordset 'اسم الجدول Set Rs = CurrentDb.OpenRecordset("Table1") 'البحث عن السجل المعدل Rs.MoveFirst Do Until Rs.EOF 'اذا وجد السجل If Rs!Employ = Employ Then 'تحريره Rs.Edit Rs!DateOfHoly = Text1 Rs.Update End If Rs.MoveNext Loop End If Set Rs = Nothing وهذا مرفق للتوضيح تعديل سجلات.rar 1
moham_q قام بنشر يونيو 27, 2015 الكاتب قام بنشر يونيو 27, 2015 الاخ مارد المحترم ... مشاركتك بالموضوع اكثر من رائعة وقد افت بالغرض واختصرت علي الكثير من الوقت جزاك الله خيرا وبالذات خاصية املاء حقل التأريخ كان مهم جدا .... ولكن يوجد سؤال هل بالامكان جعل التأريخ المأخوذ من الجدول يكون في التقرير الذي سوف اطبعه يظهر بالشكل التالي .. يوم - شهر - سنة كمثال على ذلك 01-01-2015 ... وليس عكس ماظهر لدي بالتقرير 2015-01-01 مع جزيل شكري وامتناني الكبير لك .. تحياتي
at_aziz قام بنشر يونيو 28, 2015 قام بنشر يونيو 28, 2015 بارك الله فيك اخي مارد حقيقه مثال رائع جدا ومفيد اخي انا جرب المثال على حقل رقم id استبدلت السطر اللي فيه اسم مربع القائمه بمربع نص If Rs!Employ = Employ Then الى السطر التالي If Rs!id = id Then لكن ماضبط معي مايقبل الا اذا كان الحق نصي هل بالامكان نحول السطر الى حقل رقمي لكي يقبل وفقك الله ورعاك
Elsayed Bn Gemy قام بنشر يونيو 28, 2015 قام بنشر يونيو 28, 2015 الاخ مارد المحترم ... مشاركتك بالموضوع اكثر من رائعة وقد افت بالغرض واختصرت علي الكثير من الوقت جزاك الله خيرا وبالذات خاصية املاء حقل التأريخ كان مهم جدا .... ولكن يوجد سؤال هل بالامكان جعل التأريخ المأخوذ من الجدول يكون في التقرير الذي سوف اطبعه يظهر بالشكل التالي .. يوم - شهر - سنة كمثال على ذلك 01-01-2015 ... وليس عكس ماظهر لدي بالتقرير 2015-01-01 مع جزيل شكري وامتناني الكبير لك .. تحياتي اخى الكريم انظر الى هذا الموضوع فيه ما تريد http://www.officena.net/ib/index.php?showtopic=59126
Elsayed Bn Gemy قام بنشر يونيو 28, 2015 قام بنشر يونيو 28, 2015 بارك الله فيك اخي مارد حقيقه مثال رائع جدا ومفيد اخي انا جرب المثال على حقل رقم id استبدلت السطر اللي فيه اسم مربع القائمه بمربع نص If Rs!Employ = Employ Then الى السطر التالي If Rs!id = id Then لكن ماضبط معي مايقبل الا اذا كان الحق نصي هل بالامكان نحول السطر الى حقل رقمي لكي يقبل وفقك الله ورعاك اخى الكريم تفضل هذا هو الكود Private Sub id_AfterUpdate() 'تعديل سجل موجود بالجدول If MsgBox("هل تريد تعديل السجل الحالى" & vbCrLf & "", vbYesNo, " تعديل") = vbYes Then Dim Rs As DAO.Recordset Dim Rs_search As String 'اسم الجدول Set Rs = CurrentDb.OpenRecordset("table1", dbOpenDynaset) 'البحث بالرقم المدخل فى مربع النص Rs_search = "[id] =" & id Rs.FindFirst (Rs_search) If Rs.NoMatch Then MsgBox "عفوا لا يوجد سجل" Cancel = True Else Set Rs = CurrentDb.OpenRecordset("Table1") 'البحث عن السجل المعدل Rs.MoveFirst Do Until Rs.EOF 'تحريره Rs.Edit Rs!DateOfHoly = Text1 Rs.Update Rs.MoveNext Loop End If End If Set Rs = Nothing End Sub تحياتى
moham_q قام بنشر يونيو 28, 2015 الكاتب قام بنشر يونيو 28, 2015 الاخ مارد المحترم ... شكرااا للتوضيح والمشاركة الرائعة ... تحياتي لك 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.