#1  
قديم 17-06-2009, 02:48 PM
VIP
رقم العضوية: 7402
تاريخ التسجيل: Mar 2004
المشاركات: 2,254
الإقامة: Egypt
تلقى دعوات الى: 2172 موضوع
إعجاب: 867
تلقى 1,890 إعجاب على 321 مشاركة
تلقى دعوات الى: 2172 موضوع
مستوى التقييم: 76
وسام الحضور المميز:  - السبب: حضور مميز بالطرح لكل ما هو جديد و تفاعل مع المواضيع و مشاركة الأعضاء الخبره و مساعدة من يحتاجها
الصورة الرمزية أحمد العيسى
فى الأكسس:مطلوب كود يحذف عدة سجلات محددة غير متتالية دفعة واحدة



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


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

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

يوجد فى قاعدة بياناتى نموذج "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




المواضيع المشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
نسخ الخطوط دفعة واحدة نصر الإيمان ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio 17 30-01-2018 06:48 PM
نسخ عدة اقراص USB flash دفعة واحدة barhoum برامج 4 08-03-2017 03:36 AM
سحب الكتب من المواقع دفعة واحدة أبو هند برامج 1 31-07-2016 12:16 AM
نقل ملف الى عدة مجلدات دفعة واحدة ؟؟؟ فهمي كاظم صيانة الكمبيوتر وحلول الحاسب الألي - هاردوير 4 17-10-2014 02:47 PM
مطلوب برنامج أبلود للرفع على الرابيد تحديدا لمجموعة ملفات دفعة واحدة الوثاب برامج 7 19-08-2009 09:21 AM
  #2  
قديم 29-06-2009, 03:53 PM
عضو فعال
رقم العضوية: 292249
تاريخ التسجيل: Jun 2009
المشاركات: 38
تلقى دعوات الى: 0 موضوع
إعجاب: 42
تلقى 5 إعجاب على 4 مشاركة
تلقى دعوات الى: 0 موضوع
مستوى التقييم: 0
الصورة الرمزية A_Rashed



تـفضل أخى:

كود:
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

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.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.
DamasGate English