jjafferr

نعم

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

الموضوع سهل واخذ اكثر بكثير من حجمه 🙂 استعمل المرفق كالتالي: . . جعفر برنامج تصدير الطلاب للسجل الالكتروني حسب المادة معتمد.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 جعفر

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

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

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

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

فكرة رائعة اخوي ابو ابراهيم 🙂 يعني لازم نبحث في برامج OCX ونشوف اللي ممكن تعمله 🙂 جعفر

1. نعم ، وبجعل المتغير TESTFILE يشير الى مكان وجود الملف ، هكذا : dim TESTFILE as string TESTFILE = "c:\temp\abc.csv" Open TESTFILE For Input As #1 ' Open file. 2. هنا يجب ان تستدعي الجدول عن طريقة Recordset ، او ان تعمل استعلام الحاقي ، وتضيف بيانات الحقول. جعفر

وعليكم السلام 🙂 بيانات اعمدة/حقول ملف csv ، بينها فاصلة او فاصلة منقوطة . اما الملف نفسه ، فبالاضافة ان انه يمكن فتحه بالاكسل ، فيمكن فتحه ببرنامج Notepad ، لأنه اصلا ملف txt . ممكن تقرا الملف هكذا : Dim TextLine dim x() as string 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,",") ' اما اذا كانت الفارزة في الملف فاصلوة منقوطة ، فاستعملها بدل الفاصلة الحقل 1 = x(0) الحقل 2 = x(1) الحقل 3 = x(2) الحقل 4 = x(3) الحقل 5 = x(4) الحقل 6 = x(5) Loop Close #1 ' Close file. جعفر

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

وجدت كود ليقرأ من SQL Server مباشرة ، وتركته في البرنامج ، ولكني ام افعّله : Dim cmd As New ADODB.Command Dim RS As New ADODB.Recordset cmd.ActiveConnection = "Provider=SQLOLEDB;DataSource=yourserver;Database=yourDB;UID=test;PWD=test;" cmd.ActiveConnection.CursorLocation = adUseClient cmd.CommandText = "Select getdate()" Set RS = cmd.Execute Debug.Print RS(0) RS.Close cmd.ActiveConnection.Close . استخدم دالة Format ، بحيث time_date_server هو حقل تاريخ السيرفر ، هكذا: if format(time_date_server ,"dd/mm/yy") <> format(date() ,"dd/mm/yy") then msgbox "تاريخ السيرفر لا يطابق تاريخ الكمبيوتر" elseif format(time_date_server ,"hh") <> format(date() ,"hh") then msgbox "ساعة السيرفر لا تطابق ساعة الكمبيوتر" end if جعفر

وعليكم السلام 🙂 نعم اعرف هذا ، لهذا السبب لم اذكر كلمة BE او محل تواجدها ، بينما في الرابط اعلاه ذكرت هذا لأن @سلمان الشهراني لم يكن يستعمل SQL Server : . انت لن تعمل مجلد مشاركة لتضع فيه اي شيء له علاقة ببرنامجك ، ويمكنك استعمال اي مجلد مشاركة عام في السيرفر ، حيث ان هذه الطريقة تختاج الى عمل ملف txt على الجهاز الآخر (السيرفر في حالتك). اما الآن فاترك كل ما عملناه ، وخلينا نتكلم عن السيرفر 🙂 انت استلمت رسالتين خطأ : 1. Type mismatch ، وهذا بسبب خطأ في السطر التالي من الكود : بدلا عن If Err.Number = 70 Then MsgBox "Permission Denied" MachineTimeGet = "" استعمل If Err.Number = 70 Then MsgBox "Permission Denied" MachineTimeGet = Empty بعد البحث ، وجدت الطريقة ، ووضعتها في نموذج جديد: جعفر 1176.my_FE_Network_PC_Time.mdb.zip

همممم ليش كل هذه الاسطر !! اذا كنت عامل علاقات بين الجداول ، وكنت مختار "حذف البيانات المرتبطة" (الاختيار الثالث في المربع الاحمر والذي عليه السهم) : يكفي ان تحذف بيانات الجدول الرئيسي فقط ، وبقية الجداول سوف تحذف بياناتها تلقائيا 🙂 يعني حسب اسماء الجداول في الصورة ، لو حذفنا بيانات الجدول tbl_Persone_Static (الجدول الذي حوله المربع الاحمر) ، فتلقائيا بيانات جميع الجداول المرتبطة به سوف يتم حذفها ، هذه ميزة وعمل الاختيار رقم 3 🙂 جعفر

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

وعليكم السلام 🙂 يمكنك جعل البرنامج يتأكد من وجود هذا الملف ، عند فتح اول نموذج ، وعلى حدث "التحميل" او "الفتح" : if Dir("D:\Test\AMIN.xls") ="" then msgbox "لم يتم الحصول على الملف المطلوب" exit sub 'اخرج من البرنامج endif جعفر

السلام عليكم 🙂 لا يكفي ان تكتب رقم IP السيرفر ، بينما يجب ان تكتب اسم المجلد الذي لك فيه صلاحية الكتابة Read/Write ، مثل : . وعملنا تعديل في الوحدة النمطية ، بحيث تأخذ اسم مجلد السيرفر من حقل النموذج : Public Function Make_File3(BE_Path As String) On Error GoTo err_Make_File3 Dim PauseTime, Start 'we need the path to have a slash at its end If Right(BE_Path, 1) <> "\" Then BE_Path = BE_Path & "\" End If BE_Path = BE_Path & "dummy.txt" 'make the dummy txt file Open BE_Path For Output As #1 Print #1, "No text required" Close #1 'pasue for a second, until file is recognized, for slow networks PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop 'get the date created Make_File3 = FileDateTime(BE_Path) 'clean up, delete the file Kill BE_Path Exit_Make_File3: Exit Function err_Make_File3: If Err.Number = 75 Then MsgBox "Access Denied" & vbCrLf & "لا تملك الصلاحية في الكتابة في المجلد" Else MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_Make_File3 End Function . ونناديها من النموذج هكذا: Me.srvr_Date_Time = Make_File3(Me.srvr_Domain_Name) جعفر 1176.my_FE_Network_PC_Time.mdb.zip