أبا عمر

أستاذي الحبيب جزاك _الله_ خيرا إن شاء ربي سأرفق مثالنا شاملنا لكل ما ذكرت وسبب تأخري في إرفاق المثال هو الآتي : فأنا من وقتها أحاول وطبعا التأخير كان طبيعي بالنسبة لمثلي لأنه من الواضح أن الموضوع كبير عليً (وكما تعلم طعام الكبار سم الصغار) لكن أستاذي لفت إنتباهي أمر لما نقلت المجلد المخفي على جهاز آخر عندي وجدته ظاهر وغير مخفي عموما سأحاول اليوم وأعطيك ردا أرجو أن تتحملني

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

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

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

السلام عليكم ورحمة _الله_ وبركاته كيف الحال إخواني لعلكم بخير وعافية وجدت كود للأستاذ أبو يوسف لإخفاء مجلد قاعدة البيانات لحمايتها من العبث بها وأيضا يمكن الأتصال بالقاعدة في حال الإخفاء والكود اشتغل معي تمام في الإخفاء لكن عند الإتصال بالقاعدة لم يعمل ولم يتعرف على مكانها ولا أدري هل لم أُحسن فهم طريقة عمل الكود أم هناك شيء خطأ فيه. Option <span class="adtext" id="adtext_2">Compare Database</span> <span class="adtext" id="adtext_1">Option Explicit</span> Private Const SHCNE_ASSOCCHANGED As Long = &H8000000 Private Const SHCNF_IDLIST As Long = &H0 Private Declare Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _ ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _ (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _ (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, _ ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Public Const acshow As String = "3" Public Const achide As String = "50" Public Function WRITEINI(ByVal SECTION As String, KEY As String, value As String, INIFILE As String) WritePrivateProfileString SECTION, KEY, value, INIFILE End Function Public Function GETINI(ByVal SECTION As String, KEY As String, INIFILE As String, ByRef rVALUE As String) As Boolean Dim value As String * 256 Dim a As Long a = GetPrivateProfileString(SECTION, _ KEY, "?!?", value, 256, _ INIFILE) If Left$(value, 3) = "?!?" Then GETINI = False Else GETINI = True rVALUE = Left$(value, a) End If End Function Public Sub ChangeMyIcon(Icon As String, Folder As String, IconType As String) WRITEINI ".ShellClassInfo", "iconfile", Icon, Folder & "\desktop.ini" WRITEINI ".ShellClassInfo", "iconindex", IconType, Folder & "\desktop.ini" SetAttr Folder, vbSystem 'This is important End Sub Private Function ParentFolder(strpath As String) As String ParentFolder = Left$(strpath, InStrRev(strpath, "\") - 1) End Function Public Sub HideFolder(fldrpath As String) Call ChangeMyIcon("%SystemRoot%\system32\SHELL32.dll", fldrpath, achide) Call SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0) SetAttr fldrpath, vbHidden + vbSystem Name fldrpath As ParentFolder(fldrpath) & "\" & Chr(160) End Sub Public Sub ShowFolder(fldrpath As String) Name ParentFolder(fldrpath) & "\" & Chr(160) As fldrpath Call ChangeMyIcon("%SystemRoot%\system32\SHELL32.dll", fldrpath, acshow) Call SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0) SetAttr fldrpath, vbNormal End Sub وهذا كود للإخفاء المجلد HideFolder "c:\data\myfolder" وهذا الكود لإظهاره ShowFolder "c:\data\myfolder" جزاك _الله_ خيرا وكل عام وانتم بخير

أخي الحبيب حدد إختيار All file ثم ضع قاعدة البيانات الخاصة بك وسيعمل بشكل طبيعي

السلام عليكم ورحمة_الله_وبركاته أخي الحبيب سبب الرسالة أنك لم تحدد قاعدة البيانات الخاصة بك فأخذ البرنامج القاعدة الافتراضيه MyProg.exe وهي للتجربة. لذا عليك إختيار قاعدة البيانات المطلوبه من هنا Application main executable file إضغط على Browse وحدد القاعدة

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

الحمد لله

السلام عليكم ورحمة _الله _ وبركاته كيف حال إخواني الكرام الدالة التالية تعمل معي بشكل ممتاز مع الارقام كيف لي أن أغيرها لتتناسب مع النصوص If [NO_MARHALYA] = DLookup("NO_MARHALYA", "HARKET_MARHALYATS", "[HAWYA]=[Forms]![hraket_marhlyat]![HAWYA]and [NO_MARHALYA]=[Forms]![hraket_marhlyat]![NO_MARHALYA] ") And DLookup("TAKDEER", "HARKET_MARHALYATS", "[HAWYA]=[Forms]![hraket_marhlyat]![HAWYA]and [NO_MARHALYA]=[Forms]![hraket_marhlyat]![NO_MARHALYA] ") <> "no" Then أرجو أن أكون قد أحسنت إيصال المطلوب جزاكم_الله_خيراً

اللهم آمين

السلام عليكم ورحمة_ الله_وبركاته أخي الكريم مصطفى أولا - ترحيل قيمة الحقل المحسوب وتخزينه في جدول أخبرنا أستاذنا أبو خليل بأنه غير صحيح ثانيا - ممكن تقوم بالاستعلام عما تريد عن طريق الدالة Dsum لحساب ما تم دفعه والباقي بدلا من تخزينه ثالثا - إن كنت ممصم على تحديث بيانات الحقول المحسوبه من النموذج الى الجدول فذلك عن طريق إستعلام تحديث مرفق لك الطريقتان : أرجو أن أكون قد أحسنت الفهم ! advance2.rar

السلام عليكم ورحمة_ الله_ وبركاته أخي الكريم مصطفى القماش أخي الحبيب وأستاذي الكبير أبو خليل حياكم ربي بعد إذن أستاذي ابو خليل .... أخي الحبيب مصطفى قمت بإدخال 5 أشهر و 6 أشهر واشتغل برنامجك معي تمام كما تريد يقوم بحفظ بيانات القسط الشهري المسجله في حقل monthlypay في جدول advancepay وقام برنامجك بحساب عدد الاقساط وقيمة المدفوع من السلفة والباقي . وإن أحسنت فهم هذه المشاركة من أولها أظن أن سبب المشكلة عندك هي عدم وضعك لقيمة القسط الشهري في حقل monthlypay في النموذج الفرعي advance22 subform حيث تكتفي بالقيمة الموجدوة في حقل Text11 والذي يأخذ قيمة القسط بهذه الطريقة (Forms!advance1![advance11 subform].Form!Expr1 ) كما وضعتها أنت في مصدر عنصر التحكم وإن أحسنت الفهم فلا يوجد تعديل في البيانات المالية السابق إخالها ، كل ما في الأمر هو إدخال بيانات الاقساط الشهرية . لكن أخي الحبيب أرى أن تعيد النظر في بناء البرنامج كما تفضل أستاذي أبو خليل " جزاه ربي عنا خيرا الجزاء "

أستاذنا أحسن_الله_إليك

جزاك_الله_خيراً

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

جزاك_الله_خيراً

جزاك ربي عني خير الجزاء وأسأل _الله _ في عليائه أن يمن عليك بالصحة والعافية ويجعل ما تقدمه لنا من مساعدة في موازينك يوم تلقى ربك وهو عنك راض غير غضبان كما أسأله أن يرفع درجتك في الدنيا والآخرة ويجعلك ممن يغفر لهم ربي خطاياهم ويدخلهم الجنة بغير حساب ولا سابقة عذاب ومن تحب ومن تخصهم بالدعاء اللهم آمين قال رسول _الله _ صلى الله عليه وسلم : ( إذا اصطنع أحدُكم إلى أخيه معروفًا ، فقال له : جزاك اللهُ خيرًا ، يقولُ اللهُ تعالى : عبدي أَسْدَى إليك أخوك معروفًا فلم يكنْ عندك ما تُكافئُهُ ، فأَحَلْتَهُ عليَّ والخيرُ منِّي الجنةُ ) ( من صُنع إليه معروفٌ فقال لفاعلِه جزاك اللهُ خيرًا فقد أبلغ في الثَّناءِ وفي روايةٍ من أَولَى معروفًا أو أُسدِي إليه معروفٌ فقال للَّذي أسداه جزاك اللهُ خيرًا فقد أبلغ في الثَّناءِ ) ( منِ استعاذَ باللهِ فأَعِيذُوهُ، و منْ سألَكمْ باللهِ فأَعْطُوهُ، و مَنْ دَعَاكُمْ فأَجِيبُوهُ، و مَنْ صَنَعَ إليكُمْ معروفًا فَكَافِئُوهُ، فإنْ لمْ تجدُوا ما تكافِئونَهُ، فادْعُوا لهُ حتى تَرَوْا أنَّكُمْ قدْ كافَأْتُمُوهُ )

جزاك ربي خيرا أستاذي الكريم أبا خليل سأجرب وأوافيك بالنتيجة

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

السلام عليكم ورحمة_الله_ وبركاته إخواني هل يمكن إستخدام الدالة Dlook up لإرجاع قيمة حقل إختيار (نعم / لا ) ؟ إن كان فما هي طريقتها ؟ وإن لم يكن فما هو البديل؟ جزاكم ربي الجنة

جزاك_الله_خيرا أستاذ أبو خليل

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

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

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