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

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