الاقسام

وعليكم السلام ورحمة الله وبركاته .. أخي بلال أنت عضو فضي ( نتمنى لك المزيد من الدرجات  ) ، وما زلت - متأسفاً منك - لا تهتم لأي ملاحظات يتم طرحها خلال المشاركات أو قوانين المنتدى . العنوان :- نكتشف أن مقصده ومعناه مختلف عما تريده أنت . الشرح :- تبخل على أخوانك في المنتدى بالشرح وتكتفي بكلمات لا تتعدى أصابع اليد . إرفاق ملف :- برأيك هل الصورة و 8 كلمات كافيات لتوصيل ما تفكر به لمن يقرأ الموضوع دون ارفاق ملف !!! شكراً لك على رحابة صدرك مراراً وتكراراً في تقبل الملاحظات التي ليس لها هدف إلا أن تحظى بطريق سليم لتوصيل معلومتك

السلام عليكم اريد فتح التقرير عن طريق البدياف داخل النموذج اليكم الشرح

السلام عليكم ورحمة الله وبركاته اريد مساعدتك في انشاء استعلام Formulaire  لقد وجهت صعوبة في إنشاءه لذا أرجوا من الإخوة الكرام مساعدتي     med.rar

1.      النموذج الفرعي المسمى  dm_b  هوه نموذج عمل تحضير مؤقت ويأخذ بياناته من جدول subcar_b  وجدول subcar_b   ياخذ بياناته من جدول cars /   بعد التحديث من خانة xc  / حساب الايراد 2.      عند الضغط على زر حفظ .. يعمل النموذج الفرعي على اللحاق  البيانات الموجود به الى جدول recept   و enar_dman 3.      بعد الالحاق الى الجدولين يقوم نموذج   الفرعي dm_b  بحذف سجلاته عند اغلاق النموذج   4.      وأخيرا النموذج الفرعي المسمى m_a  هوه يعرض السجلات الخاصه به عند البحث في خانة ek ملاحظه : النموذج يعمل بشكل جيد ولكن عند تغيير التاريخ بعد عدد من السجلات  واعادة تغيير التاريخ  يحصل الخطاء  New Microsoft Access Database - Copy.accdb

كفكرة خطرت ببالي وقد حدثتها الى ما يلي :- أن تكون الدالة عامة شاملة ويمكن استخدامها في أكثر من موضع أو جدول أو حقل أو سجل أو حتى عدد مرفقات . بحيث جعلتها تقبل استقبال اسم الجدول ، واسم حقل المرفقات ، واسم حقل لتحديد السجل ، ومربع النص = تحديد اي سجل ، ورقم المرفق لو كان الحقل متعدد المرفقات .  فآكسيس يتعامل مع أول مرفق كقيمة تسلسلية = 0 ( كما هو الحال في الأعمدة داخل الكومبوبوكس مثلاً أو الليست بوكس ) . لذا حدّثتها لتكون بهذا الشكل :- Public Sub OpenSpecificAttachment(ByVal TableName As String, _ ByVal AttachmentField As String, _ ByVal PKFieldName As String, _ ByVal RecordID As Long, _ Optional ByVal AttachmentIndex As Integer = 0) Dim rs As DAO.Recordset Dim rst As DAO.Recordset2 Dim filePath As String Dim cachePath As String Dim subFolder As String cachePath = Environ("LOCALAPPDATA") & "\Microsoft\Windows\INetCache\" Randomize subFolder = "Foksh" & Int((9999 * Rnd) + 1) If Dir(cachePath & subFolder, vbDirectory) = "" Then MkDir cachePath & subFolder CreatedFolders.Add cachePath & subFolder End If Set rs = CurrentDb.OpenRecordset("SELECT " & AttachmentField & " FROM " & TableName & _ " WHERE " & PKFieldName & "=" & RecordID) Set rst = rs.Fields(AttachmentField).Value If AttachmentIndex > 0 Then rst.Move AttachmentIndex Else rst.MoveFirst End If If Not rst.EOF Then filePath = cachePath & subFolder & "\" & rst.Fields("FileName").Value If Dir(filePath) = "" Then rst.Fields("FileData").SaveToFile filePath End If FollowHyperlink filePath End If rst.Close: Set rst = Nothing rs.Close: Set rs = Nothing End Sub بحيث تم تمرير باراميتر افتراضي القيمة للمرفق الأول لسهولة الإستدعاء ، حيث سيكون الإستدعاء متعدد الأشكال كما يلي :- Call OpenSpecificAttachment("tblEnDc", "progIcon", "ID", Me.ID) 'المرفق الأول أو الوحيد Call OpenSpecificAttachment("tblEnDc", "progIcon", "ID", Me.ID, 0) ' المرفق الأول أو الوحيد أيضاً Call OpenSpecificAttachment("tblEnDc", "progIcon", "ID", Me.ID, 1) ' المرفق الثاني اذا كان عدد المرفقات أكثر من واحد Call OpenSpecificAttachment("tblEnDc", "progIcon", "ID", Me.ID, 2) ' المرفق الثالث اذا كان عدد المرفقات أكثر من واحد     وعند الخروج من النموذج ، ولحذف المجلد بشكل آمن ، قمت بجعل الدالة التي تفتح المرفق تقوم بتسجيل اسم المجلد الذي أنشأته في قائمة ( Collection ) . وعند إغلاق النموذج ، تمر على هذه القائمة فقط وتحذف المجلدات التي أنشأناها عند استعراض المرفقات . حيث تم تعريف المتغير التالي في أول المديول :- Public CreatedFolders As New Collection وإضافة الدالة التالية التي تقوم على حذف المجلد بما يحتويه :- Public Sub SafeDeleteFolder(ByVal folderPath As String) Dim f As String On Error Resume Next f = Dir(folderPath & "\*.*", vbNormal) Do While f <> "" Kill folderPath & "\" & f f = Dir Loop RmDir folderPath End Sub وبالتالي عند إغلاق النموذج ، تم استخدام الكود التالي لتمرير الحذف للمجلدات :- Private Sub Form_Close() Dim folderPath As Variant On Error Resume Next For Each folderPath In CreatedFolders Call SafeDeleteFolder(folderPath) Next Set CreatedFolders = Nothing End Sub   ليصبح المرفق كالتالي كاملاً متكاملاً :- DbTest.zip