صالح حمادي

أهلين أخي لقد شغلتني الأعمال المنزلية عن الدخول لبعض الوقت

فكرة حلوة من أساتذة حلوين أخي @jjafferr و @Shivan Rekany شكرا جزيلا و جزاكم الله خير الجزاء

السلام عليكم و رحمة الله تعالى و بركاته: استعمل هذا الكود DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "table1", "مسار الملف", True, "e6:h25"

نعم أخي محمد لا يوجد حرج في أن يطلب الشخص العون من إخوته. كلنا نحتاج و كلنا نطلب العون

اسم الملف فقط

يتم نسخ ملف DLL في ملف system32 ثم تسجيلها من ال run

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

اطلع على المرفق و وافني بالنتيجة

شكرا جزيلا جزاك الله خيرا للفائدة الكود رقم 1 هو كالتالي: selection.ParagraphFormat.LineSpacing=11

السلام عليكم و رحمة الله تعالى و بركاته أخوتي الكرام حياكم الله .أبحث عن الأكواد التالية لمن لديه معلومة: 1- الكود الذي يقوم بتحديد التباعد بين الأسطر 2-الكود الذي يقوم بإزالة المسافة قبل الفقرة و بعد الفقرة جزاكم الله خيرا

السلام عليكم بعد العديد من المحاولات أخي محمد توصلت إلى كود يقوم بتصدير الباركود كما هو: Dim objWord As Object Dim oDoc As Object Dim i As Integer Dim j As Integer Dim sTemp As String DoCmd.OpenReport "report1", acViewPreview, , , acHidden Set objWord = CreateObject("word.application") Set oDoc = objWord.Documents.Add With objWord .Visible = True .selection.Font.Name = "MW6 Matrix" .selection.Font.Size = 22 .selection.ParagraphFormat.LineSpacing = 11 .selection.ParagraphFormat.SpaceAfter = 0 .selection.ParagraphFormat.SpaceBefore = 0 .selection.InsertAfter Reports![Report1]![Text0] End With oDoc.SaveAs2 CurrentProject.Path & "\ss123.docx" objWord.Quit DoCmd.Close acReport, "report1" Set objWord = Nothing Set oDoc = Nothing Desktop10.rar

هذا الملف بصيغة 2003 ارجو تحويله لصيغة 2003 او 2007 وشكراً لا تقلق أخي هذا ليس إزعاج نحن نعمل ما نستطيع فعله و لا يمكن أن يزعجنا شخص يطلب العلم تأثيرات 2003.rar و هذا الملف الآخر 2003.rar

الله يحفظ أخي محمد

هذه الطريقة تجدها هنا كما أشرت لها آنفا تفضل لقد حللت المشكلة تأثيرات النماذج.rar

السلام عليكم أخي تفضل هذه هي الأكواد التي تحتاجها: 1- بالنسبة لحفظ المرفق بمكان معين في الكمبيوتر: Set db = CurrentDb Set rstable = db.OpenRecordset("tblFonts") Set rsfile = rstable.Fields("attach").Value rsfile.Fields("FileData").SaveToFile txtpath بحيث : txtpath هو مسار الحفظ و إذا أردنا فتح الملف بعد حفظه مباشرة نضيف هذا الكود: Application.FollowHyperlink txtpath & "\" & rsfile.Fields("Filename") 2- أما بالنسبة لفتح المرفق مباشرة فنستعمل هذا الكود: Dim db As DAO.Database Dim rsEmployees As DAO.Recordset Set db = CurrentDb Set rsEmployees = db.OpenRecordset("tblFonts") OpenFirstAttachmentAsTempFile rsEmployees, "attach" و نحفظ الكود التالي في وحدة نمطية جديدة: Public Function OpenFirstAttachmentAsTempFile(ByRef rstCurrent As DAO.Recordset, ByVal strFieldName As String) As String Dim rstChild As DAO.Recordset2 Dim fldAttach As DAO.Field2 Dim strFilePath As String Dim strTempDir As String strTempDir = Environ("Temp") ' Get the Temp directory from the environment variable. If Right(strTempDir, 1) <> "\" Then strTempDir = strTempDir & "\" ' Make sure the path always ends with a backslash. Set rstChild = rstCurrent.Fields(strFieldName).Value ' the .Value for a complex field returns the underlying recordset. strFilePath = strTempDir & rstChild.Fields("FileName").Value ' Append the name of the first (and only) attached file to temp dir. If Dir(strFilePath) <> "" Then ' the file already exists--delete it first. VBA.SetAttr strFilePath, vbNormal ' remove any file attributes (e.g. read-only) that would block the kill command. VBA.Kill strFilePath ' delete the file. End If Set fldAttach = rstChild.Fields("FileData") ' The binary data of the file. fldAttach.SaveToFile strFilePath rstChild.Close ' cleanup VBA.Shell "Explorer.exe " & Chr(34) & strFilePath & Chr(34), vbNormalFocus ' Use Windows Explorer to launch the file. End Function 'OpenFirstAttachmentAsTempFile و هذا ملفك بعد التعديل: fonts.rar

تفضل صديقي 2003.rar

أخي هذه القوائم عبارة عن نماذج فرعية مصدرها النموذج s1 قم بإنشاء نماذج أخرى بها ما تشاء من أوامر و أجعل خاصية "الكائن المصدر" لكل نموذج فرعي بها اسم أحد هذه النماذج. و هذا مثال على ذلك. تأثيرات النماذج.rar

تفضل و تمتع أخي: تأثيرات النماذج.rar

السلام عليكم أهلين أخي عبد الله تقوم الدالة Move بالتحكم في حجم الكائن و مكان ظهوره في الشاشة و هذا هو شكلها : Me.f.Move Left:=4000, Top:=1200, Height:=0, Width:=3000 و هي تشتمل على 4 وسائط: Left: و هي المسافة بين الكائن و الحافة اليسرى. Top: و هي المسافة بين الكائن و الحافة العلوية. Heigth: و هو ارتفاع الكائن. Width: و هو عرض الكائن. ملاحظة : وحدة القياس هنا هي Twip و كل 1 سنتيمتر يساوي 566.9291338583 تويب

لاحظ الصورة: pdf يفتح عندي بشكل عادي و إذا ظهرت لك الشاشة السوداء إنتظر قليلا أو قم بالضغط المزدوج على ملف آخر ثم أعد فتح ملف pdf

السلام عليكم تابعو هذا الموضوع و بالأخص آخر مرفق و أما الشكل المطلوب فهو بالمرفق التالي: تأثيرات النماذج.rar

تأثيرات النماذج.rar

نعم تفضل أخي أفعل ما تشاء فقط تذكرنا بدعائك في ظهر الغيب

السلام عليكم: 1 - نقوم بإضافة تجميع حسب أحد الحقول أو نضيف حقل فارغ إلى الجدول و نقوم بالتجميع حسب هذا الحقل. 2- نذهب لخصائص المؤسسة رأس (في مكان المؤسسة نجد اسم الحقل المختار). 3- نغير خاصية تكرار المقطع إلى نعم في التبويب تنسيق.

السلام عليكم تفضل أخي هذا الملف بعد التعديل Desktop.rar