kanory

خطأ لأنك تحتاجها في عميليات اخرى ... مثل الجرد نقل عهده ... الخ ..

السبب عدم تحديد مصدر لبياباتها في الجدول أو الاستعلام ..... اجعل لها حقل لتسجيل بياناتها ....

لم افهم عليك بالنسبة للطلب الاول .... اذا تم اخفائها فيتم اخفائها في النموذج الرئيسي والفرعي معا ..... وعند الاظهار يظهرها جميعا دفعة واحد ... هل هذا هو المطلوب ؟؟؟؟؟ اما المطلوب الثاني .... فستخدم هذا الكود .... Dim X$ Dim dirr As String Dim i As String i = Nz(Me.k_code, 0) dirr = CurrentProject.Path & "\files\" & i & ".tif" X$ = Dir$(dirr) If X$ = "" Then MsgBox "It does Not exist!", vbExclamation, "Doesn't Exist" Else ShellExecute Me.hwnd, "open", dirr, "", "", 1 End If

استخدم هذا البرنامج

انظر الصورة ::::: - استخدم هذا الكود في الحدث الموضح في الصورة - يجب ان يكون النموذج مفتوحا ليعمل If Me.tab.Value = Time() Then PlaySound (Application.CurrentProject.Path & "\tab.wav") End If

لاننا لسنا محترفين يجب عليك تزويدنا بمثال لنفهم ما تريد ..... على كل حال هذا الكود يقوم بالمطلوب .... On Error Resume Next Dim db As DAO.Database Dim rs As DAO.Recordset Dim x, z As String Set rs = CurrentDb.OpenRecordset("Table") If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) x = rs!key rs.Edit rs!PicPath2 = Application.CurrentProject.Path & "\" & "Pictures" & "\" & x rs.Update rs.MoveNext Wend End If rs.Close Set rs = Nothing DoCmd.Requery MsgBox "تم التعديل"

جرب المرفق ..... ملف.accdb

Sub CreateFolder() Dim folderPath As String folderPath = "C:\Users\UserName\Desktop\NewFolder" If Dir(folderPath, vbDirectory) = "" Then MkDir folderPath MsgBox "Folder created successfully!" Else MsgBox "Folder already exists!" End If End Sub

البرنامج شغال وما في مشكلة انظر <><><><<>

في المثال عبارة عن ترجمة اسماء ....... هل ملفك الاساسي هو ترجمة ام هذا مجرد مثال فقط .....

ليش ما يكون عن طريق ربط الجدولين بعلاقة ثم عمل استعلام لها ..... انظر او استخدم طريقة موضوعك السابق ............................

استخدم هذه الشيفرة اخي @محمد احمد لطفى Forms![TEST1]![Date_M] = Null Forms![TEST1]![NumberEnd] = Null If MsgBox("هل تريد اعادة البيانات", vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then Forms![TEST1].Undo End If

تفضل <><><><><><<>< Database15 (1).accdb

تلصق الكود في النموذج وتعدل البيانات المشروحة في الكود السابق حسب بيانات جدولك ثم تحت حدث الزر تضع هذا النداء Call macro1 او ارفق مثال مبسط للتعديل عليه

استخدم هذه الشيفرة ............. Sub Macro1() Dim startNumber As Long Dim endNumber As Long Dim prefix As String Dim rs As DAO.Recordset prefix = "someprefix" 'change this to your desired prefix startNumber = Me.txtStartNumber.Value 'get the start number from the text box on the form Set rs = CurrentDb.OpenRecordset("SELECT * FROM YourOriginalTable ORDER BY SomeColumn") 'open a recordset of your original table If Not rs.EOF Then 'check if the recordset is not empty rs.MoveFirst 'move to the first record Do Until rs.EOF 'loop through the records rs.Edit 'edit the current record rs!SeqNumber = prefix & Format(startNumber, "0000") 'assign the sequential number with prefix and format to the SeqNumber field rs.Update 'update the current record startNumber = startNumber + 1 'increment the start number by 1 rs.MoveNext 'move to the next record Loop End If rs.Close 'close the recordset Set rs = Nothing 'clear the recordset variable End Sub

وعليكم السلام ورحمة الله وبركاته أخي ابا احمد لم توضح المطلوب تحديدا ..................... هل تريد عرض السجلات بشكل صفحات متتالية مثلا مثل الصوره ... بحيث عند الضغط على التالي تظهر المجموعة التالية مثل صفحات الويب مثلا ..

طيب وقف صائد الاخطاء في الفانك السابق لتتعرف على اسطر الخطأ في الكود ... واعلمني بسطر الخطأ ماهو ؟؟

طيب جرب المرفق ::::::::::::::::::: افتح الفورم frm_kanory طبعا لم ارحل ولا سنه .... فلذلك عند الضغط على رز السنوات الماضية تجد النموذج فارغ ..... الان اختر مثلا عام 2008 ثم اضغط على ترحيل سوف يتم ترحيل هذا العام ولا يمكن ان ترى هذه السنه الا بعد الضغط على السنوات الماضية وهكذا لجميع الاعوام ... جرب واعلمنا بالنتيجة <<<<<<< ‏‏ورشة عمل1.rar

طيب اذا لم يسبقني لها احد الاخوة ... انت تعلم الايام الاخيرة من رمضان ...

جرب هذا الحل وعلمنا بالنتيجة تفضل من هنا

اذن انت تريد ::::: الحاق عمليات السنة المختارة في جدول ثم حذف تلك العمليات من الجدول الاساسي ( صحيح ) اذا كان كذلك يمكن عمل ذلك بعدة طرق :::: - اذكر منها وهي عمل جدول خاص للترحيل - عمل استعلام الحاق بالسنة المختارة - عمل استعلام حذف بعد الالحاق - طريقة اخرى اضافة حقل جديد للجدول الاساسي اما شيك بوكس او حقل يكتب فيه مرحل مثلا ( فند الضغط على ترحيل يتم اما كتابة عبارة مرحل أو يتم التأشير على الشيك بوكس بحيث ان هذه العمليات لا تظهر مرة اخرى في النموذج الاساسي ويمكن اظهارها في نموذج اخر لعمليات جرد مثلا ...

استخدم جرب المرفق في الموضوع اعلاه

طيب استاذي الفاضل في المديول وتحت الفانك Public Function federsacan تجد هذا السطر الخاص باعدادات الصورة المسحوبة اعمل ايقاف هذا السطر ...............

اخي @Ahmed_J ماهي الرسالة التى تصدر عند سحبك للفيدر ؟؟؟ والبرنامج المدرج من الاخ @Eng.Qassim يعمل .

نعم كلامك صحيح .... لاحظت ذلك لكن حل مؤقت ... جاري البحث عن طريقة اخرى ... اذا تمت اضيفها في الموضوع ان شاء الله