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

الأخ الكريم Creation يرجى تغيير اسم الظهور للغة العربية الأخ الحبيب مختار بارك الله فيك وجزاك الله خير الجزاء الأخ الكريم الميساني .. إليك الكود بعد التعديل .. يمكنك من خلال الكود تعديل المسار واسم المللف كما يمكنك فتح الملف بعد التحويل من خلال آخر سطر تمت إضافة تعليقات على الأسطر التي يمكنك من خلالها التعديل Sub Convert_PDF() 'في مسار محدد من خلال الكود ثم فتح الملف [PDF] يقوم الكود بتحويل نطاق محدد إلى ملف '-------------------------------------------------------------------------------- On Error Resume Next Dim FileName As String, MyFileName As String, MS As String Dim Rng As Range If ActiveWindow.SelectedSheets.Count > 1 Then MsgBox "There is more then one sheet selected," & vbNewLine & "ungroup the sheets and try the macro again." Else On Error Resume Next '[PDF] تعيين النطاق المطلوب تحويله إلى Set Rng = Sheets("ورقة1").Range(Cells(1, 1), Cells(Rows.Count, 6)) If Not Rng Is Nothing Then Debug.Print Rng.Address(External:=True) Rng.Select 'يمكن تغيير مسار الحفظ واسم الملف من خلال هذا السطر MyFileName = "C:\Users\" & Environ("UserName") & "\Desktop\" & ActiveSheet.[A1].Value FileName = Create_PDF(Selection, MyFileName, True, True) If FileName <> MyFileName Then MS = MsgBox("تم التحويل والحفظ بنجاح", vbInformation, "منظومة الصرافة") Else MS = MsgBox("قمت بإلغاء المهمة لذلك لم يتم التحويل", vbCritical, "منظومة الصرافة") End If End If End If 'بعد التحويل [PDF]سطر لفتح ملف الـ ActiveWorkbook.FollowHyperlink MyFileName & ".PDF" End Sub Function Create_PDF(Myvar As Object, FixedFilePathName As String, OverwriteIfFileExist As Boolean, OpenPDFAfterPublish As Boolean) As String Dim FileFormatstr As String Dim Fname As Variant If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" _ & Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") <> "" Then If FixedFilePathName = "" Then FileFormatstr = "PDF Files (*.jpeg), *.jpeg" Fname = Application.GetSaveAsFilename("", filefilter:=FileFormatstr, _ Title:="Create PDF") If Fname = False Then Exit Function Else Fname = FixedFilePathName End If If OverwriteIfFileExist = False Then If Dir(Fname) <> "" Then Exit Function End If On Error Resume Next Myvar.ExportAsFixedFormat _ Type:=xlTypePDF, _ FileName:=Fname, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False On Error GoTo 0 If Dir(Fname) <> "" Then Create_PDF = Fname End If End Function كل عام وأنتم بخير

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

أخى وأستاذى الفاضل ياسر خليل نورت الموضوع هذا الكود البسيط كفيل بتحقيق طلبات الأستاذ الميسانى الكود بيعمل pdf من النطاق المتاح وأنت تحدد مكان الحفظ فقط مع فتح الـــ pdf Sub PDFusingdialogbox() Dim Rng As Range Dim i As Variant Dim fName As String fName = ActiveSheet.[a1].Value i = Application.GetSaveAsFilename(fName, "PDF Files (*.pdf), *.pdf") Set Rng = Sheets("ورقة1").Range(Cells(1, 1), Cells(Rows.Count, 6)) Application.ScreenUpdating = False Rng.Activate Selection.ExportAsFixedFormat Type:=xlTypePDF, FileName:=i, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True Sheets("ورقة1").Range("A1").Select Application.ScreenUpdating = True End Sub تحياتى كل سنة وأنتم أقرب الى الله هو فين صاحب الموضوع الأخ الكريم Creation !!!!!!!!!!!!!

. السلام عليكم و رحمة الله و بركاته إضافة لما تقدّم به الأستاذان المميّزان : 1 - الصقر 2- أسامة البراوي جزاهما الله خيرًا و بارك الله فيهما .. إضافة بسيطة مني لهذا الفورم حتى يتسنى لنا التحكم باتجّاه الماوس في جميع الاتجاهات و لا يكون جذب الماوس للتصغير أو التكبير محصورا في الزاوية اليمنى فقط .. MINIMUM et MAXIMUM d'userform.rar

