-
Posts
2,256 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
136
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو 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
-
-
اصنع في الجدول الخاص بالاشخاص مربع اختيار .... صع علامة صح للاشخاص الغير مرغوب في ظهورهم ....
-
الحمد لله رب العالمين ..... حياك الله
-
مطلوب عدم الاستجابة للكتابة في مربع النص عند ادخال حروف
kanory replied to alsihran's topic in قسم الأكسيس Access
انت وضع شرط للبرنامج لابد ان يكون رقم 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 -
مطلوب عدم الاستجابة للكتابة في مربع النص عند ادخال حروف
kanory replied to alsihran's topic in قسم الأكسيس Access
طيب برنامجك جربته وكتبت في الرقم 100 واشتغل عادي ايش المشكلة -
طيب ممكن ترفق لنا هذا التقرير
-
مطلوب عدم الاستجابة للكتابة في مربع النص عند ادخال حروف
kanory replied to alsihran's topic in قسم الأكسيس Access
ما بها الرسالة هل تريد الغائها وعدم ظهورها ؟؟؟؟؟ -
التلقائي هو العمودي مالم تغيره أو تقصد برمجيا
-
تفضل ولاحظ التعديلات : كونت لك استعلام ونموذج لاستخراج الاجمالي copy.accdb
-
-
مطلوب عدم الاستجابة للكتابة في مربع النص عند ادخال حروف
kanory replied to alsihran's topic in قسم الأكسيس Access
استخدم هذا الكود ...... 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
-
شرح وافي ... ماشاء الله تبارك الله
- 13 replies
-
- 1
-
- البيانات النصية (csv;text)
- بيانات أكسل
-
(و1 أكثر)
موسوم بكلمه :
-
بارك الله فيك اخي @أبو إبراهيم الغامدي متابع ....
- 13 replies
-
- البيانات النصية (csv;text)
- بيانات أكسل
-
(و1 أكثر)
موسوم بكلمه :