نجوم المشاركات

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

السلام عليكم و رحمة الله و بركاته على الجميع ابو عبدالرحمن اتفضل هذي المشاركة من طرفي يمكن تفي بالغرض برنامج_تصدير_الطلاب_للسجل_الالكتروني_حسب_المادة_معتمد.mdb

وهذه مشاركة تفضل ..... Deffi.rar

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

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

السلام عليكم مشاركه مع اخى @ابو البشر جزاه الله خيرا اتفضل التعديل على مثالك ملحوظه يفضل عدم استخدام اللغه العربيه فى التسميه واستخدمها فالتسميه التوضيحيه =DateDiff("d";[تاريخ السريان];[تاريخ اليوم]) بالتوفيق قاعدة البيانات2.accdb

ممكن مثال مبسط للتعديل عليه

أهلا بكم.. أتسائل لماذا لم يجرب أحد أسلوبي 😟 IMPORT CSV DATA .zip

ووالديك اخي واستاذي جعفر وكافة اخواننا 🌹

جرب هذا لعله يكون المطلوب شيكات.xlsm

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

ملف الاكسل متغير ليس الملف الذي عمل عليه الاستاذين جعفر وابو ابراهيم ...... انظر هذا التنسيق الي اشتغلوا عليه ..... انظر

ارفق الملف الذي تعمل عليه الان ... عشان ما تصير تداخل في الملفات

في زر أمر اختيار الملف غير الشفرة بهذه ' open the windows file dialog to select the file With Application.FileDialog(1) .Title = "Choose File" .Filters.Clear .Filters.Add "Excel Files", "*.xls ; *.xlsx" .Filters.Add "CSV Files", "*.csv" .Filters.Add "All File", "*.*" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then Me.txtPath = .SelectedItems(1) End If End With

مافهمت والله لكن جرب TTT.accdb

تم اعطاءك مثال مبس للتعديل عليه جزاك الله خيرا لان الملف الاصلي كبير و الموقع لا يقبله بسبب حجمه

هذا ملف اخر اذا كنت تريد الكسور Tafkeet_Daraga_with_fraction.xlsm

دالة datedif موجودة في جميع إصدارات إكسل ولكنها غير موجودة في قائمة الدوال ولا تظهر في الإكمال التلقائي نظرا لاختلاف عالمي في طريقة حساب الفرق بين تاريخين ويمكنك الاستفادة من هذا الرابط https://www.mr-mas.com/p/datedif.html لخساب الفرق بين تاريخين أونلاين وفي برنامج ميكروسوفت إكسيل

أهلا بكم.. لإدراج بيانات من ملف CSV إلى جدول بنفس الحقول مع استبعاد التكرار استخدم الجملة التالية INSERT INTO TEMPLATE SELECT * FROM [TEMPLATE#CSV] IN '.'[TEXT; HDR=YES;] WHERE NOT IdentificationID=ANY(SELECT IdentificationID FROM TEMPLATE);

أهلا بكم.. تنسيق ملف CSV المرفق ليس وفق معايير التنسيق الصحيحة لهذا النوع من الملفات النصية، وبالتالي لا يمكن أن يعيد بيانات متناسقة بيانات ملف CSV لا يمكن أن تكون مفصولة بفاصلة منقوطة أبدا.. على أية حال؛ يمكنك أن تستعرض بيانات هذا النوع الملفات بالطريقة التالي: في محرر الاستعلام أكتب النص التالي SELECT * FROM [TEMPLATE#CSV] IN '.'[TEXT; HDR=YES;] النقطة بين علامة الاقتباس تشير إلى الدليل الحالي لقاعدة البيانات وذلك بناء على الدليل الافتراضي في خيارات أكسس. إذا كنت تريد لأكسس أن يعين الدليل الحالي كدليل افتراضي؛ قم بتغيير الدليل الافتراضي إلى نقطة أيضا.. هذا المثال للتوضيح Access With CSV.zip

الموقع ليس به عطل الموضوع كان فقط انتهاء تاريخ صلاحية شهادة الامان SSL وهي اختصار لـ Secure Socket Layer وهي خاصة ببروتوكل الاتصال الامن المشفر https يمكن تجاوز الشهادة بمتصفح ايدج ومتصفح Brave من خلال اضافة استثناء ولكن الامر مزعج وغير عملي اما متصفح فايرفوكس متصفحي الاساسي فلا يسمح باي استثناء بشكل شرعي وانما يمكن اضافة استثناء بطريقة معقدة مشابهه لاستخدام البينج لتجاوز المواقع المحجوبة ولكن الامر يتطلب تكرار العملية عند كل انتقال وهو امر مزعج وغير عملي اما متصفح كروم فلا علم لدي لكوني لا استخدمه ssl لها ثلاث اقسام التحقق الموسع وهي تظهر مكان الاستظافة ومعلومات المؤسسة على شريط العنوان شهادة التحقق لاثبات الملكية وهي مفيدة للمتاجر الالكترونية وتعطي المتسوق ثقة في الموقع وانه ليس موقع تصيد شهادة التحقق من الدوماين وهي الاكثر استخدام وهذا النوع يعطي مصداقية مقبولة للمتصفحين مناسبة للمنتديات حاليا الموقع يعمل بشكل جيد حيث ان الشهادة الحالية من تاريخ 25/8/2020 وتنتهي بتاريخ 26/8/2021

تفضل اخي التعديل على الملف الأخ @ةm7md83 اختيار من الجدول للتقرير.rar

السلام عليكم لقد وصلت متأخرا فوجدت الأستاذ جعفر فعل كل شيء ما شاء الله عليه. لذلك سوف أضع مشاركتي على الرغم أنها تشبه كثيرا كود الأستاذ جعفر 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=" & Me.Comp1 Set RS = str_conn.Execute("select GETDATE()") MsgBox RS(0) Set RS = Nothing str_conn.Close Me.Comp1 هو اسم مربع اسم السرفر

وجدت كود ليقرأ من 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

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

السلام عليكم 🙂 لا يكفي ان تكتب رقم 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

وعليكم السلتم ورحمة الله وبركاته تفضل اخي الكريم هذا موضوع مشابه لما تريد تحياتي

غير فقط activesheet الى نطاق الصفحة الاولى ActiveSheet.ExportAsFixedFormat xlTypePDF, mypath & "\" & Range("a11").Value & ".pdf", xlQualityStandard لتصبح ActiveSheet.Range("A1:i33").ExportAsFixedFormat xlTypePDF, mypath & "\" & Range("a11").Value & ".pdf", xlQualityStandard

بفضل من الله ثم بدعائكم تم دمج السندات مع بيانات أرس الفاتورة مع أطرفها في فاتورة واحد تدعم الطابعة الحرارية اعطوني رأيكم في التصميم والبيانات التي تريدونها .

السلام عليكم الأفضل عملها نصف يدويا كالتالي مثلا إسم محمد إستخدم خاصية الاستبدال Ctrl-H مرتين المرة الأولي لاستبدال "محمد" بـ " محمد " أي تستبدله بما يزيد عليه بمسافة قبله ومسافة بعده وتكرر ذلك مثلا لكلمة "عبد" وأي إسم آخر تشتبه في أن به خطأ ثم المرة الثانية لاستبدال مسافتين متتابعتين" " بـمسافة واحدة" " أي تستبدل أي مسافتين متتابعتين في الشيت بمسافة واحدة =============== لاحظ أن عند استخدام المرة الأولي سينتج كثيرا من المسافتين المتتابعتين