كل الانشطه

وعليكم السلام ورحمة الله تعالى وبركاته.. خلينا نمشي حبة حبة بالأول ، ونوقف عند المطلب الاول. ممكن توضحه أكتر .. يعني لو اخترنا المخزن أ ، ما علاقته بالعميل او الموقع ؟؟؟؟ نرجو منك التوضيح اكثر من مجرد كلمات قليلة كما في طلبك.

عملت كل ما قلته لي استاذ ولكن لا اعرف اين المشكلة يمكن تذبذبت افكاري اصبح الكود لا ينقل القيم اصلا اي رجعنا لنقطة الصفر وهل استغنى عن هذا Dim Objwrd As Object Sub OpenClsword(Docfile As String) On Error Resume Next Dim GetObjwrd As Object Dim ClsObjwrd As Object If Not IsFileOpen(Docfile) Then Set Objwrd = CreateObject("Word.Application") Objwrd.Documents.Open (Docfile) Objwrd.Visible = True ' Me.co1.Caption = "أغلاق وورد " Exit Sub End If Set GetObjwrd = GetObject(, "Word.Application") Set ClsObjwrd = GetObjwrd.Documents.Open(Docfile) GetObjwrd.Application.DisplayAlerts = False If GetObjwrd.ActiveDocument.Saved = True Then ClsObjwrd.Close GetObjwrd.Quit Else If MsgBox("هل تريد حفظ المستند", _ vbQuestion + vbYesNo, _ "حفظ المستند") = vbYes Then ClsObjwrd.Close GetObjwrd.Quit Else GetObjwrd.ActiveDocument.Saved = True ClsObjwrd.Close GetObjwrd.Quit End If End If Set Objwrd = Nothing Set GetObjwrd = Nothing Set ClsObjwrd = Nothing 'Me.co1.Caption = "فتح وورد " End Sub Function IsFileOpen(strFile As String) As Boolean Dim i As Integer i = FreeFile If Dir(strFile) = "" Then IsFileOpen = False: Exit Function Err = 0 On Error Resume Next Open strFile For Binary Access Read Lock Read Write As #i If Err Then IsFileOpen = True Close #i End Function 2025.rar

