أستغفر الله العظيم ... سبحان الله وبحمده



العودة   منتديات داماس > منتدى البرمجة العام > لغات البرمجة


مواضيع مميزة  


آخر عشرة مواضيع المواضيع النشطة


17-06-2009, 02:48 PM
أحمد العيسى غير متصل
VIP
رقم العضوية: 7402
تاريخ التسجيل: Mar 2004
الإقامة: Egypt
المشاركات: 2,240
إعجاب: 856
تلقى 1,875 إعجاب على 315 مشاركة
تلقى دعوات الى: 2116 موضوع
    #1  

فى الأكسس:مطلوب كود يحذف عدة سجلات محددة غير متتالية دفعة واحدة


فى الأكسس:مطلوب كود يحذف عدة سجلات محددة غير متتالية دفعة واحدة

لنجرب هذا القسم فى حل مشكلة لم يرد عليها إلى الآن المنتديات المتخصصة فى هذا المجال

يوجد فى قاعدة بياناتى نموذج "frm_OnlyYou" يحتوى على مربع اختيار مبنى على حقل"onlyyou"يمكن من خلاله تحديد أو عدم تحديد السجلات المرغوبة ، استخدمه فى عرض السجلات بتقرير منفصل الذى يحمل الأسم "تقرير_الأرقام" ويمكن طباعة محتوياته
المطلوب تكرماً تعديل هذا الكود ليقوم بحذف تلك السجلات بعد عرض رسالة تحذير بدلاً من تصديرها لتقرير ، وإذا لم يتضح طلبى سأرفق لكم البرنامج نفسه .. ولكم منى جزيل شكرى
الكود المطلوب تعديله :
Private Sub VPrint_Click()
   If Me.rrr = 0 Then
    MsgBox "يجب أن تختار اسم واحد على الأقل", vbInformation, "الأختيار"
   Exit Sub
   End If
   
   Me.Refresh
   DoCmd.OpenReport "تقرير_الأرقام", acPreview, "", "onlyyou=true"
   Form_frm_OnlyYou.Visible = False
 End Sub





المواضيع المشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
طلب برنامج تحويل ملفات DGN إلى PDF دفعة واحدة visual studio التطبيقات الهندسية 15 09-02-2016 09:31 PM
نقل ملف الى عدة مجلدات دفعة واحدة ؟؟؟ فهمي كاظم صيانة الكمبيوتر وحلول الحاسب الألي - هاردوير 4 17-10-2014 02:47 PM
مطلوب برنامج أبلود للرفع على الرابيد تحديدا لمجموعة ملفات دفعة واحدة الوثاب برامج 7 19-08-2009 09:21 AM
سلسلة تعليم 3D MAX الإكستاندد 13 درس دفعة واحدة الوميض الازرق كورسات عربية 6 28-04-2005 02:14 AM
Savepicnoask Pro V2.1.11 لحفظ صور الصفحة دفعة واحدة مهندس أحمد برامج 1 31-03-2004 02:11 AM
29-06-2009, 03:53 PM
A_Rashed غير متصل
عضو فعال
رقم العضوية: 292249
تاريخ التسجيل: Jun 2009
المشاركات: 37
إعجاب: 41
تلقى 4 إعجاب على 3 مشاركة
تلقى دعوات الى: 0 موضوع
    #2  
تـفضل أخى:

Private Sub DelRecords_Click()
   If Me.rrr = 0 Then
    MsgBox "يجب أن تختار أسم واحد على الأقل", vbInformation, "الاختيار"
   Exit Sub
   End If

On Error GoTo Err_DelRecords_Click
   If MsgBox("ستقوم الآن بحذف السجلات المحددة " & vbCrLf _
   & "" & vbCrLf _
   & " " & vbCrLf _
   & "هل أنت متأكد ؟" & vbCrLf _
   & "إضغط (نعم) للإستمرار أو ( لا) لإلغاء الأمر", vbQuestion + vbYesNo _
   + vbMsgBoxRight + vbMsgBoxRtlReading, "تحذير") = vbYes Then
 
 Dim strName As String
 DoCmd.SetWarnings False
 DoCmd.RunSQL ("Delete From tbl_Tel Where tbl_Tel.OnlyYou = True;")
 Me.Refresh
 
 strName = Me.Name
 DoCmd.Close acForm, strName
 DoCmd.OpenForm strName
 
End If
Exit_DelRecords_Click:
Exit Sub

Err_DelRecords_Click:
    MsgBox Err.Description
    Resume Exit_DelRecords_Click
End Sub


 


فى الأكسس:مطلوب كود يحذف عدة سجلات محددة غير متتالية دفعة واحدة

English

Powered by vBulletin® Version
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
The owner and operator of the site is not responsible for the availability of, or any content provided.
Topics that are written in the site reflect the opinion of the author.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.