-
Posts
2356 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
139
kanory last won the day on نوفمبر 11
kanory had the most liked content!
السمعه بالموقع
4259 Excellentعن العضو kanory

البيانات الشخصية
-
Gender (Ar)
ذكر
-
Job Title
معلم
اخر الزوار
9104 زياره للملف الشخصي
-
: "أذهب البأس رب الناس، اشف أنت الشافي، لا شفاء إلا شفاؤك، شفاءً لا يغادر سقما اللهم اشف اخانا قاسم ووالدته وجميع مرضى المسلمين
-
هل هذه الفكرة هي المطلوبة بالنسبة للعد التنازلي :::: لاحظ العد يتوقف لحظة فرز الاسئلة العشوائي حفاظا على وقت المتسابق .... ويعود العد مرة اخرى ..... طبعا سرعت واختصرت الوقت عشان الملف لا يصبح كبير
-
وحدة وحدة ..... استاذ @خالد عبد الغفار ماهي الطلبات ؟؟؟ وهل هذه الطلبات غير موجودة في النسخة الاساسية للمسابقة ؟!
-
مطلوب فتح مرفق داخل قاعدة البيانات بدون مسار خارجي
kanory replied to ابوخليل's topic in قسم الأكسيس Access
وعليكم السلام اهلا بك استاذي القدير @ابوخليل في حالة المرفق داخل قاعدة البيانات ..... دائما التعامل يكون بحيلة سواءا لفتح المرفق او عرض المرفق مباشرة .... والحيله هي تصدير المرفق ثم التعامل معه .... في مثالك مثلا والطلب بفتح المرفق مباشرة .... الكود يقوم اولا بتصديره ثم فتحه .... جرب هذا الكود لاني لم افتح القاعدة التي لديك Private Sub cmdOpenAttachment_Click() Dim rs As DAO.Recordset2 Dim rsA As DAO.Recordset2 Dim fld As DAO.Field2 Dim tmpPath As String Dim fileName As String 'افتح السجل الحالي Set rs = Me.Recordset 'اسم الحقل الذي يحتوي على المرفق Set fld = rs.Fields("MyAttachmentField") '← غيّر الاسم حسب جدولك If fld.Value Is Nothing Then MsgBox "لا يوجد مرفق لفتحه.", vbExclamation Exit Sub End If 'افتح المرفق داخل الحقل Set rsA = fld.Value If rsA.RecordCount = 0 Then MsgBox "لا يوجد مرفق.", vbExclamation Exit Sub End If rsA.MoveFirst 'الاسم الأصلي للمرفق fileName = rsA.Fields("FileName").Value 'حدد مسار مجلد مؤقت tmpPath = Environ("TEMP") & "\" & fileName 'احفظ المرفق كملف مؤقت rsA.Fields("FileData").SaveToFile tmpPath 'افتح الملف بالبرنامج الافتراضي FollowHyperlink tmpPath End Sub -
مطلوب رابط أو امتداد أو مسار صورة في حقل مرفقات في الجدول
kanory replied to ابوخليل's topic in قسم الأكسيس Access
هل المطلوب ايقونة واحدة ام ممكن ان تكون اكثر من واحدة -
-
وهل عرفت السبب ؟؟؟؟؟؟؟ هو هذا حلي الجديد !!!! هههههههه وايضا هناك حل ثالث ؟؟؟ تفضل اولا الحل الثالث باستخدام Private Sub Form_Open(Cancel As Integer) Dim SQL As String SQL = "SELECT Nom_Menha, Menha_ID, ID FROM Qry_menha " & _ "WHERE Menha_ID = '" & Forms!FrmMenah!Etar.Column(1) & "' " & _ "ORDER BY Menha_ID;" Me.Menha_Name.RowSource = SQL End Sub اما الحل الثاني والذي اكتشفته انت اريدك ان تعرفة بنفسك !!! تغير المصدر3.mdb
-
اخي طاهر ايضا هناك طريقة اخرى وبدون ادراج مربع النص اذا تريدها ارفقها لك ابشر
-
طيب جرب المرفق التالي تغير المصدر.mdb
-
االكود شغال وليس فيه مشكلة ..... ممكن تحديد المشكلة ؟؟؟ الان انا اخترت المنح العائلية ماذا تريد ان يظهر في النموذج عند الضغط على فتح نموذج الشرط ؟؟؟ المنح العائلية فقط صحيح ؟؟؟
-
مكن تصدير الاستعلام الى اكسل وممكن ترقمها تسلسليا بعد النقل الى الاكسل وممكن ترقيمها في الاستعلام ثم تصديرها الى الاكسل
-
لغيت المعيار لاني لم افهم معيارك على اي اساس وحفاظا على وقتي من المحاولة والخطأ بدون فائدة المفروض انت تذكر المعيار وعلى ماذا يشير لا بأس اضف معيارك المطلوب وجرب واعلمنا بالنتيجة
-
🙄 q serial.accdb
-
اخي @Abdelaziz Osman الطرق كثيرة للترقيم في الاستعلام وانت لم تذكر لنا اسم الجدول .... لكن جرب التعديل على هذا حسب الجدول لديك واسماء الحقول ... لأاني ادرج في الاستعلام اسم حقل واحد فقط SELECT DCount ( "*", "Notes_Table", "[User_FID] <= '" & [User_FID] & "'" ) AS تسلسل, [User_FID] AS Expr1 FROM Notes_Table ORDER BY [User_FID];
-
اين المرفق ؟؟