نجوم المشاركات

برنامج نقل النص العربي من إكسيل أو وُرِّد إلى الأتوكاد بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته عندما يكون عندك نصوص مكتوبة في ملف ورّد أو اكسيل وتريد نقلها إلى الأوتوكاد بفنط الأوتوكاد مثل Xarb فيجب إعادة كتابتها في الأتوكاد فهذا البرنامج يحوّل أي نص تكتبه مباشرة في مربع الحوار أو تنسخه من الورد أو يمكن تحديد عدد من الخَلايا إلى الأوتوكاد ولتشغيل البرنامج تفتح ملف في الأوتوكاد تختار فنط يعتمد على Xarb أو ما يشابهه ليكون هو الفنط الحالي ثم تفتح ملف الاكسيل وتشغل البرنامج من زر نقل النص الموجد بالملف وتكتب أي عبارة أو تنقلها نسخا من أي برنامج أو تختار مجموعة خلاليا في الإكسيل ثم تضغط الزر المقابل ثم تنتقل إلى الأوتوكاد فتختار نقطة البداية فينقل النص لها بعد تحويله يمكن نقل النص العربي من الورد أو الإكسيل إلى الأوتوكاد ولكن لا يعمل بطريقة صحيحة إلا ذا كان بفنطات الأوتوكاد مثل xarb فهذا البرنامج يساعدك على تحويل النص المكتوب في خلايا الإكسيل أو صفحة ورد إلى الأوتوكاد بفط xarb أو مثيله وعند استخدام البرنامج تفتح ملف أوتوكاد وتختار استيل يستخدم فنط xarb ثم تفتح ملف الإكسيل المرفق وتختار مجمعة من الخلايا بنها النص المراد نقله إلى الأوتوكاد أو نتسخ النص في المربع الموجود وتختار زر النقل ويمكن نقل نص من سطر واحد أو الخلية الحالية إلى ثم لسقها في الأوتوكاد نقل النص من إكسل او ورد إلى الأوتوكاد .xls

وعليكم السلام استخدم الامر التالي Dim stLinkCriteria As String stLinkCriteria = "[رقم السند]=" & Me![رقم السند] DoCmd.OpenForm "سند صرف", WhereCondition:=stLinkCriteria الملف مرفق 1253485438_.accdb

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

الان الصعوبة رقم 2 تم حلها ضمن حل صعوبة رقم 3 وطالما قمنا بعمل استعلام جديد مبني على الاستعلام الجدولي بامكننا ان نختار الاجماليات ونحدد الحقول ثم نختار المجموع

في الرد السابق تحدثنا عن حل الصعوبة الرابعة وقدمنا الحل لها عن طريق المعلمات والان ننتقل للصعوبة رقم 3 وهي ايضا ممكن حلها هذه ممكن عملها عن طريق حقل محسوب ولكن حتى لا نحصل على خطأ دائري نعمل استعلام جديد مصدره الاستعلام الجدولي ولان الحقول كثيرة ممكن نعمل موديل يحتوي على حلقة تكرارية تمر على حقول الاستعلام الاول ثم تجمع الحقول بعد استثناء اسم المؤسسة او الفرع Public Function sum_fld(id As String) As Double Dim rst As DAO.Recordset Dim fld As Field Dim x As Double Set rst = CurrentDb.OpenRecordset("Select * From [استعلام1] Where [NAME_REGION]= '" & [id] & "'") x = 0 For Each fld In rst.Fields If fld.Name <> "NAME_REGION" Then x = x + fld.Value End If Next sum_fld = x rst.Close End Function ونستدعي الدالة في الحقل المحسوب في الاستعلام الجديد sum_fld([NAME_REGION]) ربما ليس الكود المثالي ولكن يؤدي الغرض وانا كما اشير مجرد متقاعد والنتيجة تحياتي

