jjafferr

وعليكم السلام ابا جودي سؤال قبل ان ندخل للكود: هل قمت بتنصيب Plug-ins البرنامج ، لأن خاصية pdf ليست اساسية في البرنامج وانما هي من plug-in !! سؤالك لم يكن عن جلب الصور عن طريق السكانر ثم تحويلهم الى pdf ، وانما كان عن تحويل مجموعة الصور الى pdf ، وعليه كان جوابي!! وانت لم تستعمل الكود الاصل اللي انا اعطيتك في مشاركتي الاولى ، وانما اخذت طريقا آخر!! على العموم ، بعد ان تنشأ ملف tif ، استخدم الكود التالي لتغيير ملف tif الى pdf Dim temp_scan_path temp_scan_path = db_path() & "tempscan" If Dir(temp_scan_path, vbDirectory) = "" Then MkDir temp_scan_path End If Shell ("c:\program files\irfanview\i_view32.exe /batchscan=(scanfile,1,1,2,0," & Trim(db_path) & "tempscan,tif,1) /scanhidden") i_view32.exe /multipdf=(zzzzz.tif) مع مراعاة كتابة المسار والمسميات الصحيحة في السطر الاخير من الكود اعلاه جعفر

هلا والله أخوي وائل حل مشكلتك بسيط ، بس بيكلفك عشاء ، لا ومب عشاء واحد ، وانما عشاء عن توفير وقت كل تقرير وإلا خليني اسهل الموضوع ، عشاء واحد بس اجيب معاي كل الحبايب و أولهم أخونا العود @ابو خليل اذا اتفقنا ، شوف الحل التالي: مشكلتك في طريقة طباعتك للتقرير انك تجلب وتفرز وتصفي 34 الف سجل 3 مرات ، بينما الطريقة التالية تخليك تجلب وتفرز وتصفي 34 الف سجل مرة واحدة فقط ، ولكن تطبع التقرير 3 مرات: DoCmd.OpenReport "Rreceipt", acViewPreview, , , acHidden DoCmd.PrintOut acPrintAll, , , , 3 DoCmd.Close acReport, "Rreceipt", acSaveNo جعفر

وعليكم السلام رجعنا مرة ثانية لنفس الموضوع ، سؤالك غير واضح هل زر اختيار الكل معناه: 1. عرض كل الغرف ، بغض النظر عليها صح او لا (وهذا هو المتبع الآن) ، ولكن اجمع لي في الحقل الجديد عدد الغرف اللي عليها صح فقط ، 2. عرض كل الغرف ، اللي عليها صح فقط ، وايش تريد تعمل للحقل الجديد لعدد الغرف. جعفر

السلام عليكم شكرا للتنبيه ، فقد استعملت طريقة me.combo.rowsource = me.combo.rowsource & "," & "1200 x 1024" والتي اضيف فاصلة بين البيانات ، وهذه الطريقة تشتغل تمام للكمبيوترات ذات التنصيب الانجليزي ، ولكن الكمبيوترات ذات التنصيب العربي تستعمل الفاصلة المنقوطة!! اما الآن فقد تم استعمال طريقة AddItem. الان me.combo.AddItem "1200 x 1024" وقد قمت بتغيير المرفق في مشاركتي السابقة جعفر

