jjafferr

ملفات pdf نوعين: - نوع النص ، ويمكن استخلاص النص عن طريق بعض البرامج الصغيرة بأوامر Command Line من الاكسس ، وقد جربت احد البرامج فأعطاني النص حسب الحقول في الملف (اي انها مبعثرة بدون مسميات الحقول) ، - نوع الصور ، مثل الملفات اللي ينتجها السكانر ، ولإستيراد البيانات منها ، يجب تحويلها اولا الى نص عن طريق برامج OCR ، ولا توجد برامج صغيرة لعمل هذا للغة العربية 🙂 للعلم ، انا كنت من ضمن فريق عمل Abbyy في تجربة استعمال برنامجها Fine Reader لتحويل الصور الى نص عن طريق OCR في بداية مشوارهم ، واذكر اني اقترحت عليهم بعض الملاحظات التي كان لها دور في عمل قفزة لعمل البرنامج (لا اتكلم برمجيا ، وإنما بملاحظاتي كوني اتحدث واكتب العربية) ، ولكني ولشدة ضغط العمل في اوقات معينة ، فلم استطع تلبية طلباتهم ، وتوقفت عنهم 🙂 جعفر

ممكن تختصرها الى : dl = Nz(DMax("idym", "tblNum", "(year([ddate]) & month([ddate]))='" & Format(Me.dDate, "yyyym") & "'"), 0) rd = int(Right([dl],3)) + 1 Me.IdYM = Format(Me.dDate, "yyyy/mm") & "/" & Format(rd, "000") ولكن تذكر ، انك تأخذ التاريخ من الحقل الآخر ، وليس من نفس الحقل الذي فيه الرقم. جعفر

وعليكم السلام 🙂 في سنة 2009 كان لي تجربة مع برنامج https://www.abbyy.com/ والظاهر الآن اسمه https://pdf.abbyy.com/ كان الافضل (في اللغة الانجليزية) في تحويل الصور (صور الرسائل التي تم ادخالها في الكمبيوتر بالماسح الضوئي scanner ، او ملفات pdf التي تحتوي على صور) الى ملف وورد بصيغة كلمات يمكن التعديل عليها ، ويمكن بنسخة Corporate ، ان يقوم البرنامج بالعمل تلقائيا ، وممكن ان يقوم الاكسس بإعطاء التعليمات ، وفي النهاية يكون عندك ملف txt وتأخذ بياناته الى جدول الاكسس. للغة العربية ، وقتها كانت نسبة صحّة/دقة البيانات المأخوذة من الصور تساوي حوالي 30-50% ، ولا علم لي بها الآن 🙂 جعفر

رحم الله إمرء عرف قدر نفسه 🙂 فأنا لا علم لي بأوامر SQL Server ، وحاولت ، لهذا السبب اخبرتك بأني : . لذا انصحك ان تستجدم كود اخي @صالح حمادي ، ويكون هكذا بمعلوماتك ، مع مراعاة ان تكون Dim str_conn As New ADODB.Connection Dim RS As New ADODB.Recordset str_conn.Open "Provider=SQLOLEDB;Integrated Security=SSPI;Initial Catalog=master;Data Source=\\128.122.1.130" Set RS = str_conn.Execute("select GETDATE()") 'MsgBox RS(0) Me.srvr_Date_Time = RS(0) Set RS = Nothing str_conn.Close او نمشي في طريق اكسس : جرب هذا الكود ، فهو يقوم بإضافة سجل ، ثم يقوم بالمقارنة : Private Sub Form_Load() 'Me.iCompare = IIf(Format([Server_Time], "dddd, dd-mm-yyyy, hh:nn AM/PM") = Format([Local_Time], "dddd, dd-mm-yyyy, hh:nn AM/PM"), "OK", "Not OK") DoCmd.GoToRecord , , acNewRec Me.Temp = Now() If Format([Server_Time], "dddd, dd-mm-yyyy, hh:nn AM/PM") = Format([Local_Time], "dddd, dd-mm-yyyy, hh:nn AM/PM") Then Me.iCompare = "OK" Me.iCompare.ForeColor = vbBlack Else Me.iCompare = "Not OK" Me.iCompare.ForeColor = vbRed End If End Sub جعفر

شكرا لك اخي محمد ، ولكن الاستاذ عبدالله يقول استعمل DMax ولا تستعمل DCount ، للسبب رقم 2 في ملاحظتي اعلاه 🙂 جعفر

هنا ملاحظة من الاستاذ المحاسب عبدالله قدور ، لما استعملت Dcount 🙂 جعفر

هولولولولولو وي (انا ازغرد ) الحمدلله 🙂 بس طلب الآن ، بما انك عرفت المشكلة ، فرجاء تجرب بقية البرامج ، لأننا جميعا بذلنا الوقت والجهد ، ونستحق ان نعرف اذا برامجنا اشتغلت (اعتبرها ضريبة وعليك دفعها 🙂 ) جميعنا جربنا برامجنا بالمرفقات اللي وضعتها انت ، واشتغلت ، فالظاهر انك تتكلم عن ملف آخر لم ترفقه !! وشكرا اخوي kanory على إحسانك وتفضلك 🙂 جعفر

وعليكم السلام 🙂 قمت بتغيير الكود ليناسب اسم الحقل 🙂 ولكن ومثل ما اخبرتك في آخر مشاركتي السابقة ، عملت جدول بإسم tbl_DateTime ، ونموذج يأخذ بياناته من الجدول ، ومن الجدول نأخذ وقت وتاريخ السيرفر ، فرجاء حوّل هذا الجدول الى SQL Server (بحيث انه لا يكون جدول اكسس) ، و اربطه مع النموذج ، ورجاء اخبرنا بالنتيجة : . اما المقارنة ، فهي بدون الثواني. جعفر 1250.Server_DateTime.mdb.zip

