kanory

ضع هذا الكود .... On Error GoTo err: ' Requires reference to Microsoft Office 15.0 Object Library. Dim fso As Object Set fso = CreateObject("scripting.filesystemobject") Dim fDialog As Office.FileDialog Dim varFile As Variant Dim destpath As Variant ' Clear listbox contents. Me.PicPath2 = "" ' Set up the File Dialog. Set fDialog = Application.FileDialog(msoFileDialogFilePicker) With fDialog ' Allow user to make multiple selections in dialog box .AllowMultiSelect = False ' Set the title of the dialog box. .title = "Please select one image" ' Clear out the current filters, and add our own. .Filters.Clear .Filters.Add "png image", "*.jpg" .Filters.Add "jpg image", "*.bmp" .Filters.Add "jpeg image", "*.png" .Filters.Add "jpg image", "*.jpeg" .Filters.Add "All Files", "*.*" ' Show the dialog box. If the .Show method returns True, the ' user picked at least one file. If the .Show method returns ' False, the user clicked Cancel. If .Show = True Then 'Loop through each file selected and add it to our list box. For Each varFile In .SelectedItems destpath = Application.CurrentProject.Path & "\" & "Pictures" & "\" & Me.Key & "." & Right$(varFile, Len(varFile) - InStrRev(varFile, ".")) FileCopy varFile, destpath Kill (varFile) Me.PicPath2 = destpath Me.Refresh Next Else MsgBox "لقد قمت بالنقر فوق إلغاء الأمر في مربع حوار الملف." End If End With Exit Sub err: MsgBox err.Description & " " & err.Number تم اضافة هذا الجزء Kill (varFile)

اخي الكريم لما تفتح موضوع لا تكرر الموضوع مرة اخرى .... حتى يتمكن الزملاء من الاجابة تفضل ..... Me.kanory.DefaultValue = "#" & "7 / 11 / 2021" & "#"

تفضل .... Me.kanory.DefaultValue = "#" & "7 / 11 / 2021" & "#"

طيب قلنا انت كيف استخدمته ,,, وضح لنا .... أو ارفق مثال توضيحي لما تريد حتى نفهم ....

Me.kan.DefaultValue = "#" & Me.kanory & "#"

ممكن مثال للفكرة

وهذه طريقة اخرى مع قهوة الصباح .... انت وعدتني بابريق قهوة .... ههه طبعا استعملنا هذا الكود في حدث عند النقر في الزر DoCmd.OpenReport "Filters", acViewNormal ووضعنا في حدث عند الفتح في التقرير هذا الكود الخاص بالفلتر Reports!Filters.Report.FilterOn = False Reports!Filters.Report.Filter = Forms!frm_Form!Table1.Form.Filter Reports!Filters.Report.FilterOn = True الان بهذه الطريقة يتم طباعة التقرير بدون فتحه عبر الطابعة الافتراضية اليك المرفق ..... Kan_233.accdb

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

طيب جرب المرفق ... بس بدون قهوة ... ههههه ربما تأتي افكار اخرى .... 231.accdb

الفضل لله وحدة اخي الكريم ... بارك الله فيك غير هذا السطر DoCmd.OpenReport "Filters", acViewPreview بهذا السطر DoCmd.OpenReport "Filters", acViewNormal تراني من الشياب الى ما ينسوا ...... انتظر ابريق القهوة ....... بارك الله فيك على لطفك اخي الكريم

هذا تواضع الكبار ..... تعلمنا منك الكثير من الافكار والابداع ....

وهذه طريقة ثانية بعد كوب القهوة ..... ‏‏New1 - Kan.accdb

تفضل مشاركة مع مروض الاكسس @ابا جودى New1.accdb

تاكد اخي من المرفق

ربما هذا مطلوبك ..... متعدد_ Kan.accdb

واياك ... حياك الله

ابتداءا .... وقبل كل شيئ إبحث في المنتدى عن موضوعات مشابهة لطلبك ... تجد العديد من الموضوعات ..... ثم !!!!!!!!! ابدأ تصميم برنامجك ..... ثم اطرح مشكلتك في المنتدى .... تجد الاجابة من الاحبة في المنتدى وما يقصروا

جرب الملف ربما هو طلبك ‏‏Employer_kan.accdb

وعليكم السلام ورحمة الله وبركاته يمكن استخدام الدالة DLookup بحيث انك كلما اردت تسجيل اجازة موظف يعمل على جلب بيانات اجازة ذلك الموظف قبل اعتماده وهكذا ....

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

تفضل حسب طلبك .... kan_231.accdb

اصنع زر في نموذج وضع هذا الكود فيه :::::: DoCmd.OpenReport "مستحق_فيزا1", acViewPreview Pause 1 DoCmd.Close DoCmd.OpenReport "Kanory", acViewPreview

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

طيب ... انظر المرفق .... لكي يعمل معك بشكل صحيح اتبع الاتي : اذا اردت طباعة الاحصائية فقط (التقرير المسمى بـ Kanory ) : اولا يجب تشغيل التقرير المسمى بـ مستحق_فيزا1 ثانيا فتح التقرير Kanory _________________________________________________________________________________________________________ أما في حالة طباعة التقرير مستحق_فيزا1 سوف يعمل الكود مباشرة وبذلك تستطيع طباعة التقرير Kanory ________________________________________________________________________________________________________ والافضل اعطاء امر طباعة التقرير مستحق_فيزا1 ثم امر طباعة التقرير Kanory 1928961479_Kanory_.accdb سوف تكون النتيجة كالتالي :::::::::::::::::::

حياك الله ....