kanory

هذه طريقة اخرى قد يكون طبلك ..... تقرير.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

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

تفضل .... القسمة على غير العدد.accdb

ضع عند حدث التحديث لمربع النص A هذا الكود If IsNumeric(A) And IsNumeric(B) Then Me.نص4 = [A] / [B] Else Me.نص4 =0 End If

شرح وافي ... ماشاء الله تبارك الله

بارك الله فيك اخي @أبو إبراهيم الغامدي متابع ....