طير البحر

up

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

تفضل اخي الكريم www.waadspina.com/toofecna.rar المطلوب فى تقرير telbook

اخواني لديا هذا التقرير وهو يعتمد على استعلام عادي باقصى يسار التقرير مربع نص غير منضم اسمه alltels وانا اريد كود اضعه فى التقرير عند التحميل يفعل ما يلي ----- عند كل سجل فى التقرير ياخذ رقم الملف fileno الموجود باقصى يمين التقرير ويذهب به الى جدول اخر تماما اسمه tels ويبحث عن جميع البيانات فى هذا الجدول التى بنفس رقم الملف ويجمعها كنص ويضعه فى صندوق النص المقابل alltels هذه هي حقول الجدول المطلوب جمعها كنص واحد rs!telholder - tholdrelation - telno الحقيقة جربت كود من الذكاء الصناعي واجريت عليه تعديلات كثيرة دائما احصل على نتيجة السجل الاول فى التقرير مكررة فى باقي السجلات ورمضان كريم

الاخوة الافاضل لديا تقرير مبني على استعلام داخلي واستدعيه من النموذج بوضع المعيار التالي =[forms]![formname]![fileno] وعند رغبتي فى استدعائه من نموذج اخر بالاعتماد على رقم الملف ايضا اضطر الى نسخ التقرير وتسميته باسم اخر لاعدل على المعيار بعاليهباسم النموذج الجديد مما يجعل عدد التقارير المكررة كبير جدا ومزعج الا توجد طريقة لاستخدام نفس التقرير للفتح بدلالة رقم الملف فى اى نموذج عبر متغير ارجو النصيحة

بشرك الله بالجنة لقد جربت نقل المعيار اللى حضرتك وضعته فى حقل الاسم فى حقل البحث مع معيار البحث الرئيسي والامر جيد Like "*" & [Forms]![search]![texttosearch].[Text] & "*" And Like "*" & Nz(GetMyVar(),"*") & "*" ووضعت فى زر فتح التقرير جملة myvar="" فى نهاية الكود حتى يتحرر الاستعلام هذا ما فعلته وتبدوا النتائج جيدة ارجو المراجعة واذا كان من نصائح

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

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

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

تفضل اخي عبر هذا الرابط ويرجى استخدام كلمة وعد كمثال للبحث http://waadspina.com/toofecna.rar

يبقى مفتوحا فزر الطباعة موجود بالفورم وكلمة البحث موجودة

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

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

هذا مثال فى الفورم tels editor اذا تم فتحها مستقلة لا توجد مشكلة ويتم التعديل والحفظ بشكل عادي ولكن المشكلة تظهر عندما استدعيها من الفورم الفرعي فى tels بالضغط المزدوج على رقم ال id قد تقبل تعديل واحد او اتنين ثم تعطي الرسالة وبمجرد الضغط على كومبو تعطي الرسالة وغلاقها لا يتم الا بالضغط على شريط العنوان واختيار عرض التصميم ومن ثم تظهر الرسالة الثانية سامحوني لاني لست محترف ولكني تعودت على انجاز اعمال من هذا النوع وحل هذه المشكلة حيوي لهذ المشروع dbtest.rar

عندي فورم يتعامل مع جدول واحد اذا فتحته للتعديل يسعمل بشكل جيد لكن اذا استدعيته من نموذج فرعي للتعديل على بيانات السجل المحدد وعند محاولة التعديل فى اى محتوى يعطي هذه الرسالة فهل من ارشادات

جزاك الله خيرا

الحقيقة يا جماعة محرر vba الموجود فى اكسس شئ مزعج وملوث للكود بشكل مزعج على سبيل المثال لو عندك اى كائن فى اكواد وتعبان عليها وجيت نسخته من فورم لفورم يروح من غير الكود ولو غيرت اسمه زر يفقد كوده ويفضل الكود موجود بالاسم القديم ما اعرفش هو عند اغلاق اكسس بينضف ده ولا لا ماركزتش فكرت لو فى محرر او مكتبات او اضافات تحسن الاوضاع دي اذا كان هناك برامج بسيطة للبرمجة الشيئية مثل اوتوبلاي ميديا استوديو عنده محرر اكواد ذكي جدا وكمان فى مرونة وترابط جامدين واستخدمته فى صنع تطبيقات قوية مع قواعد بيانات sql lite اعلم ان الامر مختلف لكني مليت من المحرر ده فهل من نصائح لتحسين الوضع

الاخوة اريد كود او استعلام عند تشغيله يبحث عن الخلايا الفارغة فى الجدول ويضيف فيها 0 لا اقصد السجلات الجديدة اوفيس 2021 نواة 64 بت

ناجحة ولكن زودني بكود استدعاء مناسب ربما يكون افضل من هذا Private Sub Command190_Click() 'TWAIN_SelectImageSource (Me.hwnd) Dim strScannerName As String strScannerName = SelectScanner() If strScannerName <> "" Then ' Start the scanning process ' ... Else MsgBox "No TWAIN scanner found." End If End Sub