العفو اخوي ابو ابراهيم ، فأنا من المتابعين لعملك دائما ، وبالتفصيل 🙂 جعفر

اهلا وسهلا بك اخي الكريم في المنتدى 🙂 كنت سأتغاضى عن مخالفتك لقوانين المنتدى ، بوضع عنوان للسؤال لا يعطي مدلول للموضوع ، ولكن الواضح انك تعدمت بوضع عنوان لا علاقة له اصلا بالموضوع. يُغلق. ومرحبا بك بعمل موضوع آخر ، بمراعاة شروط المنتدى 🙂 جعفر

نعم

احسنت ، ورحم الله والديك دنيا وآخرة 🙂 جعفر

الموضوع سهل واخذ اكثر بكثير من حجمه 🙂 استعمل المرفق كالتالي: . . جعفر برنامج تصدير الطلاب للسجل الالكتروني حسب المادة معتمد.zip

مسار الملف موجود في الكود : TESTFILE = Application.CurrentProject.Path & "\Template.csv" TESTFILE = Application.CurrentProject.Path معناه مسار البرنامج ، واذا كانت قاعدة بياناتك قسمين ، فهذا مسار برنامج الواجهة وليس الجداول & "\Template.csv" اسم الملف

شوف اذا مشكلتك مثل هاي : جعفر

هذا الكود مثل كود اخوي صالح ، يحاكي قاعدة البيانات SQL Server مباشرة ، ومثل ما نعرف ، بما ان SQL Server موجودة على السيرفر ، فالسيرفر يكون له اسم دخول وكلمة سر ، ولكن هناك طريقة بأن تقدر ان تعمل اسم المستخدم وكلمة السر في قاعدة بيانات SQL Server مباشرة ، ودون حصولك على اسم المستخدم وكلمة سر السيرفر ، فهذا الكود يقوم بهذا العمل : cmd.ActiveConnection = "Provider=SQLOLEDB هذا ثابت ولا يتغير ;DataSource=yourserver او اسم السيرفر IP ;Database=yourDB اسم قاعدة البيانات ;UID=test اسم المستخدم ;PWD=test;" كلمة السر مثلا cmd.ActiveConnection = "Provider='SQLOLEDB';DataSource='\\192.168.1.125';Database='PersonnelDB';UID='jjafferr';PWD='NoWayToExposeIT';" --------------------------------------- ولكن ، ايش لك في البحر واهواله ورزق الله على السيف !! جميع هذه الطرق للاشخاص الذين يريدون عمل مقارنة لساعة الجهاز مع ساعة السيرفر ، بينما انت تريد وقت السيرفر في برنامجك المرتبط بالـ SQL Server مباشرة ، فخلينا نعمل شيء انت تعرفه ومتعود عليه وما بتحتاج الى مساعدة ، فبدلا عن استعمال Dlookup ، اعمل جدول فيه 3 حقول: حقل الرقم التلقائي ، وحقل التاريخ التلقائي (وتكون القيمة الافتراضية: ()Now او ()getdate ) ، وحقل مؤقت ، واعمل نموذج له ، وعند تحميل النموذج ، اعمل كود للذهاب الى سجل جديد ( docmd.GoToRecord,,acNewRec ) ، وسترى قيمة حقل التاريخ التلقائي (وهو المطلوب 🙂 ) ، ومن غير ان تضيف اي سجل 🙂 جعفر

لا انا ما عندي من هاي ، لا في الموقع ولا غيره ، فالحمدلله طمئنتني جعفر

بس انا اسمي موجود ، وانا انسان حساس جعفر

انت اخبرتني انك تريد الكود على هذا الزر ، فوضعته هناك 🙂 وللعلم ، علشان الكود يشتغل ، يجب ان يكون الملف Template.csv في نفس مجلد البرنامج. جعفر

تفضل 🙂 ونماذج برنامجك فيها خطأ لما تفتحها في وضع التصميم ، فقمت بإستيراد كائنات برنامجك الى برنامج جديد ، وانتهت المشكلة ، فرجاء استعمل هذا الملف من الآن ، والسؤال الآخر ، ليش لازلت تستعمل صيغة mdb ، انتقل الى accdb ، إلا اذا المستخدمين عنهم اكسس 2003 فما دون !! جعفر برنامج تصدير الطلاب للسجل الالكتروني حسب المادة معتمد.zip

🙂 هذا الكود الكامل : Dim TextLine Dim x() As String Dim TESTFILE As String Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From Mobaile") TESTFILE = Application.CurrentProject.Path & "\Template.csv" Open TESTFILE For Input As #1 ' Open file. Do While Not EOF(1) ' Loop until end of file. Line Input #1, TextLine ' Read line into variable. 'Debug.Print TextLine ' Print to the Immediate window. x = Split(TextLine, ";") If x(0) <> "IdentificationID" Then rst.AddNew rst!IdentificationID = x(0) rst!FullName = x(1) rst!MobileNumber = x(2) rst!ClassName = x(3) rst.Update End If Loop Close #1 ' Close file. rst.close: set rst = nothing جعفر

همممم كيف ، وكالعادة ، ما اعطيتني اي معلومات !! اي نموذج ، اي جدول !! جعفر

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

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

السلام عليكم 🙂 من تجربتي مع هذه الملفات ، للأسف الشديد ما ممكن عمل اصلاح لها ، وحتى اني رفعت احدها لأحد الشركات المتخصصة في استرجاع البيانات ، ولكن للأسف بدون فائدة !! نعم ، اذا كانت الجداول موجودة ، فهناك امل في استرداد البيانات بإستعمال برامج خارجية ، مثل هذه : جعفر