السلام عليكم أ. علاء رسلان جزاك الله خيراً اخى الكريم - كل عام وانتم بخير بخصوص ملف ال PDF - سأعمل على ذلك - ان شاء الله

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

هذا البرنامج هدية للتوصل معا ولحل جميع المشكلات التي تواجه السادة المبتدئين____________.rar

برنامج شئون الموظفين يعمل بالتاريخين الهجرى والميلادى. امكانية البحث برقم الموظف . امكانية ربط الموظف بصورة الموظف من اى مكان من الحاسب (وليس وضع الصور بجانب الملف كما كان مسبقا). امكانية حذف موظف او تعديل بيانات الموظف . اصدار تقارير عن موظف واحد بطباعة بياناته فى صفحة مستقلة. امكانية تصدير التقارير لملف اكسيل جديد باسم جديد. البحث بين تاريخين . امكانية طباعة عدد من الموظفين سواء (اسم الموظف - الراتب - الاقامات - الادارة التابع لها - او اى بيانات مدخلة ). التحكم فى تغيير اسم الشركة . نافذة امان قبل الدخول للبرنامج بكلمة مرور يمكن اظهار النافذة او اغلقها. امكانية التحكم فى اعدادات المظهر (خلفية البرنامج - لون الخط ). للاطلاع عن المزيد من الصور والشرح للبرنامج من هنا او الاطلاع على دليل المستخدم من البرنامج شكر خاص للأستاذ/ عبد الله باقشير حيث استخدمت الكثير من اكواده الاكثر من رائعه وكذلك باقى الاعضاء الاخرين ملاحظة : باسورد نافذة الامان الافتراضى 12345 باسورد vba وقاعدة البيانات وفتح الملف 12345 لابد من تمكين الماكرو ليعمل الملف فى النهاية نسألكم الدعاء بظهر الغيب emp.rar

السلام عليكم .. مشاركة بسيطة.. في تغيير حجم الـ يوزرفورم بواسطة الماوس (بشكل مرن) مع الاحتفاظ بمكان زر الـ غلق أرجو أن ينال إعجابكم من جهة والانتفاع به من جهة أخرى. ..ومن الله التوفيق.. تغيير حجم اليوزرفورم بالماوس.rar

السلام عليكم كل عام وانتم بخير استكمالا للموضوع الذى بدأه الاستاذ المبدع ياسر خليل فقد قمت ببرمجة نسخة مستقلة من مكتبة الاكواد (ملف تنفيذى لا يحتاج الاكسل) ومزودة بامكانيات اكبر للبحث والتصنيف بواسطة المجموعة او جزء من العنوان او الكود ... وكذلك يقوم بفتح ملفات الأمثلة المرفقة بواسطة زر يتم تفعيله اذا كان هناك ملف مرفق وكنت اتمنى ان استكمل الامثلة والاكواد لكن الوقت لم يسعفنى..... ارجو تجربته واخبارى عن اى اخطاء برمجية وسوف احاول استكمال الامثلة واضافة اكود جديدة ونشرها بعد التعديل رابط التحميل: http://www.bscenter.co/downloads/vbaforexcelcodes.rar

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

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

جزاك الله خيرا. ماشاء الله تبارك الله ، بارك الله لك في علمك وعملك وعمرك. وإن شاء الله تفرح يوم القيامة، بنتيجة هذه الإجابة.

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