الاخوة الافاضل استخدم الكود الحالي لمسح الصور واحتاج ان اضيف زر منفصل لاختيار الاسكانر المستخدم من بين اكثر من سكانر متصل Private Sub cmdScan1_Click() '========================== On Error Resume Next If IsNull(fileno) Or fileno = "" Then DoCmd.OpenForm "frmMassage" Forms!frmMassage!lblMassage.Caption = " ÝÖáÇð íÌÈ Ãä ÊÞæã ÈÅÏÎÇá ÑÞã ÇáãáÝ ÍÊì ÊÊãßä ãä ÅÖÇÝÉ ÕæÑÉ ÇáÚÖæ " Me.fileno.SetFocus Else Dim fdialog As Office.FileDialog Dim filepath As String Dim sdialog As New WIA.CommonDialog Dim imagefile As WIA.imagefile On Error GoTo errorhandle Dim fso As Object Dim fldrname, fldrpath, FoldrPath As String FoldrPath = "images_waad" & "\case_Photo" Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\" & FoldrPath If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If '================================== Set fdialog = Application.FileDialog(msoFileDialogSaveAs) filepath = CurrentProject.Path & "\" & FoldrPath & "\" & Me.fileno & ".jpg" Set imagefile = sdialog.ShowAcquireImage() imagefile.SaveFile filepath PicPath = filepath Image.Requery errorhandleexit: Exit Sub errorhandle: If Err.Number = "-2147024816" Then If MsgBox("ÊæÌÏ ÕæÑÉ ÊÍãá äÝÓ ÇáÑÞã" & vbNewLine & "åá ÊÑíÏ ÍÐÝ ÇáÕæÑÉ ÇáÞÏíãÉ" & vbNewLine & "Ýí ÍÇá ÇáÑÝÖ ÓíÊã ÇÖÇÝÉ ÑÞã ÚÔæÇÆí Çáì ÇÓã ÇáÕæÑÉ áÊãííÒåÇ", vbCritical + vbYesNo + vbMsgBoxRight, "ÊäÈíå") = vbYes Then Kill filepath 'Set imagefile = sdialog.ShowAcquireImage() imagefile.SaveFile filepath PicPath = filepath FoldrPath = "images_waad" & "\case_Photo" filepath = CurrentProject.Path & "\" & FoldrPath & "\" & Me.fileno & ".jpg" Me.Image.Picture = filepath Image.Requery Else Dim g As String g = CurrentProject.Path & "\" & FoldrPath & "\" & Me.fileno & "-" & Format(Now, "hhnnss") & ".jpg" imagefile.SaveFile g PicPath = g Image.Requery End If ElseIf Err.Number = "-2145320939" Then MsgBox "ÇáÇÓßÇäÑ ÛíÑ ãÊÕá", vbCritical + vbMsgBoxRight, "ÊäÈíå" Else PicPath = Err.Number MsgBox Err.Description End If Resume errorhandleexit End If FoldrPath = "images_waad" & "\case_Photo" filepath = CurrentProject.Path & "\" & FoldrPath & "\" & Me.fileno & ".jpg" Me.Image.Picture = filepath Image.Requery End Sub

ويندوز 10 اوفيس 2021 نواة 64 بت حاولت مع اكواد عديدة لاظهار ديالوج طباعة صورة معلومة المسار على الجهاز ولكن لم تفلح المحاولات لدينا كائن صورة يحمل صورة معلومة المسار والاسم فى النموذج واريد امر لفتح ديالوج طباعة لاختيار الطابعة وعدد النسخ ومقاس الورق الى اخره من يمكنه المساعدة فجزاه الله خيرا واذا كان مطلوب تفعيل مكتبات معينة فلاينسى ان يدلني

جزاكم الله خيرا

'ShellExecute "rundll32.exe", "shell32.dll,ShellExec_RunDLL " & filepath ShellExecute "rundll32.exe", "shell32.dll,ShellExec_RunDLL " & filepath, "", "open", 1 السطر الاول يفتح الصورة مع مستعرض الصور الافتراضي ويعمل بشكل جيد لكن ما اريده فى السطر الثاني هو فتح الصورة مع محرر الصور الافتراضي او مع برنامج الرسام فى ويندوز ولكنه لا يعمل هل من خطأ او اقتراحات استخدم اوفيس 2021 نواة 64 بت ويندوز 10

للاسف هذا لا يحل المشكلة التى اقصدها فلو افترضنا ان هناك 10 اسطر من الكودواريد ان اعطلها جميعا مؤقتا فهل انا مضطر لوضع علامة على كل سطر ان كان كذلك فهى شئ مزعج للغاية الحقيقة

اعلم ان وضع علامة (') فى اول سطر كود تسمح بكتابة تعليق فى هذا السطر ولكني احتاج الى كتابة عدة اسطر من التعليق بين علامتين ما هل يجب عليا وضع علامة التعليق فى اول كل سطر الحقيقة ان استخدم علامات تعليق فى لغة اخرى توقف مابعدها وتعتبره تعليقا حتى العلامة الاخرى وانا استخدمها فى ايقاف جزء من الكود مؤقتا هل ذلك متاح اشكركم