أمجد جمالي

وين الموقع والتاريخ مو واضح شو هالعزيمة هي

اخ محمود السلام عليكم لتشغيل قاعدة بيانات على الشبكة يوجد عدة طرق 1-إما بتخزين قاعدة البيانات على احدى الاجهزة وارسال Shortcut لكل جهاز 2-او بتقسيم قاعدة البيانات الى ملفين ملف يوجد فيها الجداول فقط والملف الثاني يوجد فيها الماكرو والوحدات النمطية والنماذج والتقارير يتم عمل لينك للجداول وانصح باتباع الطريقة الثانية وارفقت طريقة مشروحة بالتفصيل لعمل شبكة داخلية للمزيد من المعلومات راجع هذا الرابط في مثالي هذا طرحت كيفية تنفيذ الفكرة فقط وحاولت تبسيطها قدر المستطاعو لك حرية التعديل عليها وتنفيذها في برنامجك بالطريقة التي تحب بالنسبة ل بإمكان تنفيذ هذه الفكرة بطريقة ال Ado او Dao للمزيد من المعلومات راجع هذا الرابط وهي مشروحة بالتفصيل كيفية الاتصال بقاعدة بيانات غير الحالية سواء كانت مخزنة على نفس الهارد او على اي مكان في الشبكة . مع تمنياتي لك بالتوفيق ابو نادر في مثالي هذا يتم العمل جميع الأقسام على نفس قاعدة البيانات

يا استاذ فرحان اذا بدك تشكرني لا زم تعشيني من جميع هذه الاقسام بس حتى اتأكد انو البرنامج اشتغل صح :pp: تحياتي

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

السلام عليكم أخي العزيز تفضل هذا هو المثال وحاولت بسطه قدر المستطاع يوجد 4 مستخدمين Amjad Jamali ينتمي لمجموعة عمل كاشير Ali ينتمي لمجموعة عمل قسم السندوتشات Abdullah ينتمي لمجموعة عمل قسم العصيرات Mohammed ينتمي لمجموعة عمل قسم الحلويات جميع كلمات المرور للمستخدمين هي 0000 بإمكانك ارسال الرسائل من خلال Send Request تختار المستخدم من ToUser وتكتب المطلوب تنفيذه في خانة Descreption ثم Send Mail النموذج الرئيسي يقوم بالتحقق كل ثانية من وجود رسائل جديدة للمستخدم الحالي فقط انشاء الله يكون هذا هو المطلوب تحياتي لك Messages.zip

راجعي هذا الرابط وهو عبارة عن شرح لكيفية عمل برنامج قاموس بأي لغة http://www.montada.com/showthread.php?t=58233

اخي الكريم طيف لما لا تقوم بتحميل الملف الى المنتدى؟ لكي يتسنى لنا جميعاً حل مشكلة اخونا mzaki تحياتي

السلام عليكم اخي الكريم المكترث تفضل Public Function Ap_PauseTime(IntPauseTime As Integer) Dim PauseTime, Start PauseTime = IntPauseTime Start = Timer Do While Timer < Start + PauseTime DoEvents Loop End Function للإستدعاء الدالة Ap_PauseTime ("2") هذا الكود يقوم بتجميد الوقت لمدة ثانيتين اذا حبيت تجمد الوقت لمدة 4 ثواني Ap_PauseTime ("4") ولي طلب صغير ذكرت في مشاركتك ارجو ذكر هذه الطرق لكي نستفيد من خبرات الغير تحياتي لك اخوك ابو نادر

السلام عليكم يا ابو نعيم الموضوع مامر عليه 24 ساعة وكان هدفي ا ساعد قدر الإمكان وليس التشويش وهذا الكود البرنامج الأول Public Function SpellCheck(TextStr As String) As String Dim WordApp As Word.Application Set WordApp = CreateObject("Word.Application") WordApp.Documents.Add Dim wordrange As Word.Range Set wordrange = WordApp.ActiveDocument.Range(0, 0) wordrange.Text = TextStr WordApp.Visible = True WordApp.Activate wordrange.CheckSpelling , , True SpellCheck = wordrange.Text wordrange.Text = "" WordApp.Documents.Close (False) WordApp.Quit Set WordApp = Nothing End Function واختيار ال Reference microsoft word 11 object library للأستدعاء الدالة Public Sub test() Dim ChkStr As String ChkStr = "Amjad wias here" ChkStr = SpellCheck(ChkStr) End Sub وهذا هو البرنامج الثاني الكود والبرنامج الثاني من احد المواقع الأجنبية تحياتي ابو نادر soundex.zip

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

اخي الكريم طيف بارك الله فيك

السلام عليكم هذا هو الرابط http://www.scientificcomponent.com/begin_p...er_download.htm وهذا http://www.fabalou.com/Access/General/dialing_modem.asp وهذا http://www.pclubricant.com/easydial/ وانا اخدت منه رؤوس أقلام وبديت في عمل البرنامج وبدي مساعده تحياتي

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

السلام عليكم ماعندي فكرة عن الطريقة هي لكن عندي كود يتحقق من صحة Spelling للكلمة بالعربي والانجليزي تحياتي

جاري تحضير مثال بسيط يفي بالغرض تحياتي

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

اختي الكريم اشكرك على تواصلك معنا

تفضلي Dim IntWhere As Integer With Me!Textbox IntWhere = InStr(.Value, Textbox) .SetFocus .SelStart = IntWhere - 1 .SelLength = Len(Textbox) End With تحياتي

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

Respected islammmi if you can't upload your database to officna website try to send to my e-mail Ajamali@acts-alsarh.com but first of all, remove all ur personal data Regards Amjad Jamali الترجمة: المحترم اسلامي اذا كنت لا تستطيع ارفاق مثالك من خلال موقع أوفيسنا جرب ارساله الى ايميلي لكن بعد ان تفرغه من بياناتك الخاصة

السلام عليكم ورحمة الله وبركاته تتبع معي Start بعدين Run بعدين اكتب هذا الامر Msconfig بعدين روح على Startup وابحث اذا لقيته في الليست احذفه او شيل الشيك بوكس من عليه جرب يمكن يمشي الحال

اختي الكريمة ماذا تقصدين بهذه هل تقصدين Page Tab وتأكدي بأن قيمة هذه النص للخصائص هي Enabled = True Locked = False تحياتي

السلام عليكم ورحمة الله وبركاته من بعد اذن الاستاذ ابو نعيم والاستاذ مصلح الحريصي يوجد طريقة بالكود تقوم بإلغاء التضليل للنص في حقل نصي ضعي هذا الكود في حدث عند الدخول او On got Focus Dim IntWhere As Integer With Me!Textbox IntWhere = InStr(.Value, Textbox) .SetFocus .SelStart = IntWhere - 1 End With فقط عدلي اسم النص من Textbox الى الاسم الموجود عندك تحياتي ابو نادر

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

أخواني الأعزاء وائل و رضا عقيل متل ما وعدتكم تم بحمد الله ربط الفروع البعيدة عن طريق ال Ip Address بغض النظر عن طريقة الإتصال سواء كانت Leased Line او DSL Connection او Dial Up Connection حمل الملف وفك الضغط الملف إضغط بيمين الماوس واختر تحرير او Edit وشوف الأوامر وأظنها سهلة مو محتاجة شرح وعدل عليها حسب ال IP Address ال عندك تحياتي اخوكم ابو نادر المثال جربته داخل فرعين تابعين للشركة التي اعمل بها في الرياض ونجح والحمدلله فرع رئيسي وفرع اخر مربوطين مع بعضهم البعض عن طريق ال DSL SubSetDrive.zip