نجوم المشاركات

ولكن الظاهر في الفيديو هو الدخول للبرنامج لنفترض ان المرفق قاعدة بيانات اكسس حقيقية ، وليست مجرد تسمية امتداد .. لانه كل ملف تضع له امتداد اي تطبيق تظهر صورة التطبيق على الملف اولا .. الملف تالف لا يوجد به كائنات الكلمة الصحيحة الوحيدة التي تم العثور عليها هي Standard Jet DB ...................................................................... ولكن هذا ليس محل نقاشنا انت تتكلم في الفيديو عن كسر حماية الدخول للبرنامج في قاعدة بيانات اكسس accdb وانه لا يمكن استيراد الكائنات الا بعد الكسر فالمفترض انك تضع مثالك الذي عرضته في الفيديو قبل معالجته وكسره .. لنحاول معك الاستيراد بدون وسيط

الدخول الى قاعدة البيانات

الف شكر تعبتك جدا ربنا يحفظ ويزيدك علم

اخي الكريم .. الرقم السري في الدخول على قاعدة البيانات ام الدخول للبرنامج

عليكم السلام مرحبا اخي عبداللطيف عندي ملاحظات واستفسارات : 1- المعروف عندنا ان الملف accdb يمكن التعامل معه من دون برامج خارجية .. يعني نستورد منه سواء مفعل الشيفت او لا .. وسواء كان الدخول للواجهات برقم سري ام لا ... (فقط استثني من كلامي هذا لو تم عمل كلمة مرور لقاعدة البيانات) هل جربت جلب واستيراد الكائنات من ملفك الى قاعدة جديدة قبل استخدام البرنامج الوسيط ؟ 2- بعد رؤيتي للفيديو ما فائدة البرنامج الوسيط .. وما الفائدة من الملف المستخرج؟ .. او السؤال بعبارة اخرى .. ما التغيير الذي اجراه البرنامج الوسيط على قاعدة البيانات بعد تغيير الحرف؟ واين مكان هذا التغيير

حضرتك تقدر تعمل قائمه متعدده الاختيارات فى نموذج تقدر من خلالها تحدد الفواتير اللي تريد طباعتها وتعمل كود ينشألك تقرير بالفواتير المحتاره فقط تقدر حضرتك تبعت مثال وان شاء الله نعدلك عليه

العفو تحت امرك انا معملتش حاجه

لو المرفق موجود كان ممكن اساعدك لأن نظري تعب جداً بالمشاركة السابقة . سامحيني ابنتي .

تفضلي استاذة @safaa salem5 حسب مافهمت هذه تجربتي .ووافيني بالرد . DDTest602.rar

الكود بطريقة اخرى مع الشرح لتتمكن من تعديله بما يناسبك Public Sub CopyData2() Dim rCrit() As String: ReDim rCrit(1 To 2): Const SrcRow = "EA" Dim x&, i&, Cnt&, arr&, lr&, lastRow&, Cpt As Long Dim Search_Row As Long, Star_Row As Long, Col As Range Dim rngA As Variant, rngB As Variant, OneRng As Range Dim WS As Worksheet: Set WS = Sheets("cheet4") Dim srcWS As Worksheet: Set srcWS = Sheets("شيت الدور الثاني صف رابع ") ' تحديد صف البداية Star_Row = 16: ' عمود الفلترة Search_Row = 131 'تحديد صف وضع البيانات المرحلة Cnt = 10 With Application .ScreenUpdating = False .Calculation = xlManual lastRow = WS.Range(SrcRow & WS.Rows.Count).End(xlUp).Row lr = srcWS.Columns("C:AP").Find(What:="*", _ SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row 'معايير الفلترة rCrit(1) = "غ": rCrit(2) = "*" & "دور ثان" & "*" 'الاعمدة المرحلة rngA = Array(3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, _ 28, 40, 52, 64, 76, 88, 100, 112, 116, Search_Row) 'الاعمدة المرحل اليها rngB = Array(3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, _ 15, 18, 21, 24, 27, 30, 33, 36, 39, 42) '("EA")'التحقق من وجود المعايير على عمود arr = Application.Sum _ (Application.IfError(Application.Match(rCrit, WS.Columns(Search_Row), 0), 0)) If arr = 0 Then: MsgBox " المرجوا التحقق من صحة المعايير ", _ vbCritical, "انتباه": Exit Sub 'افراغ البيانات السابقة For x = 0 To UBound(rngB) Set Col = srcWS.Range(srcWS.Cells(Cnt, rngB(x)), srcWS.Cells(lr, rngB(x))) Col.ClearContents Next x With WS If .AutoFilterMode Then .AutoFilterMode = False ' تحديد نطاق البيانات With WS.Range("C15:EA15") .AutoFilter Search_Row - 2, rCrit, xlFilterValues ' نسخ الاعمدة المرئية For i = 0 To UBound(rngA) Set OneRng = WS.Range(WS.Cells(Star_Row, _ rngA(i)), WS.Cells(lastRow, rngA(i))).SpecialCells(xlCellTypeVisible) OneRng.Copy 'لصق البيانات srcWS.Cells(Cnt, rngB(i)).PasteSpecial Paste:=xlPasteValuesAndNumberFormats Next i .AutoFilter End With End With .CutCopyMode = False .Calculation = xlAutomatic .ScreenUpdating = True End With End Sub SAAD V3.xlsm

السلام عليكم ورحمه الله وبركاته هتغير طريقه عرض التقرير للعرض العادى بعدها هتعمل زرار فالتقرير مبيظهرش غير فالعرض فقط وتحط فيه الكود التالى Dim db As DAO.Database Dim rs As DAO.Recordset Dim sql As String Set db = CurrentDb sql = "SELECT * FROM [كشف مناداه - التقييم المعرفي]" Set rs = db.OpenRecordset(sql, dbOpenDynaset) Do While Not rs.EOF If rs![ملاحظات] = "مؤجل ملف الإنجاز و المهمة" Then rs.Edit rs![ملاحظات] = "يؤدى اختبار الجدارات الأساسية فقط و يؤجل التقييم النهائى للجدارات الفنية لحين استكمال اجتياز وحدات البرنامج" rs.Update ElseIf rs![ملاحظات] = "لا يحق" Then rs.Edit rs![ملاحظات] = "يؤدى اختبار الجدارات الأساسية فقط و لا يحق له التقييم النهائى للجدارات الفنية" rs.Update End If rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing DoCmd.OpenReport "التقييم المعرفي", acViewPreview وده المثال اللي تم التعديل عليه draz_example.accdb