الأستاذ الميسانى شىء طبيعى ظهور هذا الخطأ لأن أنت فلتها بنفسك A1 فارغة طبق الكود على ملف الأخ الكريم Creation Sub PDFusingdialogbox() Dim Rng As Range Dim i As Variant Dim Fname As String Fname = "Elmisani" ' ضع الاسم اللى يعجبك i = Application.GetSaveAsFilename(Fname, "PDF Files (*.pdf), *.pdf") Set Rng = Sheets("ورقة1").Range(Cells(1, 1), Cells(Rows.Count, 6)) Application.ScreenUpdating = False Rng.Activate Selection.ExportAsFixedFormat Type:=xlTypePDF, FileName:=i, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True Sheets("ورقة1").Range("A1").Select Application.ScreenUpdating = True End Sub هذا بالنسبة للملاحظة الأولى الثانية والثالثة جرب الحفظ حتى مليون مرة بالكود التالى هو هو اللى فوق بس بنلعب باسم الملف براحتنا Sub PDFusingdialogbox() Dim Rng As Range Dim i As Variant Dim Fname As String Fname = Left(ActiveWorkbook.Name, InStr(1, ActiveWorkbook.Name, ".", 1) - 1) & "(" & Format(Now, "DD-MM-YYYY-hhmmss") & ").pdf" i = Application.GetSaveAsFilename(Fname, "PDF Files (*.pdf), *.pdf") Set Rng = Sheets("ورقة1").Range(Cells(1, 1), Cells(Rows.Count, 6)) Application.ScreenUpdating = False Rng.Activate Selection.ExportAsFixedFormat Type:=xlTypePDF, FileName:=i, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True Sheets("ورقة1").Range("A1").Select Application.ScreenUpdating = True End Sub اذا كنت تريد وضع الاسم بنفسك فى الصندوق الحوارى استخدم الكود التالى هو هو بس بنلعب بالاسم زى ما قلت لك Sub PDFusingdialogbox222() Dim Rng As Range Dim i As Variant Dim Fname As String Fname = "" i = Application.GetSaveAsFilename(Fname, "PDF Files (*.pdf), *.pdf") Set Rng = Sheets("ورقة1").Range(Cells(1, 1), Cells(Rows.Count, 6)) Application.ScreenUpdating = False Rng.Activate Selection.ExportAsFixedFormat Type:=xlTypePDF, FileName:=i, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True Sheets("ورقة1").Range("A1").Select Application.ScreenUpdating = True End Sub بالنسبة للمرفق أعتذر الليلة للصلاة كل سنة وأنتم جميعا أقرب لله

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

جرب الملف تكرار تلقائي.rar

رمضان كريم اخواني في المنتدى اليكم هذا اللغز حاولوا ان تجدوا له الحل (سوف ارسل لكم الباسورد لاحقاً) تجميع خلايا 2003.rar

أخي الحبيب سليم بارك الله فيك على الموضوع المتميز والرائع .. فكرتنا بأيام زماااان أخي الغالي أبو يوسف كود في منتهى الروعة وحل بارع .. تسلم الأيادي

تفضل : t1 = DLookup("insno", "BILL_DATA", "[TYPE]=4" & " and crn='" & Me.crn & "'") t2 = DLookup("insno", "BILL_DATA", "[TYPE]=5" & " and crn='" & Me.crn & "'") New2.rar

الإخوة الاعزاء : عبد العزيز البسكري ، زيزو العجوز ، أيمن ابراهيم شكر على مروركم الجميل واتمنى ان تكون المشاركة نافعة للجميع

الأخ الفاضل غسان العبيدى عمل جميل وفكرة جيدة واسمح لى ان اضيف عليها طلب الاخ الفاضل الميسانى وهو نفس الفورم السابقة مع اضافة 1- عنوان ثابت 2- مربع ادخال نص متغير العرض 3- زر تمرير متغير الارتفاع 4- بالاضافة الى تعديل صورة الخلفية 5- ايضا هناك إضافة صغيرة للتحكم فى الحد الادنى لأبعاد الفورم Resize Userform تغيير حجم اليوزرفورم بالماوس.rar

استاذ صلاح يوضع هذا الامر فى بداية الكود Application.ScreenUpdating = False و فى النهاية Application.ScreenUpdating = True

السلام عليكم هذا الحل قريب من الحزورة استعرت الكود - وليسمح لي صاحبه جزاه الله خيراً تجميع خلايا 2007.rar

الأستاذ الميسانى الملف هتلاقيه فى الــــ Documents

شرح مميز واسلوب رائع واكثر من كذا ما فيه بااااااااااارك الله فيك وفي علمك وفي تعليمك هذ ا الاسلوب في الشرح هو ما كنت ابحث عنة من زمااااااااان شكرا مره اخرى ملاحظة // للاسف الدرس الاول كتابته حروفها صغيرة لم استطيع ان اراها بشكل واضح هل فيه امكانية اعادتها او عملها بشكل مرفق

بارك الله فيك أخى ياسر فتحى علمنى ازاى بتعمل الصور الجميلة دى ازاى بتخلى المشاركة رائعة ؟!! تحياتى

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

