أبا عمر

السلام عليكم ورحمة _الله_ وبركاته أخي الحبيب لما لا تريد أن تبحث ؟؟؟؟؟!!!!! عموما جرب التالي : حمل المرجع المرفق : يتم تسجيل المرفق بالطريقة التالية حسب الويندوز الذي تعمل عليه 1- في حال كان الويندوز 7 32 بت أو XP ضع المرجع في SYSTEM32 وقم بتسجيله كما يلي ابدأ ثم RUN ثم الصق السطر التالي ثم انتر : regsvr32 \windows\system32\msinet.ocx 2- في حال كان الويندوز 7 64 بت ضع المرجع في SYSWOW64 وقم تسجيله كما يلي ابدأ ثم RUN ثم الصق السطر التالي ثم انتر: regsvr32 C:\Windows\SysWOW64\MSINET.OCX 3- حمل المثال التالي وهو للأستاذ رضا عقيل جزاه _الله_ خيرا ومن عليه بالذرية الصالحة : Msinet.rar Send Sms1.rar

السلام عليكم ورحمة _الله_ وبركاته بعد إذن أستاذ سمير وبعد إذن أستاذ عادل هذه مداخلة يسيره أرجو أن أكون قد أحسنت الفهم A_db2.rar

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

السلام عليكم ورحمة _الله_ وبركاته عندي مداخلة بعد إذن أستاذي عادل وأستاذي سمير لما لا يكون هناك جدول منفصل لنوع المنتج؟

السلام عليكم وحمة _الله_ وبركاته تفضل أخي روائع من منتدانا الغالي http://www.officena.net/ib/?showtopic=39273 http://www.officena.net/ib/index.php?showtopic=31297

تفضل أستاذي أعتذر لك عن الخطأ If IsNull(Me.Judge1) Then Etqan1 = 0 Else If Not IsNull(Me.Judge1) Then Etqan1 = Ahkam0 End If End If

أرفق مثال للتعديل عليه

تفضل أخي الكريم If IsNull(me.Judge1) Then Etqan1 = 0 Else If IsNotNull(Me.Judge1) Then Etqan1 = Ahkam0 End If End If

السلام عليكم ورحمة _الله_ وبركاته إضافة يسيره أرجو أن تقبلها استاذي ضع الصور في مجلد FOTO الموجود داخل مجلد البرنامج A_2.rar

الحمد _لله_ الذي بنعمته تقضى الحاجات

جزاك _الله_ خيرا أخي الكريم

السلام عليكم ورحمة _الله_ وبركاته تفضل أخي If MsgBox("أنت على وشك حذف أو تحديث سجل سجلات " & vbCrLf & _ "لتأكيد الأمر أضغط على زر موافق ، ولإلغائه أضغط على زر إلغاء", _ vbInformation + vbOKCancel + vbMsgBoxRight, _ "تأكيد تنفيذ الأمر") = vbOK Then DoCmd.SetWarnings False DoCmd.OpenQuery "اسم الاستعلام" DoCmd.SetWarnings True

السلام عليكم ورحمة _الله_ وبركاته أخي الحبيب ما رأيك بهذه البداية A_H.rar

السلام عليكم ورحمة _الله_ وبركاته أخي الحبيب ضع الملف المرفق في المسار التالي في حال الويندوز عندك 32 بت C:\Windows\System32 أو المسار C:\Windows\Syswow64 في حال الويندوز 64 بت TWAIN32d.rar

السلام عليكم ورحمة _الله_ وبركاته أنت تريد عمل تقرير حركة صنف صحيح ؟ ما رأيك أن نبدأ في إعادة بناء الجداول من جديد

السلام عليكم ورحمة _الله_ وبركاته تفضل أخي الحبيب أرجو أن يكون مبتغاك ah _ مساعده.rar

الحمد _لله_ أختي الفاضلة

السلام عليكم ورحمة _الله_ وبركاته أخي الحبيب أولا أسماء الحقول والكائنات باللغة العربية وهذا يسبب مشاكل كبيرة ثانيا وضعت لك مربع تحرير وسرد عندما تختار منه رقم العقد يجلب لك بيانات العقد المحدد أرجو أن يكون مبتغاك ثالثا لو أردت إستخدام الدالة DLOOKUP بناءا على الحقول لديك تكتب بهذه الطريقة =DLookUp("[namee]";"[tbl]";"[no] =[Forms]![x]![no]") حيث حقل رقم العقد عندك رقمي إن لم يكن ما تريد وضح أكثر عقود وصرف2.rar

السلام عليكم ورحمة _الله_ وبركاته تفضل أخي لكن تخزين الرصيد في الجدول غير صحيح حيث تستطيع استدعاء الرصيد في أي وقت سواء في الإستعلام أو التقرير ...... تفضل ah _ مساعده.rar

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

أرفق مثال للتعديل عليه

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

السلام عليكم ورحمة الله وبركاته ممكن تستخدم الدالة Dlookup لإستدعاء إسم المالك أو إسم المستأجر =DLookUp("[namee]";"[tbl]";"[no] = '" & [Forms]![x]![no] & " ' ") namee = الإسم الذي تريد استدعائه tbl = الجدول الذي تريد إستدعاء البيانات منه no = رقم العقد x = إسم النموذج

السلام عليكم ورحمة _الله_ وبركاته save_entery2003.rar

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