ناقل

تابع المناقشات هنا

خرجت من البرنامج ولم ارى الرسالة ... انظر ....

ليست هناك اي مشكلة لاحظ ..... هذا الكلام على مرفقي السابق ...

انظر هذا المرفق ربما توضح لك بعض التصورات من هنا

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

طيب .... بارك الله فيك انا كنت اريد بيانات وهمية للسجلات .... يعني اكثر من سجل حتى ادرك طريقة ملئ الجدول .... على كل حال هذا مثال من مكتبتي .... انظر وتفحص المثال .... ثم حاول التطبيق .... ان لم تستطع اطرح سؤالك ... AdvFind.mdb

لا نماذج ولا بيانات ......؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

طيب جرب واعلمنا بالنتيجة ..................... s.rar

طيب هو المفروض السائل يضع المثال حتى يتم التطبيق عليه .... على كل حال .... ناقل_&&&.mdb

تفضل ......

عند حدث الفتح ضع هذا الكود ..... 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

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

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

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

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

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