ناقل

تفضل ......

عند حدث الفتح ضع هذا الكود ..... Me.AllowEdits = False

اهلا ابا ابراهيم .... نحتاج كثيرا هذه الفلسفة .... كثر.. جزاك الله خيرا .... لاننا والله نستفيد كثيرا من ردودك .... بارك الله فيك وفي علمك ....

حسب العنوان والمعمول به 10 طلاب الا اذا كان التكريم حسب المجموع ؟؟؟؟

استخدم هذه الشيفرة ...... Project_path = DLookup("[Folder_Path]", "msar_folder_tb", "[ID]=2") DBOld = CurrentProject.Path & "\2URL.accdb" DBNew = Project_path & "\backup_2URL" Shell "cmd.exe /C copy " & """" & DBOld & """" & " " & """" & DBNew & "\" & Format(Now, "yyyy-mm-dd@hh.nn.ss") & "2URL" & ".accdb" & """", 0 MsgBox Space(20) & "تمت العملية بنجاح.." & Space(20), msgstyle, "للمعلومية"

مشاركة مع اخي الحبيب .... استخدم هذه الشيفرة في الزر ...... Dim Project_path, Dir_File As String Project_path = DLookup("[Folder_Path]", "tbl_msar_folder", "[Auto_ID]=1") Dir_File = Project_path & "\ملفات تم تصديرها\" DoCmd.OutputTo acOutputForm, "تذاكر_نموذج_استعلام", "PDFFormat(*.pdf)", Dir_File & "تذاكر " & Format(Now, "DD-MM-YYYY") & ".pdf", False

هناك طرق كثيرة في المنتدى ... ابحث عنها ... وهذه واحدة منها

وعليكم السلام ورحمة الله وبركاته حسب علمي عند هذه الخوارزميات MD5 هي ذو اتجاه واحد ولا يمكن فك تشفيرها ... والله أعلم ...

طيب استخدم هذا الكود ........ DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Tablex", m_strFileName, True Dim s As Integer Dim rst As DAO.Recordset Dim rst2 As DAO.Recordset Dim dbs As DAO.Database Dim dbss As DAO.Database Dim tdf1 As TableDef Dim tdf As TableDef Dim fld, fld1 As Field Dim tbl, tbl1 As String tbl = "Table" tbl1 = "Tablex" Set dbs = CurrentDb Set dbss = CurrentDb Set tdf = dbs.TableDefs(tbl) Set tdf1 = dbss.TableDefs(tbl1) Set rst2 = dbs.OpenRecordset(tbl) Set rst = dbss.OpenRecordset(tbl1) rst.MoveLast If rst.Fields.Count <> rst2.Fields.Count Then GoTo dd If IsNull(rst.Fields(1)) Then GoTo dd For Each fld In tdf.Fields s = 0 For Each fld1 In tdf1.Fields If fld.Name = fld1.Name Then s = s + 1 Next fld1 If s = 0 Then GoTo dd Next fld Set dbss = Nothing Set dbs = Nothing rst.Close DoCmd.SetWarnings False DoCmd.OpenQuery "import_tbl" DoCmd.DeleteObject acTable, "Tablex" DoCmd.SetWarnings True txtImportFile = "" MsgBox "Data imported successfully" Exit_أمر8_Click: Exit Sub dd: rst.Close MsgBox "هناك اختلاف في اسماء الحقول " DoCmd.SetWarnings False DoCmd.DeleteObject acTable, "Tablex" DoCmd.SetWarnings True

طيب طبقنا هذا الكود للمقارنة بين حقول الجدولين ..... DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Tablex", m_strFileName, True Dim s As Integer Dim dbss As Database, tdf1 As TableDef Dim dbs As Database, tdf As TableDef Dim fld, fld1 As Field Dim tbl, tbl1 As String tbl = "Table" tbl1 = "Tablex" Set dbs = CurrentDb Set dbss = CurrentDb Set tdf = dbs.TableDefs(tbl) Set tdf1 = dbss.TableDefs(tbl1) For Each fld In tdf.Fields s = 0 For Each fld1 In tdf1.Fields If fld.Name = fld1.Name Then s = s + 1 Next fld1 If s = 0 Then GoTo dd Next fld Set dbss = Nothing Set dbs = Nothing DoCmd.SetWarnings False DoCmd.OpenQuery "import_tbl" DoCmd.DeleteObject acTable, "Tablex" DoCmd.SetWarnings True txtImportFile = "" MsgBox "Data imported successfully" Exit_أمر8_Click: Exit Sub dd: MsgBox "هناك اختلاف في اسماء الحقول" DoCmd.SetWarnings False DoCmd.DeleteObject acTable, "Tablex" DoCmd.SetWarnings True تفضل ملفك بعد التعديل ..... Access Import.accdb

اخي الكريم ابحث في المنتدى عن طابعة الباركود تجد العديد من الموضوعات منها هذا

هل هناك طابعة تطبع على ورق بهذا الحجم لديك

الملصق لديك هل في الورقة الواحدة ملصق واحد فقط ... !!!

ممكن صورة لنوعية الملصقات لديك ...

وضح ..... لم يضبط طريقة الاستاذ جعفر في الحصول على نوع الملصق الخاص بك ..... ام لم تستطع عمل الخطوات ؟؟؟؟؟؟

اذا كانت المقاسات ثابتة وغير متغيرة .... ما يضر تحويل القاعدة mde

اقرأ الموضوع .....

هل هو ملصق ؟؟؟

تفضل ..... Dim msgstyle Dim DBOld As String Dim DBNew As String DBOld = Me.txtTAB1 'اختيار قاعدة بيانات الجداول DBNew = txtPathToExport 'اختيار مكان حفظ النسخة Shell "cmd.exe /C copy " & """" & DBOld & """" & " " & """" & DBNew & "\" & "DATA.accdb" & """", 0 MsgBox Space(20) & "تمت العملية بنجاح.." & Space(20), msgstyle, "للمعلومية"

هل جربت مرفقي ام لا ....

تفضل جرب المرفق .... ناقل_22_1.mdb

طيب حلمك علينا .... ناخذها حبة حبة .... جرب كدة واعطينا ملاحظاتك وحدة وحدة ....حاول تضغط جديد ولاحظ !!! حذف من الفرعى.accdb

طيب اخي الكريم هل الحقول الثابتة فقط الرقم والاسم ام هناك حقوا اخرى ثابتة

ممكن تضع زر حفظ بعد اضافة ما تريد في الفاتورة . عندها فقط يقوم البرنامج بادراج رقم الفاتورة ... اي لا تجعل رقم الفاتورة يظهر تلقائي بمجرد فتح نموذج الفاتورة ولكن يتم ادراج رقم الفاتورة بعد الحفظ ... انا اكتب من الموبايل للاسف

تفضل ....... رساله للمتسخدم.accdb