alaa aboul-ela

السلام عليكم

تحياتي للجميع واسمحوا لي بالمشاركة في هذا الجمع الطيب 
واتمنى ان يلبي الملف احتياجات زميلنا الغزيز  @فارس بني هلال

الاستعلام all 

cars.accdb

3 دقائق مضت, alaa aboul-ela said:

اتفضل 

شكرا لك استاذي العزيز ساجرب وأن شاء الله اخبركم بالنتيجة

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

في ٣٠‏/١٢‏/٢٠١٨ at 15:28, Shivan Rekany said:

استاذن من استاذ صالح حمادي

اخي انت محق 

والسبب يرجع لمصدر النموذج اي جدول sales حقل itemcode 
قم بتغيير خاصية Field Size للحقل المذكور اعلاه من Integer الى Long Integer
 

 

اتفضل 

شكرا لك استاذي العزيز ساجرب وأن شاء الله اخبركم بالنتيجة

اتفضل 

sales.accdb

sales.mdb

السلام عليكم

لدي مشكلة وهي ان دالة val والخاصة بتحويل الحقل النصي لرقمي لا تعمل مع الارقام اكبر من خمس مواقع
بمعنى تقوم بتحويل الارقام في الحقل النصي لعدد 5 ارقام فقط 

val [field] = 12345 

اكثر من ذلك

val [ text]  = 0 

في حالة ان الحقل النصي يتجاوز عدد 5 ارقام بمعنى 1234567 يقراها صفر 32156875 يقرأها صفر وهكذا

ما العمل وهل هناك حل لهذه المشكلة ؟؟ او كود بديل او طريقة اخرى 

وانا بحاجة لتحويل ارقام تتجاوز التسع مواقع او فئات احياناً ..

وهذا هو الكود ..

Me.itemcode = Val([barcode])

وشاكر افضالكم مقدماً ... تحياتي ..

السلام عليكم
التقرير الاخير اجمالي 

aa.bmp

ومرفق ملف
يعرض

الفروقات لكل صيدلية على حدة حسب التاريخ واسم الصيدلي استعلام aa

الفروقات الاجمالية لكل صيدلية وصيدلي صيدلية 1 و صيدلية 2 و صيدلية 3

تحياتي للجيمع
 

Orderphamacies.accdb

Orderphamacies.mdb

السلام عليكم

رجاءاً مراجعة الرابط لقد تمت الاجابة على سؤالك بالأمس ... تحياتي

https://www.officena.net/ib/topic/87907-نقل-معلومات-من-جدول-الى-جدول-اخر/?do=findComment&comment=555445

السلام عليكم
اتمنى ان يلبي الملف طلبك ..

تحياتي

ZZZ_alaa.accdb

الملف بصيغة 2003

ZZZ_alaa1.mdb

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

مرفق ملف يمكنك العمل عليه مباشرة

alaa_cars.accdb

الملف بصيغة 2003

alaa_cars.mdb

بارك الله فيك ... كده كله تمام 
سلمت يداك يا عزيزي ..

السلام عليكم

الكودين التاليين يعملان كل على حده ولكن حينما اقوم بجمعهما لا يعملان وتظهر لي رسالة بالخطأ برجاء جمعهم في كود واحد

=IIf([in]<[from],0)

الثاني

=IIf([in]>[from],DateDiff("n",[from],[in]))

وشكرا مقدما ..

السلام عليكم

الطريقة الاولى بالضغط على زر اظهار او اخفاء الحقل 

showhide.accdb

استاذي الغالي / جعفر ..

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

استاذي / ابو جودي

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

برجاء الدخول على شاشة تعديل كلمة السر password change

في حالة تطابق كلمة السر القديمة old   مع كلمة السر pass word يسمح بكتابة كلمة السر الجديدة  new

في حالة عدم التطابق يختفي حقل كلمة السر الجديدة new

وشكرا مقدما ..

الاساتذة الاعزاء

السلام عليكم

اريد التعديل على الكود في الملف المرفق بحيث

اذا تساوت كلمة السر القديمة old مع كلمة السر password يظهر حقل كلمة السر الجديدة new

If [old] = [password] Then
Me.new.Visible = True
End If

وااذا لم تتساوى   old<> password  لايظهر حقل كلمة السر الجديدة

If [old] <> [password] Then
MsgBox "كلمة السر خطأ حاول مرة اخرى  ", vbCritical, "ÊÍÐíÑ"
Cancel = True
Me.new.Visible = False
End If

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

alaa_password.accdb

كود عدم التمكين بعد الضغط للمرة الاولى

Command0.Enabled = False
or
Command1.Enabled = False
or
Command2.Enabled = False

عدم تفعيل زر.accdb

السلام عليكم

بعد اذن استاذ جعفر واسف للتاخير في الرد على الزميل @محمد قاسم 12

الملف مجرد مثال لتطبيق الكود الخاص باستاذي الفاضل جعفر بارك الله له وفيه

names.accdb

تسلم ايدك روعة ... هذا ما كنت ابحث عنه طويلاً .. جزاكم الله خيراً

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

جزاكم الله خيراً 
ساجرب الطريقة واخبركم بالنتيجة ان شاء الله ..

اهلا استاذي جعفر 
بالظبط كده .. وتكون في كل مرة 3 نسخ 1 للعميل و 1 للحسابات و1 للمخازن :) 

معلش
وكود كمان لزر بعد الضغط عليه للمرة الاولى يظهر بعدها غير مفعل او غير ممكن ..

اثقلت عليك ولكني اعرف انك قدها وقدود :)

السلام عليكم

الاساتذة الافاضل اريد كود طباعة الفاتورة لمرة واحدة ..

تحياتي ..

السلام عليكم

اتفرج على الفيديو ده وطبقه .. طريقة الشرح جميلة وسهلة

وهذا رقمي لو اردتم 

01096620227

ومن خارج مصر اسبق الرقم ب

002

سابقة الاعمال

تصميم برامج لشركات مقاولات وتوريدات عمومية

تصميم برامج مستشفيات وعيادات ومراكز طبيبة 

تصميم برامج صيدليات

تصميم برامج مبيعات ومخازن لشركات تجاية

10 ساعات مضت, حسين العربى said:

استاذي الفاضل alaa aboul-ela الف شكر علي اهتمامك طبعا هذا هذا هو المطلوب  بس لو تكرمت لا اريد حسابات داخل الجدول  لاني استخدم اوفيس 2007 وحقل محسوب لايوجد داخل 2007 ان امكن ولك مني جزيل الشكر

السلام عليكم

زميلي العزيز

غالي والطلب رخيص 

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

شوف ولو في اي استفسار او تعديل ابلغني وانا تحت امرك ..

totalbill_1.1.rar

5 ساعات مضت, jjafferr said:

السلام عليكم

 

شكرا اخوي علاء على المشاركة

أخي حسين ، اخي علاء اعطى نفس الفكرة ، ولكن بإختلاف مسميات الحقول

عملت نفس الاستعلام Q_111 ، ولكن بالحقل الصحيح ،

والفرق بين كود Dlookup السابق والجديد ، هو حقل رقم الفاتورة الآن عبارة عن نص.

 

جعفر

922.1.PROGRMS_STORY.accdb.zip

استاذي الغالي ... كل الحب والتحية لنبل اخلاقك 

انت دوماً سباق بالخير ولا تبخل على احد بعلمك ومجهودك

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

تحياتي ..