أخوتى الكرام و أساتذتى الأفاضل و تجنبا للخطأ المعادلة هى =IF(D2="CO";INDEX(Items!$A$2:$K$5923;MATCH(A2;Items!$A$2:$A$5923;0);MATCH(C2;Items!$A$1:$K$1;0));VLOOKUP(A2;Items!$A$2:$K$5923;3;FALSE)) وهذا فى حالة ان ورقة المصدر و ورقة الهدف بنفس الملف أما فى حالة ورقة المصدر فى ملف و ورقة الهدف فى ملف آخر فكانت المعادلة ( حيث الملفان بنفس المجلد ) هى =IF(D2="CO";INDEX([Items.xlsx]Items!$A$2:$K$5923;MATCH(A2;[Items.xlsx]Items!$A$2:$A$5923;0);MATCH(C2;[Items.xlsx]Items!$A$1:$K$1;0));VLOOKUP(A2;[Items.xlsx]Items!$A$2:$K$5923;3;FALSE)) و قد استغرق الأمر منى وقتا فى المحاولة و الخطأ حتى توصلت الى المعادلة الثانية فى حالة الورقتان كل واحدة فى ملف غير الآخر دمتم بخير و أعزكم الله .

السلام عليكم أ. صلاح الصغير جزاك الله خيراً اخى الكريم - كل عام وانتم بخير

مشكور على هذا العمل الرائع

جزاك الله خيرا .. و كل عام و أنت و الأسرة الكريمة بخير دمت بخير و أعزك الله .

السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً ..أنا معجب بالموضوع قبل مشاهدة ملف العمل لأن الموضوع يستحق الإعجاب والسلام عليكم.

أخي الكريم يمكنك عن طريق دمج المراسلات فعل ذلك بسهولة جدا ويلزمك في البداية إعداد جدول إكسل أو وورد بأسماء المدعوين كافة وحفظه، ثم إعداد مستند بنفس حجم الظرف المراد الطباعة عليه وبعد ذلك من تبويب مراسلات انفر على زر بدء دمج المراسلات ومن القائمة اختر معالج دمج المراسلات وستجد الموضوع سهل يبدأ باختيار مستند البداية ثم تحديد قائمة المستلمين ( الملف الذي قمت بحفظه سابقا) وتنتهي أخير بوضع حقول الدمج (كل عمود في الجدول المحفوظ سابقا يعتبر حقل دمج) في المكان المناسب. بعد ذلك يمكنك المعاينة(زر المعاينة) أو طباعة الكروت.

بارك الله فيك و جزاك الله خيرًا و زادها بميزان حسناتك

أخى الحبيب الغالى / ياسر خليل

رائع أخى الحبيب محتار

السلام عليكم أنا هقولك على طريقة وحضرتك عليك التنفيذ 1 - ضع كود الدالة دى فى مديول جديد فى الملف Function INSERTPICTURE(ByVal PictureFullName As String, Optional ByVal PicWidth As Single = 200, Optional ByVal PicHeight As Single = 150) Dim CellActive As Range Dim picPicture As Object Set CellActive = Application.Caller For Each picPicture In CellActive.Parent.Pictures If picPicture.TopLeftCell.Address = CellActive.Address Then picPicture.Delete Exit For End If Next Set picPicture = CellActive.Parent.Pictures.Insert(PictureFullName) With picPicture .Left = CellActive.Left + 1 .Top = CellActive.Top + 1 .Width = PicWidth .Height = PicHeight End With End Function 2 - لتنفيذ الدالة : قم بعمل مجلد كمصدر للصور وليكن مثلاً على البارتشن H المجلد ده سميه أى اسم وليكن مثلا Sample Pictures ضع الصور في هذا المجلد الصور لاحظ أن صورك تكون بامتداد jpg كل صورة لها اسم والاسم ممكن يكون حروف أو رقم المهم لنفترض أن صورتين في هذا المجلد واحدة باسم mokhtar و الثانية باسم marmar في الخلية A1 مثلا قم بكتابة المعادلة التالية : =INSERTPICTURE("H:\Sample Pictures\mokhtar.jpg";200;150) لاحظ فى المعادلة اسم البارتشن H واسم المجلد واسم الصورة والامتداد وطول وعرض الصورة بمجرد كتابة المعادلة وتضغط انتر هتلاقى الصورة قدامك ظهرت عايز تنزل الصورة marmar شوف عايز تحطها جنب الأولى ولا تحتها براحنك أول خلية فاضية جنب الصورة الأولى أو تحتها ولتكن D1 اكتب المعادلة السابقة مع تغيير اسم الصورة: =INSERTPICTURE("H:\Sample Pictures\marmar.jpg";200;150) نزل باقى صورك بنفس الطريقة ظبط عرض الأعمدة وارتفاع الصفوف فى الشيت ليظهر التنسيق كما ينبغى عرض الأعمدة 10.5 ارتفاع الصفوف 21.75 ده غالبا يتماشى مع الصور 200X150 إن قابلتك مشكلة أرفق الملف والصور تحياتى