السلام عليكم ... اخوتي واحبائي في الله اعضاء واساتذة هذا المنتدى الكريم .. تعلمت بعض من الاكسس من هذا المنتدى الحبيب ومما قرأته من بعض الكتب على سبيل الهواية ولم تكن البرمجة بابا من ابواب الرزق لي ..ربما بعد التقاعد 😂 خطر في بالي اليوم سؤال ... لو كان لي مطعم مثلا وبعدة طوابق ..وكل طابق يحوي مثلا على 20 او اكثر من الطاولات (تربيزة)... الكاشير يحتاج ان يفتح عدد من الفواتير ....ربما 20 او 40 بنفس الوقت ...ويبقيها مفتوحة لحين السداد وربما احتاج استدعي فاتورة بطاولة معينة للتعديل او الاضافة عليها ... ليس من المعقول ان اعمل 80 نموذج لو كان عندي 80 طاولة ! طبعا استطيع عمل اي فاتورة ثم الرجوع اليها عند السداد او تغيير الطلب ... لكني احس ان هذا غير احترافي عبر ازرار الرجوع سؤالي ..هل يمكن افتح نفس الفاتورة عدة مرات وحسب رقم الطاولة ...ثم عند دفع الزبون يتم حفظ الطلبيات في الجدول بصراحة انا لم اشتغل على البرنامج ...مجرد فكرة خطرت في بالي وسوف اشتغل عليها ان كانت هناك اي فكرة ... تحياتي لكم اساتذتي

Hamza_Gem.xlsm

وعليكم السلام -على الرغم من كثرة طلباتك !!! - تفضل لك ما طلبت جدول 1المباريات.xlsx

الله يوفقك قل آآآآآآآآآآآآآمين ي ابا بسمله ما قصرت ي غالي اقدر اسويها بالاستعلام

وعليكم السلام ورحمه الله وبركاته اتفضل اخى بالتوفيق 8889.accdb

وعليك السلام أخي @ابوبسمله 🙂 فعلا نقطة مهمة 👌🏼 والتفاته رائعة من عين خبير 😉 .. إذا أخي mohamedstar19 عليك أن تتأكد من الإعدادات الإقليمية لجهازك قبل البدء بالتطبيق .. 🙂

وعليكم السلام ورحمة الله وبركاته مهندسنا العزيز @Eng.Qassim 🙂 زادك الله علما وفهما ومتعنا الله بوجودك معنا 🌹 بالنسبة لي ولأني أحب التحديات والخروج عن المألوف جائت في بالي فكرة .. وهي أن يكون تصميم النموذج بهذه الصورة أمام المحاسب : حيث أن الطاولات الخضراء مشغولة .. والرمادية شاغرة .. وبالضغط على الطاولة المطلوبة يفتح نموذج الفاتورة الخاص بها حسب الرقم المكتوب ( وهو رقم الفاتورة ) بحيث يكون دايناميكي متغير .. وطبعا ألوان الطاولات تكون عبارة عن مربعات نص معمول لها تنسيق شرطي مثلا يتغير تلقائيا عند حجز الطاولة .. طبع الفاتورة تضل مخفية ( ومحجوزة في نفس الوقت ) إلى أن يتم الدفع .. وبهذه الطريقة نستغني عن نماذج الفواتير التي ستتكدس أمام المستخدم .. وفي ذات الوقت سيسهل الوصول إلى أي طاولة يريدها .. ما هور رأيك ؟؟ ولعلي أكون قد غفلت عن أشياء يعلمها أهل الحساب 😅 🌹