عفوا أوس ، بس مافهمت اللي تريده ايش دخل هذه الوحدة النمطية بالرابط اللي اعطيتك!! كود البرنامج اللي في الرابط جدا بسيط ، وفيه شرح عن كل سطر: Private Sub n2_Change() Dim fld As String Dim x() As String Dim A As String '1 'add the 1st field to search in fld = "[كلمات ارشادية]" '** Add additional fields to search in as well, 'so everytime you want to add additional fields, copy the FULL next line, and add the field name fld = fld & " & ' ' & " & "[موضوع الخطاب]" 'fld = fld & " & ' ' & " & "[my other field]" '1 '2 'do the initial subform Record Source mySQL1 = "Select * From [المستندات]" mySQL = mySQL1 & " Where " 'now we want to split the search code into smaller bits, 'if seperate by / \ * or space, then change this seperator to | (a unique letter), 'this way we will have more than ONE word to search for Me.n2.SetFocus A = Me.n2.Text A = Replace(A, "/", "|") A = Replace(A, "\", "|") A = Replace(A, " ", "|") A = Replace(A, "*", "|") 'the words are split and ready x = Split(A, "|") If UBound(x) = 0 Then 'Still one word, search for it mySQL = mySQL & fld mySQL = mySQL & " Like '*" & x(i) & "*'" Else 'it is ONE word and a seperate by / \ * or space, 'so lets make a Where statement for each seperate word For i = LBound(x) To UBound(x) If i = 0 Then 'its a word and a seperator, the NEXT word is NOT added yet mySQL = mySQL & fld mySQL = mySQL & " Like '*" & x(i) & "*'" Else 'its multiple words, add the AND command between each word mySQL = mySQL & " AND " & fld mySQL = mySQL & " Like '*" & x(i) & "*'" End If Next i End If 'if the Search field is Empty, use the initial mySQL1 If Len(Me.n2.Text & "") = 0 Then mySQL = mySQL1 End If 'Debug.Print mySQL Me.sfrm_Search.Form.RecordSource = mySQL '2 End Sub جعفر

تفضل مجموع جميع الغرف صحيح وهو 10 ، وذلك لأنه عندك الغرفة رقم 5 ، واللي ما موجودة في الازرار . جعفر 621.Test.accdb.zip

هلا والله بالاستاذ رمهان حياك الله أخوي محمد جعفر

2. لا ، وانما ما صار شيء ، والحمدلله 3. تفضل ، وبدون الجدول اللي فيه سجلات سابقة عشوائية جعفر ChangeAndGetScreenResolution.zip

هلا والله زين ، اذن نحن في الطريق الصحيح بس سرعة الاستعلام الثاني لازم تكون مقارنة مع الاستعلام الاول ، فلوسمحت تخبرنا ايش الاشياء الاخرى اللي تعملها في الاستعلام الثاني ، يعني مو الغلط كله نخليه على البرنامج ، المبرمج كذلك عليه جزء من الغلط جعفر

نعم تقدر (لدرجة ما) ، ولكن بتعب 1. نعمل طريقة للبحث ، في حقل النص ، مثل الربط التالي: 2. نأخذ أول نتيجة من النموذج الفرعي ونضعه في حقل نص البحث ، 3. نغير شكل النموذج الفرعي الى ListBox ، يطول ويقصر على اساس عدد الكلمات اللي تأتي من البحث ، وفي النهاية بيصير عندنا كما هو الحال في ComboBox ، فليش التعب جعفر

زين الحمدلله اعطيت مثال ، واصبح طلبك شبه مفهوم هل المطلوب حقل واحد فقط للغرفة التي تضغط الزر عليها ، او امام كل زر حقل خاص به؟ جعفر

