Foksh

ما تركت لصاحب الموضوع ولاااااا ذرة أمل

حسناً ، جرب هذه الفكرة الثانية .. ولكني أنصحك بأن أفضل فكرة هي وجود برنامج يستعرض ملفات الـ PDF Private Sub Command44_Click() Dim strFilePath As String Dim strFileName As String Dim objShell As Object strFileName = "iPhone.pdf" strFilePath = "C:\Users\Golden\Desktop\" & strFileName If Dir(strFilePath) > "" Then Set objShell = CreateObject("WScript.Shell") objShell.Run "RUNDLL32 PRINTUI.DLL,PrintUIEntry /k /n ""Default Windows Printer"" """ & strFilePath & """", 1, True Set objShell = Nothing Else MsgBox "لايوجد مرفقات يمكن طباعتها" End If End Sub طبعاً في السطر :- objShell.Run "RUNDLL32 PRINTUI.DLL,PrintUIEntry /k /n ""Default Windows Printer"" """ & strFilePath & """", 1, True سيكون الأمر عند الطباعة ليس بالشكل الصامت ، ولكن للتجربة ، استبدل الرقم 1 في نهاية الكود ، بالرقم 0

مشاركة مع الاستاذ @kkhalifa1960 جرب الكود التالي من احد ملفاتي .. Private Sub Comannd187_Click() Dim strFilePath As String Dim strFileName As String Dim strCommand As String strFileName = "66.PDF" strFilePath = "D:\Pictures\NEW\" & strFileName If Dir(strFilePath) > "" Then strCommand = "print """ & strFilePath & """" Shell strCommand, vbHide Else MsgBox "لا توجد مرفقات يمكن طباعتها" End If End Sub

بما أنه تم اختيار أفضل إجابة ، أنصحك بفتح موضوع جديد والإشارة لهذا الموضوع بالمتابعة .. 😇

هذه محاولتي البسيطة ، ان كان هذا طلبك أخبرني بالنيجة توزيع اللجان.accdb

تحقق من الحدث On Load او ارسل ملفك لرؤيته

اعتقد انك كررت طلبك ولكن بتغيير النموذج وأشياء بسيطة .. لكن تفضل هذا طلبك بطريقة بدائية بسيطة test.accdb

هل المشروع لا يعمل على جهازك الذي صممته عليه ، أم على جهاز آخر ؟؟ A- اذا كان يعمل ثم لم يعد يعمل فجأة على جهازك ، فحاول واحداً منا يلي :- 1. ضغط وإصلاح لقاعدة البيانات. 2. قم باستيراد مكونات قاعدة البيانات إلى قاعدة بيانات جديدة مع تأكدك من المكتبات طبعاً. B- إذا كانت المشكلة في جهاز آخر ، فتفقد لغة الترميز Unicode . الق نظرة على الموضوع التالي .

مشكور على المشاركة الطيبة استاذ أبو أحمد ,, اسمح لي بمداخلة ، وقد توسع الفكرة لأبعد من ذلك ,, جربتها على مثال بسيط مثلاً "مائة وخمسة وعشرون دينار وأربعون فلس" والنتيجة = 125.4 "مئة وخمسة وعشرون دينار وأربعون فلس" والنتيجة = 25.4 "مائة وخمسة وعشرون دينار وأربعين فلس" والنتيجة = 125 "مائة وخمسة وعشرون دينار واربعون فلس" والنتيجة = 125 "مائة وخمسة وعشرين دينار وأربعون فلس" والنتيجة = 105.4 اي باختلاف كتابة التفقيط قد يكون هناك عدة فروقات في النتائج .. *- مجرد رأي ، ولكم جزيل الشكر

مبارك لك حل المشكلة .. ما هو الحل الذي عالج مشكلتك ، اذكره هنا حتى يعرف الحل من يمر من هنا أخي الكريم @Abomuayad2023 .

خلينا على دي .. وبلاش من دي .. بتحسسني انه عندي 99 سنة وانا يا دوبك عندي 98 بس

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

قد تكون المشكلة فعلاً في إصدار الأوفيس للي عندك ( 2013 ) أول إصدار بدون تحديثات ,, جرب تحميل :- هذا الإصدار اوفيس 2010 ( 32 بت ) هذا الإصدار اوفيس 2016 ( 64 بت )

هذه المشكلة تخص مركز التوثيق في آكسيس .. وتفعيل الماكرو أو تأكد من التالي ..

