أبو بسنت وتسنيم

معلشي انا ارسلت مثال ممكن تعملها وتوريني

New Microsoft Access Database (4).rar

ممكن مساعده من اهل الخبرة

السلام عليكم 

لو سمحت ياجماعة انا عاندي استفسار لوانا عاوز اخلي حقل يعطني ارقام عشوائية يعني يعني متغيرة علي سبيل المثال 

2589-2587-3555

وحقل ثاني يديني 

2586

بحث عند فتح النموزج يقوم بتوليد الرقم عشوائي ويتم اضافتة لجدول

ممكن ولا صعية 

ولكم مني فائق الاحترام والتقدير

وشكرا

شكرا جزيلا 

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

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

فية حل ممكن تعرفهولي

ولكم مني جزيل الشكر

في ٥‏/٣‏/٢٠١٦ at 22:30, سعيد صواب said:

حياكم الله اخواني وشكرا على مشاركتكم  جميعا

الاستاذ محمد عصام ابا جودي  ..  اولا ربنا يبارك لك في الجيجاوات اللي عندك هههههه

شوف السطر هذا  بالنسبة لرقم الهارد ... وبالنسبة للماذر بورد ... خلينا نشوف باقي المشاركات لنتبين الموضوع اكثر ..

Set obj_Drive = obj_FSO.GetDrive("c:\")

الاستاذ جندبي الاستاذ خليل والاستاذ رضا  ماقصرتوا ومشكورين على المشاركة وربينا يوفقنا ويوفقكم جيمع

الأستاذ ابو خليل ...

بالنسبة لرقم المعالج انا حصل لي نفس الموضوع واليوم تحديدا  ...  ومع ثلاثة اجهزة  

ولكن توقعت ان الخطاء مني انا عند اخذ بيانات الأجهزة لأني كنت مستعجل ..

وكنت مأجل ذكره الى ان اتأكد .. والحمد لله انك أكدت الموضوع .

 

وعموما ... بالإمكان استخدام الثلاثة .... كشروط  .. وهذا ما استخدمه انا ..

شكرا لكم وبالتوفيق للجميع 

ممكن تعرفني استخدمتها اذي علشان حصلت معاية ومش عارف اعمل ئية

شكرا اخي 

طيب استفسار ان امكن 

انا جربت البرنامج علي لاب توب توشيبا واستغل كوية وعلي اتش بي كومبك واشتغل كويس بردو وعلي ديل واشتغل كويس

لما شغلتة علي جهاز تجميع حصلت المشكلة دية 

فهل ليها علاقة بنوع المزر بورد

Next
BIOx = BIOx + 11 / 3.1 * 66612.9 / 7 * 13

For i = 1 To Len(GetDriveHD)
GetDrivX = GetDrivX & (AscW(Mid(GetDriveHD, i, 1)))

Next
GetDrivX = GetDrivX / 3 * 30811.1 * 2.9 + 31235 * 1301.2
 
 'ÇáÊÇßÏ ãä ÑÞã ãÝÊÇÍ ÇáÊÔÛíá
If Val(Prox) = Nz(Val(DLookup("[SnProc]", "sntb")), 0) And Val(BIOx) = Nz(Val(DLookup("[SnBIOS]", "sntb")), 0) And _
Val(GetDrivX) = Nz(Val(DLookup("[SnDrv]", "sntb")), 0) Then

Label0.Caption = "äÌÇÍ ÇáÊÓÌíá ãÈÑæß ÇáÑÞã ÕÍíÍ"
Else
DoCmd.Close

MsgBox "ÇáÑÞã ÛíÑ ÕÍíÍ"
DoCmd.OpenForm "StartUpFrm"
End If

الكود دة في form1

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

الملف الي فية الاكواد بالمديول بتاعة كمان

GetInfoStartUbFrm - Copy.rar

لاء والله المفروض تظهر الشاشة دية مع العلم انها ظهرة في اول جهاذ وفي الجهاذ الثاني جاب الايرور الي حضرتك شوفتة 

انا قفلت برنامج شئون عاملين وشغلتة علي اول جهاذ واشتغل كويس 

بشغلة علي الثاني طلعت الرسالة دية 

ممكن المساعده في حل الرسالة دية

وشكرا

شكرا جزيلا وجاري تحميل الملف الان والتجربية 

46 دقائق مضت, jjafferr said:

شكرا اخي يعني اعمل تحديث لي اكسس 2010 ويتعدل ان شاء الله

46 دقائق مضت, jjafferr said:

وعليكم السلام 

 

نعم هناك خلل في الاكسس (تجربتي مع اكسس 2010) مع هذه الاعدادات ،

وثقيل لما ينتقل من حقل الى آخر ،

ولكن بعد تحديثات الاكسس ، كل شئ تمام الان 

 

هذا رابط حزم تحديثات الاكسس:

http://pcsupport.about.com/od/keepingupwithupdates/a/office-service-pack.htm

 

 

جعفر

شكرا لحضرتك بس لما بعمل كلة النظام بيكون فتح النموزج سريع ولما بعمل زي الي في الصورة بيكون النموزج بطيئ

السلام عليكم ورحمة الله وبركات

لو سمحت علي بعمل مشروع 

محدد لغة الكتابه عربي والارقام دولي 

ولاكن لما يعمل بشغل الفورم بكون تقيل في تحميل الفورم ئية الحل

ورافق صورة من نظام الاعداد

فهل من مساعدة لو امكن علشان واقف عليها

وشكرا

وجزاكم الله كل خير

ممكن لو سمحت حل لهذه المشكلة

هل من مساعده

السلام عليكم ورحمة  الله وبركاتة

لو سمحت انا عاوز كود vb  خاص باستخراج الجدول او تقرير او بمعنا تصدير الي كميع الصيغ واستخداء الي ملف ورد واكسس وبدي اف كلة علي حدة ان امكن

وشكرا

اولا مشكورا جزيلا والله مجهود رائع من حضرتك وشكرا لتقديرك ومساعدك ليا 

ثانيا المشكلة هيا لا استطيع عمل تعديل 

شكرا علي مجهودك ولاكن فية اعطال فية

24 دقائق مضت, السيد جمال السيد said:

السلام عليكم اخى الكريم مشاركة مع اساتذتى الافاضل

ما رايك باستعمال لغة DAO بعيد عن مشاكل الاستعلامات ومربعات النصوص المنضمة ومشاكل النماذج 

انن شئت اكمل لك المرفق

 

ممكن تبعتهالي لو سمحت اطلع عيها

3 ساعات مضت, karrar sabry said:

الكود يعمل تمام ...

بعد تحديث الحقل عدد_الايام_المستحقة_لهذا_العام ...

استاذي انا عاوز حقل الجمالي الرصيد المرحل يخود الي موجود في حقل اجماليرصيد الاجاذات  ياخود الرقم اليفية ويحدث المرحل

المراد تحديثة رصيد_الاجاذات_الاعتيادية_المرحلة من حقل إجمالي_رصيد_الاجاذات ولو امكن لو فية طريقه بعد ما يطلب الموظف عدد ايام تكون الخانة صفر بتعتها 

شكرا

New Microsoft Access قاعدة بيانات.rar

ممكن مساعده