HaniMoursi

لم ينجح معي الامر في الحالتين وجربت كثيرا علما بأن النموذج الفرعى نوع (Datasheet) شكرا لمرورك الكريم لكن نوع النموذج Datasheet

سؤال هل كود تمكين او عدم تمكين حقل معين بالنموذج الفرعى بناءا على اختيار قيمه بالنموذج الرئيسي هيكون بهذا الشكل Me.SubForm.Form!Me.FieldName.Enabled = False ارجو الافاده

شكرا جزيلا على مروركم الكريم

انا بصدد انشاء برنامج محاسبي لطباعة سندات الصرف والقبض والقيد ومن ثم عمل تقرير الايرادات والمصروفات إلخ وكنت بسأل اهل الخبره هل اعمل جدول رئيسي وجدول فرعي لكل (سند) ام جدول رئيسي وجدول فرعي لكل السندات واذا كان لدى احدكم اي مقترح فأرجوا إفادتي وشكرا جزيلا لكم

ياسلام على الفن تسلم يااستاذنا الكريم هذا هو المطلوب اشكرك جدا جدا

اخي الكريم ابوجودى شكرا جزيلا على مرورك الكريم برقم الــ ID الحالى الذي اخذه الكتاب عند ادخاله في النموذج

لقد جربت التعديل وبالفعل ظهرت النسخه في الفولدر المطلوب ولكن مع النسخه بيعمل ملف جديد مع كل نسخه وانا احتاج النسخه بدون فولدر جديد مرفق صوره

تسلم ربنا يعزك تمام

لم ينجح الامر فهل الامر متعلق بالاوفيس فأنا بشتغل على اكسس 2007

بالفعل يتم عمل الاضافه لكن كما هو موضح بالصوره 2 بيعمل لي فولدر جديد برقم ID وبيكون فارغ وانا لا احتاج فولدر احتاج المرفق نفسه ينسخ داخل pdfFolder

بعد معالجة الـــ Moduled فعندما اقوم بالضغط على زر اضافه بيعمل لي ملف فولدر جديد داخل فولدر pdfFolder وما احتاجه عمل نسخه من المرفق داخل فولدر pdfFolder مرفق البرنامج للتوضيح بعد تعديله نسخه من مرفق.zip

شكرا جزيلا اخي جعفر فبعد مراجعة موضوعك رجعت الى الــــ Moduled وقمت بحذف كملة PtrSafe وزر الاضافه يعمل طبيعى جدا الآن Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _ "SHGetPathFromIDListA" (ByVal pidl As Long, _ ByVal pszPath As String) As Long Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _ "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _ As Long Private Const BIF_RETURNONLYFSDIRS = &H1 Declare Function aht_apiGetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean Declare Function aht_apiGetSaveFileName Lib "comdlg32.dll" _ Alias "GetSaveFileNameA" (OFN As tagOPENFILENAME) As Boolean Declare Function CommDlgExtendedError Lib "comdlg.dll" () As Long Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

عند الضغط على اضافه مرفق تظهر هذه الرساله علما بأنني اعمل على اكسس 2007

شكرا جدا اخي موسى لمرورك الكريم لقد اخذت المثال بالفعل وتعاملت معه لكن يبقى عملية تخزين المسار ما احتاجه هو بعد اختيار المرفق يقوم زر الاضافه بعمل نسخه من المرفق ووضعه في ملف pdfFolder برقم ID وعند المعاينه يفتح هذا المرفق الذي اخذت منه نسخه في مساره الجديد

صدقت استاذنا الفاضل وانا بعتذر لذلك اما بالنسبه للبرنامج فأنا بحمله مره اخرى ومرفق معه ملف pdf المطلوب عندما اختار هذا الملف من زر اضافه يقوم الكود بعمل نسخه اخرى للمرفق ووضعه في ملف pdfFolder برقم الـــ ID الموجود بالنموذج نسخه من مرفق.zip

استاذتنا الأفاضل اسعد الله اوقاتكم بكل خير ارجو المساعده بالمثال المرفق عندى زر اضافه مرفق وزر معاينه ويوجد بهم اكواد الاضافه والمعاينه وايضا الــ Module المشكله تتلخص بالتالي 1- الــ Module d يوجد به خطأ ولا يعمل على اكسس 2007 2- زر المعاينه المفروض يقوم باخذ نسخه من المرفق الذى تم اختياره ووضعه في ملف اسمه pdfFolder برقم الــ ID لكن عند الضغط عليه بيعمل ملف جديد برقم الــ ID 3- زر الاضافه لا يعمل بالشكل الصحيح لسبب الخطأ الموجود بالــ Module نسخه من مرفق.zip

استاذنا ابوخليل في ملاحظه بسيطه وهي كالتالي عندما اضغط لإختيار مرفق وكل شيئ بيكون تمام لكن في حال الإلغاء ولم اختار المرفق تظهر هذه الرساله وايضا عند فتح المرفق تظهر رسائل تحذيريه كما هو موضح بالصوره المرفقه ايضا مع العلم عند اختيار ok المرفق يفتح طبيعي

تسلم يدك استاذنا الفاضل 😍

كما في الصوره لا اريد اظهار الجزء الذي بالوان الاسود في المسار

اهلين اخي الكريم بوخليل هل كود الاضافه هيكون بهذا الشكل Private Sub CmdView_Click() Dim a a = Choose_File(FolderPath(Nz(Me.LetterLink, ""))) If Nz(a, "") <> "" Then Me.LetterLink = Right(a, Len(a) - InStrRev(a, "\")) Dim i, ii Call werfolder i = Right(Me.LetterLink, Len(Me.LetterLink) - InStrRev(Me.LetterLink, "\")) ii = CurrentProject.path & "\" & getfldr2 & "\" & getfldr1 & "\" & i plink = ii DoCmd.SetWarnings False End Sub Sub werfolder() Dim fileName As String fileName = Me.LetterLink Dim vPathSplitter As Variant vPathSplitter = Split(fileName, "\") getfldr1 = (vPathSplitter(UBound(vPathSplitter) - 1)) getfldr2 = (vPathSplitter(UBound(vPathSplitter) - 2)) End Sub

اخي الكريم جعفر هل بالإمكان + اسم الملف اضيف اسم الفولدر الموجود في وهناك مرفق اوصل له بعد 2 او 3 ملفات مع العلم لا احتاج المسار بالكامل

المحترم استاذنا الفاضل ابوخليل ربنا يعزك متشكر جدا جدا وعندي سؤال انا بعرف شويا بالبرمجه وبقوم بعمل بعض البرامج لكن كيف اتعلم وهل هناك كتب او مواقع او معاهد لتعليم البرمجه تنصحنى بها المحترم اخى المهندس جعفر شكرا جدا جدا لمرورك الكريم

ارجو المساعده بالمثال المرفق عندى زر اضافه عندما اضغط عليه يفتح لى نافذه لاختيار المرفق المطلوب ويظهر مسار المرفق في مربع النص AttachmentPath كل ما احتاجه عند الضغط على زر الاضافه يضيف في مربع النص AttachmentPath اسم المرفق مع الصيغه سوء pdf أو jpg الخ فقط وليس المسار تحديد اسم المرفق فقط.zip

اولا شكرا جزيلا على مرورك الكريم لكن انا بشتغل على اكسس 2007 والبرنامج في كود مهم احتاجه وعندما احاول فتحه تظهر الرساله المرفقه كماهو موضح بالصوره