hantantin

6 ساعات مضت, Ma1978her said:

للأسف اخي الكريم

مشكور... معظم الامور وجدت سبب الاخطاء مني

سؤال:أليس من المفروض الاصدارات القديمة تعمل على النسخ الحديثة من الاوفيس؟ 

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

و شكرا على علمكم النافع لنا

@ابوآمنة @jjafferr @محمد سلامة @sandanet 

السلام عليكم

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

السلام عليكم 

اولا شكرا جزيلا على هذا البرنامج الرائع و جزاك الله كل خير 

من قرائتي للتعليقات وجدت انه يجب تفعيل البرنامج ولكن عند فتح البرنامج لم اجد انه بحاجة للتفعيل او لم اعرف مكان كيفيه تفعيله.. فهل بحاجة للتفعيل؟ 

عند اضافه فاتورة شراء اجد ان القيمة المضافة تنزل تلقائيا فهل يمكن إلغائها او جعلها يدويا؟ 

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

وجزاكم الله كل خير على الفائدة العظيمة من منتداكم

9 ساعات مضت, محمد أبوعبدالله said:

ضع شرط if قبل فتح التقرير ليتحقق من ان الحقل ليس فارغ كالتالي

 

مشكور اخي محمد ولكن

انت حليت مشكلة الغاء ظهور الخطأ ولكن انا سؤالي عند استخدام الاستعلام

Like "*" & [Forms]![all_reports]![a1] & "*"

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

Like "*" & Replace([Forms]![all_reports]![a1]," ","*",1,-1) & "*"

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

و شكرا

@jjafferr

السلام عليكم

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

طبعا انا استخدم طريقة لجلب الاسم غير طريقة جلب الرقم في التقارير

سؤالي الثاني هل يمكن الاستغناء عن الاستعلام المرفق ايضا بالبرنامج الخاص بنموذج Bill

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

وشكرا

بحث.rar

اخوتي الكرام

لدي قاعدة بيانات منقسمة لجداول(MR.accdb) وواجهة موزعة على كمبيوترات الشبكة...عن طريق الواجهة يمكنني نسخ ملف محدد داخل مجلد المشاركة

FileCopy CurrentProject.Path & "\MR.accdb", CurrentProject.Path & "\source\MR.accdb"

سؤالي :هل ممكن ان انسخ نفس الملف على الهارد ديسك مثلا d:\ الخاص بالكمبيوتر الاساسي  بغض النظر ان كان العمل على الكمبيوتر الاساسي او كمبيوتر اخر على الشبكة

وهل يمكن ايضا انشاء مجلد ووضع الملف بداخله وما هو الكود الخاص بانشاء المجلد بهذه الحالة

طبعا الهارد D لا يوجد به اذن مشاركة 

وشكرا

مشكور اخ علاء على الطريقة الناجحة... 

ملاحظة :يمكن دمج كودك مع الرابط في الكود الخاص ببرنامجي وبهالحالة يصبح الكود ممتاز 

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

الان, hantantin said:

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

 

اخ علاء 

@jjafferr تم حل المشكلة بطريقة ثانية حيث تم عمل نموذج داخل الجداول الغاء شيفت و الدخول برقم سري متصل بيوزر الادمن

ارجو ان يكون هنالك حل ابسط كما طرحت بالسؤال

ان كان لا يوجد حل.... هل هناك طريقة لمنع المستخدمين من الوصول الى الجداول حتى لا يستطيعو  التعديل

@jjafferr @ابو تراب @أبو آدم اخت زهراء او اي احد من الاخوة و الاخوات ارجو المساعدة

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

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

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

طبعا الاكواد للامانةدمج من عدة اخوة واخوات من عدة منتديات

Option Compare Database

Public Function CreateTableLink(strBEPath, strSourceTableName, strPassword) As Boolean

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim strConnect As String
Dim strLinkName As String

strLinkName = strSourceTableName

strConnect = "MS Access;PWD=" & strPassword & _
    ";DATABASE=" & strBEPath
Debug.Print strConnect
Set db = CurrentDb
Set tdf = db.CreateTableDef
tdf.Connect = strConnect
tdf.SourceTableName = strSourceTableName
tdf.Name = strLinkName
db.TableDefs.Append tdf

Set tdf = Nothing
Set db = Nothing

End Function
 

Private Sub Command0_Click()
Call CreateTableLink("C:\Users\lenovo\Desktop\ttt\11\55_be.accdb", "table", "123")

End Sub

45 دقائق مضت, ازهر عبد العزيز said:

 طبعا للامانة الاكواد للاساتذة المبدعين @jjafferr  ,  @ابو تراب

طبعا شكرا لجميع الاخوة و الاخوات لمساعدتهم 

السلام عليكم

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

ملاحظة:كلمة السر للجداول 123 و عند إلغاء كلمة المرور للجداول و فتح البرنامج مرة اخرى و الضغط على زر الدخول يتفعل المسار الجديد بدون مشاكل

zzzz.rar

في ١٥‏/٨‏/٢٠٢٠ at 06:31, محمد أبوعبدالله said:

منهم برنامج Smart Install Maker متاح على الانترنت باكثر من لغة

سوف اجربه و شكرا جزيلا اخي الكريم

السلام عليكم

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

اريد ان اجعله كملف تنفيذي يتنصب بقائمة ابدأ كأنه برنامج نظامي

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

سؤال اخر: اذا كان هناك برنامج لسؤالي السابق...هل ممكن ان يعمل برنامج بدون وجود اوفيس على الكمبيوتر الاخر؟ او يوجد اوفيس قديم

شكرا كثيرا لجميع اعضاء المنتدى

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

4 ساعات مضت, محمد أبوعبدالله said:

ام انك تقوم بتحديث الفاتورة السابقة ( الكتابة عليها مرة اخرى )

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

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

سؤال جديد:نسخة الاوفيس عندي 2007-2016 كيف يمكن جعل البرنامج يعمل على 2003 ؟عند الحفظ تظهر رسالة بعدم الامكان

مشكورين مقدما

السلام عليكم 

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