السلام عليكم و رحمة الله عذرا على التأخير بسبب ظروف خاصة ..ربما يفيدك هذا الكود Private Sub CommandButton2_Click() 'الأوراق المختارة Dim ws As Worksheet, b As Boolean, s As String, x As Integer Dim Arr(), Ln As Long, sh As Worksheet Dim p As Long, Cont As Long, C As Range, j As Integer Dim Tmp(), r As Long, f As Integer '''''''''''''''''''''' ' Arr تخزين اسماء الشيتات المطلوب العمل عليها فى المصفوفة For Each ws In Worksheets For x = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(x) = True Then s = ListBox1.List(x) If s = ws.Name Then ReDim Preserve Arr(p) Arr(p) = s p = p + 1 End If End If Next x Next ws '''''''''''''''''''''' ''Tmp' اعداد للمصفوفة الجديدة On Error Resume Next For i = 0 To UBound(Arr) For Each sh In Sheets(Arr(i)) Ln = Sheets(Arr(i)).Range("A" & Rows.Count).End(3).Row Cont = Cont + Ln Next Next ReDim Preserve Tmp(Cont - 1) r = 0 '''''''''''''''''''''''' ' ' Tmp' تخزين البيانات فى المصفوفة For j = 0 To UBound(Arr) For Each C In Sheets(Arr(j)).Range("A1:A" & Ln) If Len(C) > 0 Then Tmp(r) = C.Value r = r + 1 End If Next Next '''''''''''''''''''''''' ' استدعاء البيانات المخزنة للست بوكس With Me.ListBox1 .Clear .List = Tmp End With End Sub

وعليكم السلام ورحمة الله وبركاته جزاك الله خيرا اخي @ابوبسمله جاري التطبيق ....

حياك الله مجددا أخي محمد ،، 🙂 بعد البحث والتقصي أعتقد أن سبب هذه الرسالة هو عدم تمكن البرنامج من التعرف جيدا على ملف التحديثات الجديدة .. !! وهذا قد يحصل لأسباب عديدة كتلف الملف أو عدم اكتمال التحميل أو أو أو أسباب كثيرة لا داعي للتقصي عنها الآن .. وطبيعي جدا إذا لم تكتمل هذه الخطوة لن يستطيع البرنامج من تحديث النسخة لدى المستخدمين .. 🙂 لذلك أوصيك بالتالي : .. إذهب لملف التحديثات الحالي .. وقم بحذفه X X ثم قم بإعادة تحميل الملفات التي وضعتها لكم سابقا .. وخذ منها ملف التحديثات قم بإعادة ربط جداوله بقاعدتك القديمة BE .. ثم أعد محاولة أختيار ملف التحديثات مجددا وأخبرنا بالنتيجة 🙂

اتفضل اتمنى ا ن يكون المطلوب اما تصديره الى اكسل تستطيع من التقرير بالزر الايمن تصدير ثم تختر ما اردت من ملف بالتوفيق 1.accdb

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

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي ضع هده المعادلة في الخلية : (D8) لاستخراج الاسماء بدون تكرار =SIERREUR(SI(A2<>"";INDEX($A$2:$A$200;EQUIV(0;NB.SI($D$7:D7;$A$2:$A$200);0));"");"") وهده في الخلية (E8) للحصول على ارقام الصفحات مع سحب المعادلات للأسفل =JOINDRE.TEXTE("- "; VRAI; SI(SIERREUR(EQUIV(B2:B500; SI(D8=A2:A500; B2:B500; ""); 0); "")=EQUIV(LIGNE(A2:A500); LIGNE(A2:A500)); B2:B500; "")) f.xlsx

تفضل ..... اكمل تقرير للاستعلام .... Dtabase.accdb

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

استاذ عبداللطيف انا من متابعينك ع اليوتيوب من زماان ,, ماشالله عليك

وعليكم السلام ورحمه الله وبركاته 🙂 تفضل هذا كود تصدير استعلام معين إلى ملف أكسل - نقلته كما هو بدون تعديل - وطريقة استخدامه مشروحة في الكود : '--------------------------------------------------------------------------------------- ' Procedure : Export2XLS ' Author : Daniel Pineault, CARDA Consultants Inc. ' Website : http://www.cardaconsultants.com ' Purpose : Export recordset to Excel ' Copyright : The following may be altered and reused as you wish so long as the ' copyright notice is left unchanged (including Author, Website and ' Copyright). It may not be sold/resold or reposted on other sites (links ' back to this site are allowed). ' ' Input Variables: ' ~~~~~~~~~~~~~~~~ ' sQuery : Name of the table, or SQL Statement to be used to export the records ' to Excel ' ' Usage: ' ~~~~~~ ' Export2XLS "qryCustomers" ' Call Export2XLS("qryCustomers") ' ' Revision History: ' Rev Date(yyyy/mm/dd) Description ' ************************************************************************************** ' 1 2012-Apr-18 Initial Release ' 2 2015-May-01 Header Clarifications '--------------------------------------------------------------------------------------- Function Export2XLS(ByVal sQuery As String) Dim oExcel As Object Dim oExcelWrkBk As Object Dim oExcelWrSht As Object Dim bExcelOpened As Boolean Dim db As DAO.Database Dim rs As DAO.Recordset Dim iCols As Integer Const xlCenter = -4108 'Start Excel On Error Resume Next Set oExcel = GetObject(, "Excel.Application") 'Bind to existing instance of Excel If Err.Number <> 0 Then 'Could not get instance of Excel, so create a new one Err.Clear On Error GoTo Error_Handler Set oExcel = CreateObject("Excel.Application") bExcelOpened = False Else 'Excel was already running bExcelOpened = True End If On Error GoTo Error_Handler oExcel.ScreenUpdating = False oExcel.Visible = False 'Keep Excel hidden until we are done with our manipulation Set oExcelWrkBk = oExcel.Workbooks.Add() 'Start a new workbook Set oExcelWrSht = oExcelWrkBk.Sheets(1) 'Open our SQL Statement, Table, Query Set db = CurrentDb Set rs = db.OpenRecordset(sQuery, dbOpenSnapshot) With rs If .RecordCount <> 0 Then 'Build our Header For iCols = 0 To rs.Fields.Count - 1 oExcelWrSht.Cells(1, iCols + 1).Value = rs.Fields(iCols).Name Next With oExcelWrSht.Range(oExcelWrSht.Cells(1, 1), _ oExcelWrSht.Cells(1, rs.Fields.Count)) .Font.Bold = True .Font.ColorIndex = 2 .Interior.ColorIndex = 1 .HorizontalAlignment = xlCenter End With 'Copy the data from our query into Excel oExcelWrSht.Range("A2").CopyFromRecordset rs oExcelWrSht.Range(oExcelWrSht.Cells(1, 1), _ oExcelWrSht.Cells(1, rs.Fields.Count)).Columns.AutoFit 'Resize our Columns based on the headings oExcelWrSht.Range("A1").Select 'Return to the top of the page Else MsgBox "There are no records returned by the specified queries/SQL statement.", vbCritical + vbOKOnly, "No data to generate an Excel spreadsheet with" GoTo Error_Handler_Exit End If End With ' oExcelWrkBk.Close True, sFileName 'Save and close the generated workbook ' 'Close excel if is wasn't originally running ' If bExcelOpened = False Then ' oExcel.Quit ' End If Error_Handler_Exit: On Error Resume Next oExcel.Visible = True 'Make excel visible to the user rs.Close Set rs = Nothing Set db = Nothing Set oExcelWrSht = Nothing Set oExcelWrkBk = Nothing oExcel.ScreenUpdating = True Set oExcel = Nothing Exit Function Error_Handler: MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _ "Error Number: " & Err.Number & vbCrLf & _ "Error Source: Export2XLS" & vbCrLf & _ "Error Description: " & Err.Description _ , vbOKOnly + vbCritical, "An Error has Occurred!" Resume Error_Handler_Exit End Function

وعليكم السلا م ورحمة الله وبركاته ..تفضل جرب المرفق بحث برقم الجلوس.xlsm

أبسط الحلول هي أن تكون الملفات كلها فى مجلد واحد و بالتالي لا تتأثر بنقل المجلد بالكامل و اذا كان هناك ملف به معادلات مرتبط بملفات أخري بها مصدر للبيانات فى مجلد معين و تغير مكان هذا المجلد يمكنك استبدال المسار باستخدام خاصية الاستبدال CTR+H مثلا اذا كان المجلد الذي به البيانات سابقا فى المسار C:\Users\mtara\Desktop\@risk\4\ ز كان اسم الملف على سبيل المثال b.xlsx و كانت احدى المعادلات فى الملف الذي به المعادلات على سبيل المثال C:\Users\mtara\Desktop\@risk\4\[b.xlsx]bb'!$A$1 و تم نقل الملف b.xlsx الذي يمثل مصدر البيانات الي المسار C:\Users\mtara\Desktop\1\ فتصبح المعادلة ='C:\Users\mtara\Desktop\1\[b.xlsx]bb'!$A$1 فيتم تنفيذ الاستبدال كالتالي مرة واحدة فى ورقة العمل بالملف الذي به المعادلات فتتحدث كل المعادلات لتقرأ من الملفات التي هي فى المسار الجديد : و تتغير كل الملفات

وجدت هذا الملف في أحد المنتديات الأجنبية .. 🙂 وهي حيلة لعمل ذلك .. TabRight.accdb

اذكر مثال نزلته من المنتدى لكن لسن متاكد من صاحبه TabRight.accdb

وجدت هذه الاكواد فاردت ان يستفاد منها المبرمج المبتدئ مثلي 1 DoCmd.OpenForm "", acNormalفتح نموذج 2 DoCmd.OpenQuery "", acViewNormalفتح استعلام 3 DoCmd.OpenReport "", acViewNormalفتح تقرير 4 DoCmd.OpenTable "", acViewDesignفتح جدول 5 DoCmd.CloseacForm, "" فتح نموذج 6 DoCmd.CloseacQuery, "" فتح استعلام 7 DoCmd.CloseacReport, "" فتح تقرير 8 DoCmd.CloseacTable, "" فتح جدول 9 DoCmd.Beepصوت بيب + فيديو 10 DoCmd.CancelEventالغاء الامر 11 DoCmd.Quitاغلاق البرنامج 12 DoCmd.CloseDatabaseاغلاق قاعدة البيانات 13 DoCmd.DeleteObjectacForm, "" حذف نموذج 14 DoCmd.DeleteObjectacQuery, "" حذف استعلام 15 DoCmd.DeleteObjectacReport, "" حذف تقرير 16 DoCmd.DeleteObjectacTable, "" حذف جدول 17 DoCmd.GoToRecord , , acFirstالذهاب للسجل الاول 18 DoCmd.GoToRecord , ,acLastالذهاب للسجل الاخير 19 DoCmd.GoToRecord , ,acNewRecالذهاب للسجل الجديد 20 DoCmd.GoToRecord , ,acNextالذهاب للسجل التالى 21 DoCmd.GoToRecord , ,acPreviousالذهاب للسجل السابق 22 DoCmd.GoToRecord , , acGoTo, 2 الذهاب للسجل رقم2 23 DoCmd.Maximizeتكبير 24 DoCmd.Minimizeتصغير 25 DoCmd.Restoreاستعادة الوضع 26 DoCmd.MoveSize 2000, 5000 تموضع النموذج من الاعلى5000 واليسار2000 27 DoCmd.RefreshRecordتحديث الصفحة 28 DoCmd.Rename "2", acForm, "20" تغير اسم نموذج من 20 الى2 29 DoCmd.Rename "2", acQuery, "20" تغير اسم استعلام 30 DoCmd.Rename "2", acReport, "20" تغير اسم تقرير 31 DoCmd.Rename "2", acTable, "20" تغير اسم جدول 32 DoCmd.Requeryاعادة الاستعلام 33 [].Requeryاعادة استعلام داخل متغير 34 DoCmd.RunCommandacCmdDataEntryتحويل النموذج الى ادخال بيانات فقط 35 DoCmd.RunCommandacCmdNewObjectFormفتح معالج نموذج 36 DoCmd.RunCommandacCmdNewObjectQueryفتح معالج استعلام 37 DoCmd.RunCommandacCmdNewObjectReportفتح معالج تقرير 38 DoCmd.RunCommandacCmdNewObjectTableفتح معالج جدول 39 DoCmd.RunCommandacCmdOptionsفتح شاشة خيارات 40 DoCmd.RunCommandacCmdStartupPropertiesفتح بدا التشغيل 41 DoCmd.RunCommandacCmdOutputToExcelتصدير نموذج مجدول الى اكسيل 42 DoCmd.RunCommandacCmdPrintمربع حوار الطباعة 43 DoCmd.RunCommandacCmdQuickPrintطباعة الحالى 44 DoCmd.RunCommandacCmdRegisterActiveXControlsإظهار مربع حوار تسجيل عناصر تحكم أكتف أكس 45 DoCmd.RunCommandacCmdRelationshipsالعلاقات 46 DoCmd.RunCommandacCmdUndoتراجع عن 47 DoCmd.RunCommandacCmdWindowHideاخفاء جزء الانتقال 48 DoCmd.OpenReport "2", acViewPreviewDoCmd.RunCommand acCmdZoom500 فتح التقرير فى حجم 5 اضعاف 49 DoCmd.SetWarnings False ايقاف رسائل التاكيد الاجرائية 50 DoCmd.ShowToolbar "ribbon", acToolbarNoاخفاء الاشرطة

السلام عليكم انت اخ عزيز نحبك ونريدك بيننا والتقيد بشروط المشاركة يصب في صالحك اولا ثم في صالح المنتدى المستقبلي وأهم شيء : 1- اختيار العنوان المناسب 2- الاكتفاء بسؤال واحد لكل مشاركة بالنسبة لموضوعك : تم تعديل العنوان بما يناسب الموضوع تم التعديل على المثال من خلال نموذج واحد وهو frmAddNew حيث قمت بادراج مربع نص ( txtx) ثم اضفت هذا السطر ضمن الكود الخاص عند فتح النموذج txtx = .UserName تستطيع تطبيق ذلك على بقية النماذج up2.rar

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

السلام عليكم أيها الأخوه تجدون في الرابط التــــــــــــالــــــي موقع فيه تصميم لأنواع عديده من قواعد البيانات و هي حقيقة خاصة بالأوراكل لكن التصميم الهيكلي واحد في الأكسس و الأوراكل لكن المختلف فقط طبيعة الحقول و بنيتها الهيكلية و فما عليك الا دراسة التصميم ووانشاء الجداول و تعريفها و يمكن ايضا في حال الضغط على أي موديل من الموديلات الموجوده , طلب تصميم نفس القاعدة بالأكسس و ذلك من خلال الضغط على زر Ask Me For An Access Datatbase يصلك على ايميلك تصميم لقاعدة بالأكسس