تتعدد الأسباب ، والموت واحد

وعليكم السلام ورحمة الله وبركاته .. تفضل محاولتي البسيطة test.accdb

وعليكم السلام ورحمة الله وبركاته .. تفضل يا صديقي ، تم تعديل الاستعلام في مصدر سجلات التقرير ليصبح :- SELECT info_stagiere.ID, info_stagiere.nom, info_stagiere.prenom, info_stagiere.annee, info_stagiere.grade, [code_grade].[code] & ([code_grade].[numero]+(SELECT COUNT(*) FROM info_stagiere AS T WHERE T.annee = info_stagiere.annee AND T.grade = info_stagiere.grade AND T.ID < info_stagiere.ID)) AS code_stagiere FROM info_stagiere INNER JOIN code_grade ON info_stagiere.grade = code_grade.grade WHERE (((info_stagiere.annee)=[Forms]![frm_stag]![ANNEE1]) AND ((info_stagiere.grade)=[Forms]![frm_stag]![GRADE1])); هل هذا طلبك ؟ baseA.accdb

يعني بناءً على كلامك ، لم قمت بادخال 5 سجلات ، وتريد الخروج بدون حفظ هذه السجلات تريد ان يتم التراجع عن الإضافات والتعديلات الأخيرة لأنك لم تقم باختيار حفظ !!!!!!!!

كلامك صحيح ، يبدو أنني تسرعت ولم أركز جيداً ، طبعاً السبب هو الحدث قبل التحديث للنموذج .. اعتذر منك ، ولكنك لم تعد خالي الوفاض مع مرفق الأستاذ @kkhalifa1960

بناءً على طلب وملاحظة الأستاذ موسى ( مشكوراً )، تمت التعديلات الجديدة في النسخة التالية بحيث :- ♻ تظهر أسماء الأعمدة البرمجية والعناوين التي تخصها في الصف الأول كما في الصورة أدناه ( مثال ) .. ♻ الفكرة تم تطبيقها على الإستيراد المتعدد والغير متعدد أيضاً .. 💢 Excel Importor 2025.accdb 💢

وعليكم السلام ورحمة الله وبركاته .. تفضل أخي الكريم هذه محاولة بسيطة ، جربتها baseF .accdb

طبعاً نستطيع ذلك مهندسنا الغالي .. في الكومبوبوكس المخصص لاختيار الورقة ( Comb_Sheets و Comb_Sheet ) ,, ستلاحظ أن الكود بهذا الشكل :- في Comb_Sheets مثلاً .. Private Sub Comb_Sheets_AfterUpdate() On Error GoTo ErrorHandler Dim col As Long If IsNull(Me.Comb_Sheets) Or Me.Comb_Sheets = "" Then Exit Sub Set xlWorksheet = xlWorkbook.Sheets(Me.Comb_Sheets.Value) Me.Comb_Cells.RowSource = "" Me.Comb_Cells = "" For col = 1 To xlWorksheet.UsedRange.Columns.Count '---------------------------------------------- Me.Comb_Cells.AddItem xlWorksheet.Cells(1, col).Value '---------------------------------------------- Next col Exit Sub ErrorHandler: MsgBox "حدث خطأ: " & vbCrLf & Err.Description, vbCritical + vbMsgBoxRight, "" End Sub لاحظ السطر الموجود بين التعليقين . فقط سنستبدله بالسطر التالي :- Me.Comb_Cells.AddItem Split(xlWorksheet.Cells(1, col).Address, "$")(1) وكذلك الأمر بالنسبة للكومبوبوكس Comb_Sheet ، سيصبح التعديل بهذا الشكل .. Private Sub Comb_Sheet_AfterUpdate() On Error GoTo ErrorHandler Dim col As Long If IsNull(Me.Comb_Sheet) Then Exit Sub Set xlWorksheet = xlWorkbook.Sheets(Me.Comb_Sheet.Value) Me.Comb_Cell.RowSource = "" Me.Comb_Cell = "" For col = 1 To xlWorksheet.UsedRange.Columns.Count Me.Comb_Cell.AddItem Split(xlWorksheet.Cells(1, col).Address, "$")(1) '<<<<<<<<<< Next col Exit Sub ErrorHandler: MsgBox "حدث خطأ: " & vbCrLf & Err.Description, vbCritical + vbMsgBoxRight, "" End Sub أتمنى أن أكون قد وُفقت في الإجابة

نعم صحيح 100%