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

السادة الافاضل انا عندي تقرير اكسس وضعت عليه صورة عند ال 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:

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

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

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

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

اولا فى حالة الخطاء يذهب الى Command21_DblClick_Err ويقوم بعمل Rollback DBEngine.BeginTrans تضع قبل اوامر السيكول وفى النهاية امر DBEngine.CommitTrans اما CurrentDb.Execute لتنفيذ الاستعلام dbFailOnError فى حالة الخطاء الكود دة اشتغل معايا تمام انا عاوز استخدم DoCmd.OpenQuery "add output of production", acViewNormal, acEdit استعلام كامل بدل محول كل استعلام لسيكول

Private Sub Command21_DblClick(Cancel As Integer) On Error GoTo Command21_DblClick_Err DBEngine.BeginTrans CurrentDb.Execute "UPDATE production, [r sales invoice acc] SET production.[number] = [production]![number]-[r sales invoice acc]![number] WHERE ((([r sales invoice acc].auto)=[production]![auto]) AND (([r sales invoice acc].[kind code])='5shem') AND (([r sales invoice acc].[order number])=[Forms]![p sales invioce]![m1]));", dbFailOnError CurrentDb.Execute "write the sql here", dbFailOnError//dont forget this DBEngine.CommitTrans MsgBox "the invoice was migrated", vbInformation, "migrated" DoCmd.GoToRecord , "", acNewRec Command21_DblClick_Exit: Exit Sub Command21_DblClick_Err: DBEngine.Rollback MsgBox "roll back:" & vbCr & Err.Description Resume Command21_DblClick_Exit End Sub

لو الموضوع ملوش حل ياريت حد يفيدني

دورت علي الانترنت وليقت الحل دة وتمام اشتغل معايا بس انا لازم اكتب جملة سكول لو اية امكانية انو يشغل استعلام بدل جملة سيكول ياريت حد يفيدني

السادة الافاضل الرجاء المساعدة ولو ملهاش حل حد يرد عليا

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

السادة الافاضل بعد التحية والتقدير يوجد لدي مشكلة في الاكسس لدي زر يقوم بتنفيذ مجموعة استعلامات اضافة وتحديث واحيانا يقوم بتنفيذ البعض والبعض الآخر لا فهل يوجد كود فيجول بيسك لحل هذة المشكلة مثل php بحيث عند عدم تنفيذ جميع الاستعلامات يقوم بعمل rollback