عفوا ما لاحظت المطلوب اليك المطلوب الآن: تغيير اسم الحقل الى اسم مفهوم . إضافة الحقل الآخر للمعيار . حدث النقر على رقم الغرف اصبح: Private Sub Rooms_Click() Select Case Rooms.Value Case 1 Room_Number = 1: Room_Check = -1 Case 2 Room_Number = 2: Room_Check = -1 Case 3 Room_Number = 3: Room_Check = -1 Case 4 Room_Number = 4: Room_Check = -1 Case 5 Room_Number = "": Room_Check = "" End Select Me.sfrm_Room_No_Available.Requery . ومصدر بيانات النموذج الفرعي اصبح: . واكتب لك سطري المعيار ، مع الشرح وذلك لأهميته: check: IIf([Forms]![frm_Rooms_Available]![Room_Check]<>-1,[Check],[Forms]![frm_Rooms_Available]![Room_Check]) اذا مافي علامة صح على الحقل [Forms]![frm_Rooms_Available]![Room_Check] (يعني الحقل لا يساوي -1) اذن اعطنا جميع سجلات الحقل [check] وإلا ، فاستخدم قيمة الحقل الموجودة في النموذج [Forms]![frm_Rooms_Available]![Room_Check] ------------------------------------------ Room_No: IIf(Len([Forms]![frm_Rooms_Available]![Room_Number] & "")=0,[Room_No],[Forms]![frm_Rooms_Available]![Room_Number]) اذا مافي بيانات في الحقل Len([Forms]![frm_Rooms_Available]![Room_Number] & "")= اذن اعطنا جميع سجلات الحقل [Room_No] وإلا ، فاستخدم قيمة الحقل الموجودة في النموذج [Forms]![frm_Rooms_Available]![Room_Number] . وللأسف الشديد ، فأنا ارى الكثير من المبرمجين لا يلتفتون لهذه الاسطر ، ويستخدمون Like بدلا عنها جعفر 621.Test.accdb.zip

وعليكم السلام حياالله أخوي بدر معيار الصح في حقل نعم/لا ، هو: -1 ومعيار غير الصح في حقل نعم/لا ، هو: <> -1 وفي معيار غير الصح في حقل نعم/لا ، تستخدم: 0 (صفر) ، لان الحقل يمكن ان يكون صفر او لا شيء. جعفر

وعليكم السلام هذه الخاصية موجودة في مربع الحوار في الاكسس ، الطريقتين اللتان اشار فيهما الفيديو يعني السؤال كيف نعمله في مربع نص؟ جعفر

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

حياك الله حسب علمي لا يمكن هذا ، لهذا السبب هو مشفّر. جعفر

جرب تغيير كلمة tif إلى Pdf

وعليكم السلام طريقتين يجون على بالي: 1. نسخ السجل بالكامل ، عمل سجل جديد ، لصق بيانات السجل ، ثم حذف/تصفية الحقول التي لا تريدها: DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy DoCmd.GoToRecord , , acNewRec DoCmd.RunCommand acCmdPaste me.Field5=0 me.Field6="" 2. تنسخ قيمة كل حقل في متغير في الكود ، عمل سجل جديد ، لصق هذه المتغيرات الى حقولها: a1=me.field1 a5=me.field5 a6=me.filed6 DoCmd.GoToRecord , , acNewRec me.field1=a1 me.field5=a5 me.filed6=a6 جعفر

نعم لا تستطيع بكود واحد ، يعني لا يمكن لكود واحد ان يعمل لك جميع المجلدات دفعة واحدة ، وانما الكود يجب ان جعفر

حياالله أخوي رمهان نعم هذا اللي فهمته ، ولكن الدبل كليك على السجل في النموذج الفرعي ، وانا عملته على الحقل ID: جعفر

السلام عليكم اعتذر عن مشاركتي السابقة ، ففيها خطأ ، وتم اصلاحه في الرابط: جعفر وحياالله الشباب جعفر

السلام عليكم ابا جودي انا اعتذر منك ، فالكود الذي اعطيتك اياه ، خلق خطأ آخر: If Len(strFileNames & "") = 0 والحل في هذا الكود ان شاء الله (السطر الاول من الكود ادناه) ، وبقية الكود موجود عندك اصلا: strFileNames = "" strFileNames = apiBrowseFiles("Select a File, OR Multiple Files", sFolder, , strFilter) ' user didn't select any file, s/he proceed cancel If UBound(strFileNames) = 0 Then 'No Path, Exit Sub End If جعفر

هلا ومرحبا بأخوي حربي الله يسلمك ويعافيك ان شاء الله جعفر

وعليكم السلام هذا ايميل بصيغة "smime.p7m" مشفّر ، ويحتاج مفتاح لفك التشفير ، وهذا المفتاح يكون فقط على الكمبيوتر الذي عليه برنامج الايميل جعفر

هلا والله