-
Posts
2,223 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
134
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو kanory
-
البحث في textbox وعرضه في listbox بحيث لاتظهر السجلات
kanory replied to adomar9911's topic in قسم الأكسيس Access
وعليكم السلام ورحمة الله وبركاته حياك وبياك في منتداك بين اخوتك .. ممكن مرفق صغير للعمل عليه والتجربة -
كيف اظهار اخر تاريخ مغادرة للموظفين
kanory replied to أبو ماجد الغامدي's topic in قسم الأكسيس Access
اخي الكريم @أبو ماجد الغامدي عدل افضل اجابة .... لاني لم اجب على سؤالك بارك الله فيك ... -
كيف اظهار اخر تاريخ مغادرة للموظفين
kanory replied to أبو ماجد الغامدي's topic in قسم الأكسيس Access
تقصد تغير الفريق بالكامل وتستدعي الاحتياط ... ههههه -
اعمل جدول مثل هذا ..... حيث يتم طباعة الخطاب حسب الثلاث سجلات بها ::: 1- جزاءات برقم الصادر ( حيث يمكن جعل رقم الصادر متغير تلقائيا كل عملية طباعة يزيادة رقم للسجل بدون تدخل منك . 2- ماهيات برقم ايضا بنفس فكرة الجزاءات ==========================================. 3- والاخيرة نسخة المكتب وهي بدو رقم .... هذا اذا كان فهمي للموضوع سليما .................................................................................
-
انا بدون مبالغة .... دخلت الموضوع اكثر من مرة ...محاولا يا ابا الحسن تفكيك برنامجك لاصل الى الاستعلام واطبق عليه الطريقة عجزت ... فلذلك تركته للاعضاء ممكن احدهم يفهم طريقة ترابط برنامجك .. فاعذرني اخي ابا الحسن لجهلي في فهم ذلك ...
-
جرب المرفق وانظر ......... عند كتابة البحث انقل المؤثر خارج منطقة البحث .... mm.mdb
-
اذن لديك حل بعمل جدول خاص بالترقيم .... عند حفظ الملف يتم اخذ الترقيم منه وبعد الحفظ يتم تحديث ذلك الرقم في الجدول بزيادة واحد للرقم وهكذا ..................
-
اجعلها حسب التاريخ والوقت ....
-
تفضل ................... Mahdi119.rar
-
وعليكم السلام اهلا بك .... حسب ما فهمت من سؤالك انك تريد ارسال كل محتويات المجلد عند ارسال الرسالة .... صحيح .... اذا كان ذلك هو مطلبك ... جرب هذه الشيفرة ...واعلمنا بالنتيجة بارك الله فيك ...... ملاحظة عدل فترات الانتظار حسب سرعة جهازك ... Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "whatsapp://send?phone=" & "mobile no" & "&text=" & "hello" Sleep 3000 Call SendKeys("~", True) Sleep 1000 SendKeys "+{TAB}" Call SendKeys("~", True) Sleep 1000 SendKeys "{UP}" SendKeys "{UP}" SendKeys "{UP}" SendKeys "{UP}" Call SendKeys("~", True) Sleep 2000 SendKeys [CurrentProject].[Path] & "\PDF" Call SendKeys("{Enter}", True) Sleep 2000 SendKeys "+{TAB}" SendKeys "^a" Sleep 2000 Call SendKeys("{Enter}", True) Call SendKeys("{Enter}", True) Sleep 5000 Call SendKeys("{Enter}", True) Set IE = Nothing
-
حل مشكلة احتواء حجم الخط لحقل واحد داخل التقرير
kanory replied to خير الايمان's topic in قسم الأكسيس Access
الكود يعمل فقط على مربع النص الخاص بالتخصص انظر الصورة في الرد السابق لي ..... عموما تفضل ملفك بعد التعديل عليه ........ Database1601.accdb -
حل مشكلة احتواء حجم الخط لحقل واحد داخل التقرير
kanory replied to خير الايمان's topic in قسم الأكسيس Access
طيب ادخل على تفصيل النموذج ..... حدث عند الطباعة وادرج الكود التالي .... Dim ctl As Control, strText As Variant, strName As String Me.ScaleMode = 1 For Each ctl In Me.Detail.Controls If ctl.ControlType = acTextBox And ctl.name = "Text4" Then strName = ctl.name If Nz(ctl.Tag, "") = "" Then ctl.Tag = ctl.FontSize End If ctl.FontSize = ctl.Tag Me.FontSize = ctl.FontSize strText = ctl.Value If Len(strText) > 0 Then Do Until TextWidth(strText) < ctl.Width ctl.FontSize = ctl.FontSize - 1 Me.FontSize = ctl.FontSize Loop Do Until TextHeight(strText) < ctl.Height - (ctl.Height * 0.26) ctl.FontSize = ctl.FontSize - 1 Me.FontSize = ctl.FontSize Loop End If End If Next ctl ثم انظر النتيجة ...................... -
ملفك بعد التعديل ..... db1 (4) (1).mdb
-
الامتداد ليس له علاقة ولكن يجب ان تكون خلفية الصورة بنفس خلفية النموذج ... بالنسبة لك ان لم تظهر القائمة او لم تجدها هناك حل بدائي وهو مسح مربعات النص المعمولة لديك ... وابدأ بادراج الصورة اولا ثم قم بادراج مربعات النص لديك بهذا الشكل تصبح الصورة خلف المربعات
-
مساعدة في تغيير نموذج مبوب من اليسار الى اليمين
kanory replied to Radwan0's topic in قسم الأكسيس Access
المثال المرفق غير الموجود في الصورة ... تأكد منه -
-
طيب تفضل ... التعديلات ::::::: 1- اضفنا حق ch في الجدول 2- عملنا استعلام بالسجلات المختارة 3- ادرجنا زر وبه الامر التالي ::::: 4- جرب المرفق .. Dim DTPath As String DTPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\salim07- " & Format(Date, "dd-mm-yyyy") & ".xlsx" DoCmd.OutputTo acOutputQuery, "استعلام1", acFormatXLSX, DTPath, False MsgBox "لقد تم تصدير البيانات بنجاح" TEST 12.accdb
-
مساعدة في تغيير نموذج مبوب من اليسار الى اليمين
kanory replied to Radwan0's topic in قسم الأكسيس Access
لا اعتقد هنا طريقة مباشرة .... ولكن يمكن بطرق ملتوية .... انتظرني حتى اصل لجهازي .... لكن أين مثالك .......................................................... تأكد من المثال ؟؟؟؟؟؟ -
-
-
الفكرة ببساطة ..... هو فتح اي برنامج للفوتوشوب او البوربوينت مثلا واكتب ما تريد ثم اجعله مائلا بالدرجة التي تريد ثم احفظ كصورة ..... ثم ادرجها في برنامجك واجعلها في الخلفية أي خلف كل شيئ ... وفقط ... db1 (4).mdb
-
-
عمل زر تحديد عدد معين من سجلات النموذج للعمل عليها
kanory replied to البحارى's topic in قسم الأكسيس Access
مطلوبك غير محدد وغير مفهوم ... ممكن توضيح اكثر او مثال مرفق مصغر للمطلوب -
إنشاء زر تصدير التقرير إلى ملف pdf أو إكسل أو وورد
kanory replied to عربي عالمي's topic in قسم الأكسيس Access
واياك ...... الحمد لله رب العالمين ..... -
إنشاء زر تصدير التقرير إلى ملف pdf أو إكسل أو وورد
kanory replied to عربي عالمي's topic in قسم الأكسيس Access
تفضل <><><><><> all-by-yesno (1).accdb