السلام عليكم ورحمة الله تعالى وبركاته انا النهاردة حابب اتكلم عن دالة مهمة جدا من وجهة نظرى المتواضعة دالة من دوال التكرار دالة Do While....loop طبعا بما انى مليش فى الشرح اوى فاسمحولى اتكلم كدا بالبلدى ههههههه اول سؤال احنا بنستخدم الدالة دى امتى ؟؟؟ الاجابة اننا بنستخدم الدالة دى لما نكون عاوزين نكرر كود محدد بس اكتر من مرة ومش عارفين عدد محدد لتكرار والحدث او الكود اللى هنكرره دا هيتكرر بناء على شرط معين يعنى لو الشرط اتحقق كرر الكود وهكذا ... قشطة لحد كدا ؟؟؟ شكل الدالة دى بيبقى عامل ازاى Do While الشرط الكود Loop Do While condition code Loop يعنى ايه بقى الكلام دا المقصود ب Do While هو تنفيذ code طالما التعبير الشرطى True قشطة لحد كدا تمام ؟؟ علشان المعلومة تثبت لازم نعمل تدريب عملى هنعمل تدريب عملى بسيط جدا تعالو نشوف انا عاوز اعمل نموذج فى قلبه ليست بوكس اقوم عن طريق الدالة Do While اقوم عن طريقها بادخال الاسماء داخل الليست بوكس نفتح الاكسس ونعمل نمذج فارغ ونسميه Form1 ونعمل زر لااضافة الاسماء ونسميه Button1 ونضيف الليست بوكس ونسميها Listbox1 ايه المطلوب بقى منى ؟؟ المطلوب عن الضغط على زر Button1 يظهر صندوق InputBox لا ادخال الاسماء يبقى احنا هنستخدم دالة InputBox فى ادخال الاسماء تمام كدا يعنى لما اضغط على الزر المفروض يظهر InputBox علشان ادخل الاسم الاول ويظهر مرة تانيه علشان ادخل الاسم الثانى وهكذا لحد ما قيمة الشرط فى دالة Do While تبقى false كدا ينهى الحدث هنخلى الشرط بتاعنا هو عند ادخال كلمة انهاء يقوم بانهاء ادخال الاسماء وهنلاحظ كدا وجود حلقة تكرارية مش عارفين عدد مرات التكرار قد ايه وينتهى التكرار بمجرد ادخال كلمة " انهاء" يلا بينا على الكود طبعا دا هيتحط فى حدث عند النقر للزر 'هنفرض متغير x من نوع نص Dim x As string 'الشرط هنا بيقول انه طالما المتغير x لا يساوى انهاء كرر الكود Do while x<>"انهاء" x=InputBox("ادخال اسماء الطلاب") Me.Listbox1.AddItem (x) Loop شكرا ليكم تحياتى اخوكم مارد عارف انكم كلكم عارفين الدالة دى :mad: بس رخامة وخلا ص Do While .... Loop.rar

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

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

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

