محمود حاتم احمد

السادة الافاضل انا عندي تقرير اكسس وضعت عليه صورة عند ال viewالدنيا تمام لا أمل بحي اعمل print بيكون السطر الاول تمام والتاني ابيض والثالث تمام والرابع ابيض وهكذا انا عاوز الي النظام دة في التقرير فهل ليها حل

لو سمحت انا استخدمتو وكل شى تمام بس فى مشكلة معايا انو الرسائل الى بتيجى على الموبيل فيها اسم الموقع وبياكل جزء من الرسالة فهل فى حل للمشكله دى

شكرا اخى

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

شكرأ اخى كثيرا هى دى النتيجة الى انا عاوزة بالطبط

السادة الافاصل محتاج مساعدة في كود لفتح مسار مجلد عن طريق مسار واقدر افتح اي ملف منة ورد اكسل صورة بمعني انا لو اديته مسار ملف مثل new newfolder يفتح المسار دة ويعرض كل الملفات الي فية ولو اخترت اي ملف يفتحو اكسل او ورد او اي ملف

تمام اخي أبا جودي

عدلت على طريقة الاخ حسام ووصلت للمطلوب On Error GoTo MyErr Dim strFilePath As String Dim strFilePath2 As String strFilePath = "d:\mahmoud\data work\backup" strFilePath2 = "z:\Blocks_be.accdb" Dim OldFile, DBwithEXT, DBwithoutEXT, NewFile, CopyMyDB adad = strFilePath2 OldFile = adad DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) If Len(Dir(strFilePath, vbDirectory)) = 0 Then MkDir strFilePath SetAttr strFilePath, vbNormal End If NewFile = strFilePath & "\Blocks_be-" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-ss-AMPM.") & Right(DBwithEXT, 5) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 MyErr: If Err.Number <> 0 Then MsgBox Err.Number & " - " & Err.Description End If وشكرا جزيلا لكم على المساعدة الاكثر من رائعة

مثال انا القاعدة عندى على برتشن الشبكة z:/ والبرنامج على برتشن d:/ انا كنت عاوز البرنامج يعمل نسخة احطياتية من قاعدة الشبكة ويحطها فى ملف على البرتشن d: انا حاليا اطريت اخلى البرنامج على نفس برتشن الشبكة فى جهازى فقط وانقل النسخ الاحطياتية منول وبطريقة الاخ حسام استطعت تفادى طريقة النقل منول وعذرا للاطالة A.accdb

شكرا اخي هجرب الطريقة

السادة الافاضل بعد التحية لدى الكود المرفق Private Sub Command0_Click() On Error GoTo MyErr Dim OldFile, DBwithEXT, DBwithoutEXT, NewFile, CopyMyDB adad = CurrentProject.Path & "\Blocks_be.accdb" OldFile = adad DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) NewFile = CurrentProject.Path & "\backup\" & "Blocks_be-" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-ss-AMPM.") & Right(DBwithEXT, 5) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 MyErr: If Err.Number <> 0 Then MsgBox Err.Number & " - " & Err.Description End Sub لعمل نسخة احطياطية للقاعدة المشكلة التى لدى عند تحيد المسار من برتشن اخر لايعمل يجب ان يكون قريب من الملف مثل d:

وانا جربت بردو طريقة الاخ جاسر دلوقتي جميلة بردو شكرا اخي وارجو من الاخ أبا جودي ان يقوم بشرح الطريقة لاستفادة لجميع الاعضاء وشكرا جزيلا لكم

تمام الله ينور عليك اخي انا حولت ومعرفتش اصل للجداول 😁

اخى الفاضل شكرا للمساعدة لاكن نفس المشكلة

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