طيب استخرج المجلد بجوار القاعدة ثم استخدم هذا الكود Sub ExportReports_To_OnePDF_PDFtk() Dim arrReports As Variant Dim i As Integer Dim strTempFolder As String Dim strFinalPDF As String Dim strPDFtk As String Dim strCmd As String strPDFtk = CurrentProject.Path & "\PdftkBuilderPortable\pdftk.exe" strTempFolder = CurrentProject.Path & "\TempPDF\" strFinalPDF = CurrentProject.Path & "\AllReports.pdf" arrReports = Array("rpt1", "rpt2", "rpt3") If Dir(strTempFolder, vbDirectory) = "" Then MkDir strTempFolder End If If Dir(strTempFolder & "*.pdf") <> "" Then Kill strTempFolder & "*.pdf" End If For i = LBound(arrReports) To UBound(arrReports) DoCmd.OutputTo acOutputReport, arrReports(i), acFormatPDF, _ strTempFolder & (i + 1) & "_" & arrReports(i) & ".pdf", False Next i strCmd = """" & strPDFtk & """ " & _ """" & strTempFolder & "*.pdf"" cat output " & _ """" & strFinalPDF & """" Shell strCmd, vbHide MsgBox "تم إنشاء ملف PDF واحد بنجاح ?" & vbCrLf & strFinalPDF, vbInformation Kill strTempFolder & "*.pdf" End Sub PdftkBuilderPortable.rar

أنا أحتاج كل التقارير في ملف واحد ( يعني ملف وبداخله كل التقارير )

رؤية اية معذرة انا مش فاهم حاجة هل فى اى مشكلة

اذا كان هدفك تصدير عدة تقارير دفعة واحدة بملف PDF واحد ، فأنت ستحتاج الى تقرير واحد يشملهم جميعاً ثم يتم تصديره . خلاف ذلك ستحتاج الى ادوات خارجية مساعدة لتدمج لك 4 ملفات PDF - ( بالفرض 4 تقارير ) - ليتم دمجها بملف واحد .

بهذه الإجابة .. ثبتت الرؤية 1000000% حد فاهمني

هل استخدمت المصفوفات؟ لأن الملف لا يزال فيه نفس الثقل مثل ما استخدمت أنا معادلة For مع worksheetFounction. المعادلات... هل يمكن تسريعه أكثر من كذا؟ ...... هل يمكنك ارسل بعض مصادر الذكاء الإصطناعي لأستفيد منها 🌹

السلام عليكم ورحمة الله تعالى اولا كل الشكر وكل التقدير والاحترام لكل رواد المنتدى المحترمين الافكار جميعها ولا اروع والان حان وقت مشاركتى فكرتى تعتمد على عمل التالى كلاس موديول عارف ان فى اجابات احتوت على افكار بسيطة جدا جدا جدا وفعالةوفكرتى هى كالاتى امكانية عمل نماذج تقييم متعددة ليحتوى احد النماذج على تقييم لا يتعدى الثلاث نجوم ونموذج اخر مثلا 5 نجوم وممكن نموذج كمان يحتوى على 10 نجوم فكرتى كود مركزى واحد يعمل على الجميع امكانية اعطاء نفس النجمة او ازالتها اما من نفس النجمة او بالنجمة التى تسبقها نبدأ شرح المنهج المتبع والفكرة والاكواد انشاء وحدة نمطية عامة من النوع كلاسس باسم: clsStarRating الكود سوف يكون: Option Compare Database Option Explicit ' ========================================== ' الثوابت الافتراضيةالخاصة ' ========================================== Private Const DEFAULT_SOLID_STAR As Long = &H2605 ' رمز النجمة المصمتة Private Const DEFAULT_HOLLOW_STAR As Long = &H2606 ' رمز النجمة المفرغة Private Const DEFAULT_TOTAL_STARS As Integer = 6 Private Const MAX_STARS As Integer = 20 ' ========================================== ' المتغيرات الخاصة Private mStarCount As Integer Private mRating As Integer Private mSolidSymbol As Long Private mHollowSymbol As Long Private mLastForm As Form Private mLastRatingField As String Private mStarsExpression As String ' ========================================== ' التهيئة ' ========================================== Public Sub Initialize(Optional ByVal starCount As Integer = DEFAULT_TOTAL_STARS, _ Optional ByVal SolidSymbol As Long = DEFAULT_SOLID_STAR, _ Optional ByVal HollowSymbol As Long = DEFAULT_HOLLOW_STAR) mStarCount = IIf(starCount >= 1 And starCount <= MAX_STARS, starCount, DEFAULT_TOTAL_STARS) mSolidSymbol = SolidSymbol mHollowSymbol = HollowSymbol mRating = 0 ClearCache End Sub ' ========================================== ' تبديل حالة التقييم ' ========================================== Public Sub StarClick(ByVal index As Integer) If index < 1 Or index > mStarCount Then Exit Sub mRating = IIf(index = mRating, IIf(index = 1, 0, index - 1), index) End Sub ' ========================================== ' تحميل/حفظ >-->> فائق الكفاءة ' ========================================== Public Sub LoadFromForm(Form As Form, ratingControl As String, Optional ByVal showMessage As Boolean = False) On Error GoTo ErrHandler mRating = Nz(Form.Controls(ratingControl).value, 0) CleanExit: Exit Sub ErrHandler: Debug.Print "LoadFromForm Error #" & Err.Number & ": " & Err.Description If showMessage Then MsgBox Err.Description, vbCritical Resume CleanExit End Sub Public Sub SaveToForm(Form As Form, ratingControl As String, Optional ByVal showMessage As Boolean = False) On Error GoTo ErrHandler If Form.NewRecord Then Exit Sub Form.Controls(ratingControl).value = mRating If Form.Dirty Then Form.Dirty = False CleanExit: Exit Sub ErrHandler: Debug.Print "SaveToForm Error #" & Err.Number & ": " & Err.Description If showMessage Then MsgBox Err.Description, vbCritical Resume CleanExit End Sub ' ========================================== ' محرك مركزى لتحديث عرض التقييم فى النموذج ' ========================================== Public Sub UpdateStarsForForm(FormObj As Form, ratingFieldName As String, _ Optional starPrefix As String = "txtStar", _ Optional textBoxName As String = "txtRatingText") On Error GoTo ErrHandler Static lastForm As Form, lastField As String If Not lastForm Is Nothing Then If lastForm Is FormObj And lastField = ratingFieldName Then Exit Sub End If Dim i As Integer, textExpr As String For i = 1 To mStarCount With FormObj.Controls(starPrefix & i) .ControlSource = "=Switch([" & ratingFieldName & "]>=" & i & _ ",ChrW(" & mSolidSymbol & "),True,ChrW(" & mHollowSymbol & "))" End With Next i ' نص التقييم (مرة واحدة) If Len(textBoxName) > 0 Then textExpr = "=Switch([" & ratingFieldName & "]=0,'بدون تقييم'," & _ "[" & ratingFieldName & "]=1,'نجمة'," & _ "[" & ratingFieldName & "]=2,'نجمتان'," & _ "True,[" & ratingFieldName & "] & ' نجوم')" FormObj.Controls(textBoxName).ControlSource = textExpr End If ' تحديث ذاكرة الكاش Set lastForm = FormObj lastField = ratingFieldName CleanExit: Exit Sub ErrHandler: Debug.Print "UpdateStars Error: " & Err.Description Resume CleanExit End Sub ' ========================================== ' تنظيف ذاكرة الكاش ' ========================================== Private Sub ClearCache() Set mLastForm = Nothing mLastRatingField = "" End Sub ---- اولا نبدأ بـــ :دليل التشغيل السريع لنظام تقييم النجوم أعداد اى نموذج مربعات النص المطلوبة: txtRatingValue ← مرتبط بحقل فى الجدول نوع الحقل رقمى ليسجل قيمة التقييم مثل ← (التقييم 0-10) txtRatingText ← (غير منضم ولا يرتبط بأى حقول فى الجدول) يعرض نص مثل ← "3 نجوم" مربعات نص txtStarX تبدأ من txtStar1 الى عدد النجوم التى تريد وضعها فى النموذج مثلا ← txtStar10 (غير منضمة جميعها ولا ترتبط بأى حقول فى الجدول) ← عرض نجوم التقييم ⭐ الأزرار btnStarX خصائصها شفافة وتكون بنفس عدد مربعات النص السابقة وتكون مواضعها فوق مربعات النص فى المقدمة كود النموذج Option Compare Database Option Explicit ' ========================================== ' إعدادات النموذج الثابتة (Configuration) ' ========================================== ' عدد النجوم Private Const cintTotalStars As Integer = 10 ' حقل التقييم Private Const cstrRatingControl As String = "txtRatingValue" ' بادئة أزرار النجوم Private Const cstrButtonPrefix As String = "btnStar" ' بادئة مربعات نص النجوم Private Const cstrStarPrefix As String = "txtStar" ' نص التقييم Private Const cstrTextControl As String = "txtRatingText" Private StarEngine As clsStarRating ' ========================================== ' فتح النموذج - التهيئة الكاملة ' ========================================== Private Sub Form_Open(Cancel As Integer) On Error GoTo ErrHandler Dim ctl As Control ' إنشاء محرك النجوم Set StarEngine = New clsStarRating StarEngine.Initialize cintTotalStars ' تحميل التقييم الحالي If Not Me.NewRecord Then StarEngine.LoadFromForm Me, cstrRatingControl End If ' ربط أزرار النجوم ديناميكيا For Each ctl In Me.Controls If ctl.ControlType = acCommandButton And ctl.Name Like cstrButtonPrefix & "*" Then ctl.OnClick = "=HandleStarClick(""" & ctl.Name & """)" End If Next ctl ' تحديث العرض StarEngine.UpdateStarsForForm Me, cstrRatingControl, cstrStarPrefix, cstrTextControl CleanExit: Exit Sub ErrHandler: Debug.Print "Form_Open Error #" & Err.Number & ": " & Err.Description MsgBox "خطأ في التهيئة: " & Err.Description, vbCritical, "Star Rating" Resume CleanExit End Sub ' ========================================== ' معالج ربط أحداث أزرار تقييم النجوم الديناميكي (مركزي) ' ========================================== Public Function HandleStarClick(ByVal strButtonName As String) As Variant On Error GoTo ErrHandler Dim intStarIndex As Integer intStarIndex = Val(Mid(strButtonName, Len(cstrButtonPrefix) + 1)) ' التحقق من صحة النجمة If intStarIndex < 1 Or intStarIndex > cintTotalStars Then HandleStarClick = False Exit Function End If ' تسلسل العمليات: Load >> Click >> Save >> Refresh StarEngine.LoadFromForm Me, cstrRatingControl StarEngine.StarClick intStarIndex StarEngine.SaveToForm Me, cstrRatingControl, False ' False = no message (بدون رسائل) HandleStarClick = True CleanExit: Exit Function ErrHandler: Debug.Print "HandleStarClick Error [" & strButtonName & "] #" & Err.Number & ": " & Err.Description HandleStarClick = False Resume CleanExit End Function ' ========================================== ' إغلاق آمن ' ========================================== Private Sub Form_Unload(Cancel As Integer) Set StarEngine = Nothing End Sub وطبعا يتم تعديل الاعدادت فى اعلى كود النموذج حسب المسميات ان اردت تغييرها فى النموذج بما يناسبك انت ' عدد النجوم Private Const cintTotalStars As Integer = 10 ' حقل التقييم Private Const cstrRatingControl As String = "txtRatingValue" ' بادئة أزرار النجوم Private Const cstrButtonPrefix As String = "btnStar" ' بادئة مربعات نص النجوم Private Const cstrStarPrefix As String = "txtStar" ' نص التقييم Private Const cstrTextControl As String = "txtRatingText" وبكده يكون معانا فكرة وتنفيذ لكود مرن لا يتطلب اى تدخل منك فى المستقبل ان اردت زيادة اعداد عناصر التقييم الا فقط باتباع نهج المواضع والمسميات لا تعديل فى الكود ولن تحتاج الى اضافة اى اكواد فى النموذج امكانية عمل اكثر من نموذج للتقييم فى نفس قاعدة البيانات على ان يكون لكل نموذج عدد تقييمات خاصة به وتختلف عن غيره وأخيرا اليكم مرفقا للتجربة والتقييم للفكرة وألية العمل الاستاذ الفاضل @ابوخليل اترك لكم حرية اختيار افضل اجابة لتكون مرجعا لرواد المنتدى ولكم خالص الشكر والتقدير لتقييم النجوم ( V1.2).accdb.zip

اخي الفاضل استعملت هذا الكود ولكن بيصدر تقرير واحد

استتخدم هذا مع تعدي اسماء التقارير في المصفوفة Sub Export_All_Reports_To_OnePDF() Dim arrReports As Variant Dim i As Integer Dim strFile As String ' أسماء التقارير بالترتيب المطلوب arrReports = Array("Q", "Report2", "Report3") strFile = CurrentProject.Path & "\AllReports.pdf" ' فتح التقارير (مخفية) For i = LBound(arrReports) To UBound(arrReports) DoCmd.OpenReport arrReports(i), acViewPreview, , , acHidden Next i ' دمج وتصدير في ملف واحد DoCmd.OutputTo acOutputReport, arrReports(0), acFormatPDF, strFile, False ' إغلاق التقارير For i = LBound(arrReports) To UBound(arrReports) DoCmd.Close acReport, arrReports(i), acSaveNo Next i MsgBox "تم إنشاء الملف بنجاح", vbInformation End Sub

ملف واحد

انشأ مديول وضع فيه هذا Public Sub FillBookmark(BMName As String, BMValue As String) Dim rng As Object If Objwrd.ActiveDocument.Bookmarks.Exists(BMName) Then Set rng = Objwrd.ActiveDocument.Bookmarks(BMName).Range rng.Text = BMValue Objwrd.ActiveDocument.Bookmarks.Add BMName, rng Else MsgBox "Bookmark غير موجود: " & BMName, vbExclamation End If End Sub ثم استخدم هذا في الزر لديك جرب واعلمنا بالنتيجة Private Sub أمر0_Click() On Error GoTo Err_Handler 'فتح ملف الوورد OpenClsword (CurrentProject.Path & "\123.doc") 'تعبئة الـ Bookmarks بدون تكرار Call FillBookmark("AA", txtYear) Call FillBookmark("A1", Format(tx1, "#,##0.00")) Call FillBookmark("A2", Format(tx2, "#,##0.00")) Call FillBookmark("A3", Format(tx3, "#,##0.00")) Call FillBookmark("A4", Format(tx4, "#,##0.00")) Call FillBookmark("A5", Format(tx5, "#,##0.00")) Call FillBookmark("A6", Format(tx6, "#,##0.00")) Call FillBookmark("A7", Format(tx7, "#,##0.00")) Call FillBookmark("A8", Format(tx8, "#,##0.00")) Call FillBookmark("A9", Format(tx9, "#,##0.00")) Exit Sub Err_Handler: MsgBox "حدث خطأ أثناء التصدير إلى الوورد", vbCritical End Sub

هل تريد تصدير هذه التقارير في ملف واحد ام ملفات متعددة

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته محتاج تعديل علي هذا الكود ليصدر أكثر من تقرير دفعة واحدة بدلا من تقرير واحد يعني بدلا من أيكون تقرير واحد Q يكون A b c Q DoCmd.OutputTo acOutputReport, "Q", acFormatPDF, strPathAndfile, True

تفضل السمكة بالهناء والشفاء حساب مع الترتيب حسب المديونية رغم أني لا أفهم شيء في المحاسبة عملاء جديد.xlsb

قد تستفيد من هذ الملف 🙂 : (( للعلم وكما ذكر الباش مهندس فادي @Foksh كان هذا الموضوع هو عنوان تحدي مجموعة الأكسس ، وكانت هناك عدة مشاركات لمختلف الأعضاء وكانت هذه مشاركتي المتواضعة 🙂 )) موسى الكلباني- التتحدي 10 _ التقييم 5 نجوم.accdb

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

تقدم شركة سندك للاستشارات الأكاديمية والترجمة خدمات متخصصة لدعم الباحثين والمترجمين، مع التركيز على رفع جودة الأعمال الأكاديمية، وتشمل خدماتها خدمة ترجمة اللغات الحية التي تضمن الدقة اللغوية وسلامة المصطلحات، إلى جانب خدمة الترجمة الأكاديمية المعتمدة الموجهة للأبحاث والدراسات العلمية، وتسهم الأدلة العملية مثل نصائح مفيدة للمترجمين المستقلّين والترجمة العلمية في تعزيز مهارات المترجم، مع توضيح مهارات المترجم اللازمة لتحقيق مستوى احترافي وضمان الالتزام بالمعايير الأكاديمية. https://www.sanadkk.com/blog/post/38/%D8%B9%D8%B4%D8%B1-%D9%86%D8%B5%D8%A7%D8%A6%D8%AD-%D9%85%D9%81%D9%8A%D8%AF%D8%A9-%D9%84%D9%84%D9%85%D8%AA%D8%B1%D8%AC%D9%85%D9%8A%D9%86-%D8%A7%D9%84%D9%85%D8%B3%D8%AA%D9%82%D9%84%D9%8A%D9%86-%D8%A7%D9%84%D9%85%D8%A8%D8%AA%D8%AF%D8%A6%D9%8A%D9%86.html

اعتقد العمل ادناه ( نموذجي / مرن ) هذا ما امكنني الوصول اليه Private Sub SetRating(v As Integer) If Me.MyRating = v Then Me.MyRating = 0 Else Me.MyRating = v End If Me.Dirty = False End Sub Private Sub btnStar1_Click() SetRating 1 End Sub Private Sub btnStar2_Click() SetRating 2 End Sub Private Sub btnStar3_Click() SetRating 3 End Sub Private Sub btnStar4_Click() SetRating 4 End Sub Private Sub btnStar5_Click() SetRating 5 End Sub لتقييم النجوم2.rar

تتناول الدراسات المتخصصة تساؤل كيف تكون مترجم جيد؟ لتوضيح المهارات والخطوات اللازمة للنجاح في مجال الترجمة العلمية والأكاديمية، وتقدم شركة سندك للاستشارات الأكاديمية والترجمة خدمات متخصصة لدعم الباحثين والمؤسسات، من خلال خدمة ترجمة اللغات الحية التي تراعي الدقة اللغوية وسلامة المصطلحات، بالإضافة إلى خدمة الترجمة الأكاديمية المعتمدة الموجهة للأبحاث والدراسات العلمية، كما تساعد الأدلة العملية مثل استراتيجيات الترجمة العلمية وأنواع الترجمة pdf الباحثين والمترجمين على فهم أساليب الترجمة المختلفة، وتطبيق أفضل الممارسات لضمان جودة ودقة الترجمة الأكاديمية. https://www.sanadkk.com/blog/post/39/%D9%83%D9%8A%D9%81-%D8%AA%D8%B5%D8%A8%D8%AD-%D9%85%D8%AA%D8%B1%D8%AC%D9%85-%D8%AC%D9%8A%D8%AF.html

تتناول الدراسات المتخصصة تساؤل هل يفشل بعض المترجمين المستقلين؟ لتسليط الضوء على التحديات التي قد تواجه المترجمين في إنجاز الأعمال العلمية بدقة واحترافية، وتقدم شركة سندك للاستشارات الأكاديمية والترجمة حلولًا متخصصة لدعم الباحثين والمؤسسات، من خلال خدمة ترجمة اللغات الحية التي تضمن الدقة وسلامة المصطلحات، بالإضافة إلى خدمة الترجمة الأكاديمية المعتمدة الموجهة للأبحاث والدراسات العلمية، كما يبرز الدور المهم لـ مهارات المترجم العلمي في نجاح الترجمة وضمان الالتزام بالمعايير الأكاديمية، وهو ما تقدمه بشكل احترافي شركة سندك للترجمة من خلال خدمات متكاملة ودعم مستمر. https://www.sanadkk.com/blog/post/41/%D9%84%D9%85%D8%A7%D8%B0%D8%A7-%D9%8A%D9%81%D8%B4%D9%84-%D8%A8%D8%B9%D8%B6-%D8%A7%D9%84%D9%85%D8%AA%D8%B1%D8%AC%D9%85%D9%8A%D9%86-%D8%A7%D9%84%D9%85%D8%B3%D8%AA%D9%82%D9%84%D9%8A%D9%86.html

تتناول الدراسات المتخصصة صعوبات الترجمة العلمية | تحديات ومشكلات وأنواعها لشرح أبرز الإشكاليات التي تواجه نقل المحتوى العلمي بدقة، مع توضيح ما الترجمة العلمية؟ وأهميتها في إيصال المعرفة الأكاديمية بشكل سليم، وتقدم شركة سندك للاستشارات الأكاديمية والترجمة خدمات متخصصة تدعم الباحثين والمؤسسات، من خلال خدمة ترجمة اللغات الحية التي تراعي الدقة اللغوية والفروق الثقافية، إلى جانب خدمة الترجمة الأكاديمية المعتمدة الموجهة للأبحاث والدراسات العلمية، كما تسلط المراجع الأكاديمية الضوء على ما مشكلات الترجمة التقليدية؟، وبيان أوجه القصور التي قد تؤثر في جودة الترجمة، مما يؤكد أهمية الاعتماد على منهجيات حديثة ومعايير احترافية في الترجمة العلمية. https://www.sanadkk.com/blog/post/1667/%D8%B5%D8%B9%D9%88%D8%A8%D8%A7%D8%AA-%D8%A7%D9%84%D8%AA%D8%B1%D8%AC%D9%85%D8%A9-%D8%A7%D9%84%D8%B9%D9%84%D9%85%D9%8A%D8%A9.html

تتناول الدراسات المتخصصة قواعد الترجمة العلمية | مناهجها وصعوباتها وشروطها لفهم الأسس التي يقوم عليها هذا النوع من الترجمة، مع توضيح ما هي الترجمة العلمية؟ وأهميتها في نقل المعرفة الأكاديمية بدقة، وتقدم شركة سندك للاستشارات الأكاديمية والترجمة خدمات متخصصة تدعم الباحثين والمؤسسات؛ من خلال خدمة ترجمة اللغات الحية التي تراعي الدقة اللغوية والفروق الثقافية، إلى جانب خدمة الترجمة الأكاديمية المعتمدة الموجهة للأبحاث والدراسات العلمية، كما تطرح المراجع المنهجية تساؤل ما هي مناهج الترجمة؟ لبيان الأساليب المتبعة في الترجمة العلمية، وضمان الالتزام بالمعايير الأكاديمية والمهنية في جميع الأعمال المترجمة. https://www.sanadkk.com/blog/post/1668/%D9%82%D9%88%D8%A7%D8%B9%D8%AF-%D8%A7%D9%84%D8%AA%D8%B1%D8%AC%D9%85%D8%A9-%D8%A7%D9%84%D8%B9%D9%84%D9%85%D9%8A%D8%A9.html

تُعد شركة سندك للاستشارات الأكاديمية والترجمة من الجهات المتخصصة في تقديم خدمات ترجمة احترافية تدعم الباحثين والمؤسسات الأكاديمية، وتلتزم الشركة بتطبيق أهم قواعد الترجمة العلمية التي تضمن الدقة والأمانة في نقل المحتوى، من خلال خدمة ترجمة اللغات الحية التي تراعي الفروق اللغوية والثقافية، إلى جانب خدمة الترجمة الأكاديمية المعتمدة الموجهة للأبحاث والدراسات العلمية، كما تتناول الدراسات المنهجية تساؤل ما هي مناهج الترجمة؟ مع الإشارة إلى دور موقع الترجمة العلمية في دعم الباحثين والمترجمين، وتوفير أدوات تساعد على إنجاز الترجمة العلمية بجودة واحترافية. https://www.sanadkk.com/blog/post/1680/%D8%A3%D9%87%D9%85-%D9%82%D9%88%D8%A7%D8%B9%D8%AF-%D8%A7%D9%84%D8%AA%D8%B1%D8%AC%D9%85%D8%A9-%D8%A7%D9%84%D8%B9%D9%84%D9%85%D9%8A%D8%A9.html