السلام عليكم أخي الحبيب / هاني نتفق جميعا أننا نعرف بعضنا من خلال المنتدي المبارك ولانعرف بعض علي أرض الواقع (إلا قليلا) إذن لايمكن أن يتقدم من يريد المساعدة لمساعدة عضو ويترك الآخر لأسباب بينهما شخصية فلابد أن تسأل نفسك وهذا ما أوجهه لنفسي ولجميع الأعضاء عندما يكون لديهم أسئلة مالذي يجعل من يريد المساعدة يتقدم لمساعدة عضو ويترك الآخر أو يتقدم لموضوع ويترك الآخر؟ هذا سؤال مهم ولابد للجميع الإنتباه لهذا ، سأجيب من وجهة نظري ولكم جميعا التعليق بما تشاؤون أري أن الأسباب لهذا كثيرة وسأذكر منها فقط 3 أسباب رئيسية 1. المجيب لايعرف عن الموضوع ويخشي أن يضلل السائل كأن يسأل السائل سؤالا محاسبيا متخصصا أو سؤالا هندسيا متخصصا أو كأن يسأل السائل أن الإجابة بالأكواد والمجيب لايجيد الأكواد أنا مثلا أبعد عن الفورم لأن غيري كثيرين بارعين فيها ويحلونها بسرعة 2. عدم وضوح السؤال كأن يسأل السائل عن شيء ليس موجودا بالملف ، مثل حالتك هنا في السؤال عن مايدفعه العميل ومايتبقي عليه ولايوجد بالملف كله بجميع ورقاته أي إشارة لما دفعه العميل وماتبقي عليه غير في السؤال فقط ، فكيف 3. السؤال ليس سؤال بل موضوع كبير يستنزف وقت المجيب كأن يسأل السائل أريد عمل برنامج يحسب كذا ويستدعي كذا ويطبع كذا ويخزن في شكل ... في نفس الوقت هنا لن يتقدم للإجابة إلا من لديه وقت كبير، أنا مثلا أري في هذه الحالة أن أفيد بهذا الوقت الكبير 5 او 6 سائلين لعلك لابد أن تعيد طريقة طرح الموضوع أو السؤال فأنت تبذل وقت كبير في المتابعة والإلحاح بدون ان تبذل وقت لإعادة السؤال فعارض السؤال كمندوب المبيعات الذي يعرض سلعته فالمندوب الجيد يسأل نفسه ويلوم نفسه اولا إن لم تباع سلعته أرجو أن يتسع صدرك لردي هذا وتأخذه بمأخذ إيجابي ولاتأخذه سلبيا فلاتظن مثلا أنني أتنصل ، فقد فتحت ملفك هذا عشرات المرات لكني في كل مرة أفتحه أجد نقص هائل من البيانات مثلا أنت وضعت في صفحة العملاء 3 أعمدة فقط هكذا اسم العميل تاريخ فواتيره دين العميل اذا اشترى وتبقى عليه جزء من ثمن الفاتورة وتطلب ترحيل الفواتير لهذه الورقة من صفحة الفاتورة التي بها 7 أعمدة م الصنف العدد الوحدة سعر الوحدة اجمالى ملاحظات طلبت منك قبل ذلك أن تضع النموذج الذي تريده يدويا ، بمعني ضع بيانات حقيقية أو وهميه في ورقة الفاتورة ثم إنقلها يدويا لصفحة العملاء ، حتي يفهم المجيب أي عمود سيترحل لأي مستقبل ، أظنك لوعملت ذلك منذ شهور كان خلص الموضوع ونقطة أخري التي أشرت لك في أول ردي إليها السؤال عن شيء ليس موجودا بالملف ، مثل مايدفعه العميل ومايتبقي عليه ممكن تضيف أنت كما يتراءي لك في صفحة الفاتورة مثلا بين عمود اجمالى و عمود ملاحظات عمودا جديدا به ماتم دفعه مثلا الصنف الأول 120ج إجمالي ، دفع منها 100 فقط ، أين سنضع هذا البيان تقبل مني هذا وأعد صياغة السؤال ، وقد وضعت الرد هنا وليس علي رسالة خاصة لكي يستفيد باقي الإخوة الذين لايجدوا تفاعلا مع أسئلتهم وليشاركنا من أراد فموضوعك أصبح قديم جدا ومن المحزن ألا تستقر علي حل له حتي الآن أظنك بإذن الله تتفهم ذلك ولنعمل جميعا علي العبور للخطوة التالية تقبل ودي وإحترامي لشخصكم الكريم أخوك / طارق محمود

Record Source لتحديد مصدر السجلات للنموذج في أي مرحلة ، عند التحميل ، بعد إنهاء عملية فرز أو بحث أو ..... Form.RecordSource = "SELECT tbl1ref08.* FROM tbl1ref08;" أو يكون جملة Form.RecordSource = "SELECT tbl1ref08.* FROM tbl1ref08" _ & " WHERE (((tbl1ref08.[strCenter]) Like '" & MyStr & "' & '*'));" >>>>>>>>>>>>>

البرنامج مرة أخرى لمن لم يحمله ahmedeg_eg@yahoo.com __________.rar