kanory

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

أخي عصام استخدم هذا الكود DoCmd.OutputTo acOutputReport, "كشف متابعة الطلاب", "MicrosoftExcelBiff8(*.xlsx)", "", True, ".xlsx", , acExportQualityPrint

لمعرفة تاريخ الميلاد استخدم Me![DateOfBirth] = Format(IIf(Left([IDNumber], 1) = 3, Mid([IDNumber], 2, 2) + 2000, Mid([IDNumber], 2, 2) + 1900) & "/" & Mid([IDNumber], 4, 2) & "/" & Mid([IDNumber], 6, 2), "yyyy/mm/dd")

اضف هذا السطر في بداية الكود On Error Resume Next

اخي الكود سليم ...

عفوا ماهي التغليمة البرمجية التي هي تحت هذا الزر

وعليكم السلام ...... يبدو والله أعلم أن هناك السجل الحالي مفقود أو غير موجود أو ان مربع النص خالي

وعليكم السلام ورحمة الله وبركاته استخدم txt1 = Mid(txt, 6, 1) ' txt1 اسم مربع النص الذي يظهر الرقم الخامس ' txt مربع النص الذي به الرقم

هذه امثلة مشابه في الموقع

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

للاسف اخي ليس لدي اوفيس ١٠ لاجرب

وعليكم السلام ورحمة الله اخي انظر هنا

تفضل أخي الكريم هل هذا مطلوبك Ka_tast1.rar

وعليكم السلام اسمح لى أخي جعفر ..... لأن السؤال باسمك .... أرجو المعذرة تفضل هل هذا مطلوبك Ka_tast.rar

وعليكم السلام ورحمة الله وبركاته أرجو أن يكون هذا هومطلوبك Kanory-Path.rar

مشاركتي خجوله لأني اشارك بعد مشاركة حبيبنا جعفر ... استاذنا الكبير Ka-‏‏example.rar

تفضل أخي محمد Ka-Dash.rar

موجودة الخانة اخي امكن المشكلة في جهازك .. هل هو جوال ام كمبيوتر

الاستعلام للربط بين الحقول . بارك الله فيك

هل هذا مطلوبك Ka_Database2.rar

تفضل ضغ هذا الكود في الفورم Private Sub Form_Timer() If MyTime = Empty Then MyTime = Now() 'غير الرقم واحد الى الرقم أو الدقائق المطلوبة If Now() >= DateAdd("n", 1, MyTime) Then DoCmd.Close End Sub

ما شاء الله عليك ... انت دكتور فعلا وليس قولا .... عجبتني 3 حبات فقط ... وصفة مضاد حيوي 😁

هذا المثال قد يعمل معك حسب الأوفيس Ka_Options.rar

للمزيد من المعلومات راجع الرابط https://msdn.microsoft.com/en-us/library/office/aa172326(v=office.11).aspx

وعليكم السلام استخدم هذا الكود من خلال وحدة نمطية واستدعيه من خلال النموذج Function SetOptions() 'View Tab Application.SetOption "Show Status Bar", -1 Application.SetOption "Show Startup Dialog Box", -1 Application.SetOption "Show Hidden Objects", -1 Application.SetOption "Show New Object Shortcuts", -1 Application.SetOption "Show System Objects", -1 Application.SetOption "Show Macro Names Column", -1 Application.SetOption "Show Conditions Column", -1 Application.SetOption "Database Explorer Click Behavior", 1 Application.SetOption "ShowWindowsInTaskbar", -1 'General Tab Application.SetOption "Left Margin", 5 Application.SetOption "Right Margin", 5 Application.SetOption "Top Margin", 5 Application.SetOption "Bottom Margin", 5 Application.SetOption "Four-Digit Year Formatting", 0 Application.SetOption "Four-Digit Year Formatting All Databases", -1 Application.SetOption "Track Name AutoCorrect Info", -1 Application.SetOption "Perform Name AutoCorrect", -1 Application.SetOption "Log Name AutoCorrect Changes", 0 Application.SetOption "Enable MRU File List", -1 Application.SetOption "Size of MRU File List", 4 Application.SetOption "Provide Feedback with Sound", 0 Application.SetOption "Auto Compact", 0 Application.SetOption "New Database Sort Order", 1033 Application.SetOption "Remove Personal Information", 0 'Edit/Find Tab Application.SetOption "Default Find/Replace Behavior", 0 Application.SetOption "Confirm Record Changes", -1 Application.SetOption "Confirm Document Deletions", -1 Application.SetOption "Confirm Action Queries", -1 Application.SetOption "Show Values in Indexed", -1 Application.SetOption "Show Values in Non-Indexed", -1 Application.SetOption "Show Values in Remote", 0 Application.SetOption "Show Values Limit", 1000 'Datasheet Tab Application.SetOption "Default Font Color", 0 Application.SetOption "Default Background Color", 15 Application.SetOption "Default Gridlines Color", 8 Application.SetOption "Default Gridlines Horizontal", -1 Application.SetOption "Default Gridlines Vertical", -1 Application.SetOption "Default Column Width", 3 Application.SetOption "Default Font Name", "Arial Black" Application.SetOption "Default Font Weight", 7 Application.SetOption "Default Font Size", 12 Application.SetOption "Default Font Underline", False Application.SetOption "Default Font Italic", False Application.SetOption "Default Cell Effect", 0 Application.SetOption "Show Animations", True Application.SetOption "Show Smart Tags on Datasheets", True 'Keyboard Tab Application.SetOption "Move After Enter", 1 Application.SetOption "Behavior Entering Field", 1 Application.SetOption "Arrow Key Behavior", 0 Application.SetOption "Cursor Stops at First/Last Field", -1 'Tables/Queries Tab Application.SetOption "Default Text Field Size", 50 Application.SetOption "Default Number Field Size", 4 Application.SetOption "Default Field Type", 0 Application.SetOption "AutoIndex on Import/Create", "" Application.SetOption "Show Table Names", -1 Application.SetOption "Output All Fields", 0 Application.SetOption "Enable AutoJoin", -1 Application.SetOption "Run Permissions", 1 Application.SetOption "Substitute Font Name", "Arial Black" 'Forms/Reports Tab Application.SetOption "Selection Behavior", 0 Application.SetOption "Form Template", "Normal" Application.SetOption "Report Template", "Normal" Application.SetOption "Always Use Event Procedures", -1 Application.SetOption "Show Smart Tags on Forms", -1 Application.SetOption "Themed Form Controls", -1 'Advanced Tab Application.SetOption "Default Record Locking", 0 Application.SetOption "Default Open Mode for Databases", 0 Application.SetOption "Ignore DDE Requests", 0 Application.SetOption "Enable DDE Refresh", -1 Application.SetOption "OLE/DDE Timeout (Sec)", 30 Application.SetOption "Number of Update Retries", 5 Application.SetOption "ODBC Refresh Interval (Sec)", 60 Application.SetOption "Refresh Interval (Sec)", 10 Application.SetOption "Update Retry Interval (Msec)", 250 'International Tab Application.SetOption "Default direction", 1 Application.SetOption "General alignment", 0 Application.SetOption "Cursor movement", 0 Application.SetOption "Use Hijri Calendar", False 'Error Checking Tab Application.SetOption "Enable Error Checking", -1 End Function وهناك بعد الاختلافات حسب نوع الأوفيس