kanory

استخدم هذا الكود في الزر لديك .... واعلمنا بالنتيجة ...... 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 واشتغل عادي ايش المشكلة

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

ما بها الرسالة هل تريد الغائها وعدم ظهورها ؟؟؟؟؟

التلقائي هو العمودي مالم تغيره أو تقصد برمجيا

تفضل ولاحظ التعديلات : كونت لك استعلام ونموذج لاستخراج الاجمالي copy.accdb

انظر .....

استخدم هذا الكود ...... Private Sub Text0_Change() On Error Resume Next Dim L As Integer L = Val(Len(Text0.Text) - 1) If Not Trim(Text0.Text) = "" Then If IsNumeric(Text0.Text) = False Then Text0.Text = Mid(Text0.Text, 1, L): Text0.SelStart = Len(Text0.Text) End If End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) On Error Resume Next Select Case KeyAscii Case 48 To 57, 32 '(لإلغاء SPACE) KeyAscii = 0 End Select End Sub

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