kanory

انا كنت اتحدث عن هذا المرفق بارك الله فيك

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

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

سؤال غير مفهوم ... انظر الصورة ماذا تريد هل تريد دمج الحقل المشار الية بالاحمر وعمل جمع لبيقة الحقل ؟؟؟؟؟؟؟

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

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

استخدم هذا الكود في الزر لديك .... واعلمنا بالنتيجة ...... Dim i, j As Integer Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("mytable") For j = 1 To WebBrowser3.Document.getElementsByTagName("table").Item(0).rows.Length - 1 rs.AddNew rs!t1 = WebBrowser3.Document.getElementsByTagName("table").Item(0).rows(j).cells(1).innerText rs!t2 = WebBrowser3.Document.getElementsByTagName("table").Item(0).rows(j).cells(2).innerText rs.Update Next MsgBox "تم الاستيراد بنجاح"

حياك احمد ..... ممكن ولكن لو زوتنا بمرفق كمثال للعمل عليه

نعم صحيح اخي .... ما ما حبيت اغير في البرنامج ..... المفروض ما نعتمد على التسلسل الموجود في الجدول .... نعمل مربع نص خاص و نجعله غي منضم ومصدرة =1 بارك الله فيك لا حظ المرفق الجديد للفائدة حتى تكتمل الفكرة تقرير.rar

واياك .... الحمد لله رب العالمين ....

هذه طريقة اخرى قد يكون طبلك ..... تقرير.rar

تفضل ::::: وهذ هو الكود الذي تحدث عنه أخي @ mohamedd2003 On Error Resume Next Langauge ELanguage.Ar Dim fOK As Boolean Dim strTemp As String Forms!whatsapp.SetFocus strTemp = Me.txtMessage fOK = SetClipboardData_clt(strTemp) '========================================================================================================= Langauge ELanguage.en Application.FollowHyperlink "https://wa.me/" & txtNumbers auseTime = 40 start = Timer Do While Timer < start + auseTime DoEvents Loop Call SendKeys("~", True) Call SendKeys("{Enter}", True) Call SendKeys("^v", True) Call SendKeys("{Enter}", True) '=========================================================================================================== MsgBox "تم الارسال للرقم المطلوب"

أهلا بك في المنتدى ..... اخي الكريم لو ارفقت مثال لما تريد لوجدت المساعدة من اعضاء المنتدى أهلا بك مرة اخرى في المنتدى

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

لو استخدمت خاصية البحث تجد ما يسرك ...

جرب المرفق التالي واعلمني بالنتيجة kan_mosnad.accdb

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

غير ها بهذه ..... If Mid([Combo1], 1, 5) = "اسمنت" Then Me.R.Visible = True Me.S.Visible = False Me.T.Visible = False End If

هل المطلوب اجمالي السنه الحالية فقط

اصنع في الجدول الخاص بالاشخاص مربع اختيار .... صع علامة صح للاشخاص الغير مرغوب في ظهورهم ....

الحمد لله رب العالمين ..... حياك الله

انت وضع شرط للبرنامج لابد ان يكون رقم PC واحدة من الارقام الموجودة في الجدول الموجود في الصورة وفي حالة Text4 خالي تظهر الرسالة انت حدد ذلك للبرنامج Me![Text4] = DLookup("[Pc]", "[Table1]", "[Pc]=forms![Form1].[Text0]") Refresh If (IsNull(Forms![Form1]![Text4])) Or (Forms![Form1]![Text4] = "") Then MsgBox "Number not found", 48, "Attention" End If

طيب برنامجك جربته وكتبت في الرقم 100 واشتغل عادي ايش المشكلة

طيب ممكن ترفق لنا هذا التقرير