kkhalifa1960

أخي اذا كان هذا مطلبك حدد على ايقونة افضل اجابة

أخي الفاضل اعكس السلاش علامة القسمة....... المفروض تكون (/) وليست (\) وتفضل xy-1.accdb

تفضل أخي ووافني بالرد مثال-1.rar تفضل أخي ووافني بالرد

استاذ حمدي جرب strMSG = "*" & Me.myname.Value & "*" & "*" & Me.msg.Value & "*" & "*" & Me.attach1.Value & "*" & "المرسل": Me.sub = "& Me.myname.Value & " & "" & vbCrLf & "*" & Me.msg.Value & "*" & "" & vbCrLf & "*" & Me.attach1.Value & "*" & vbCrLf & "" & "المرسل : *"

في وضع التصميم عند النقر على الحقل (DoCmd.GoToRecord , , acPrevious) واذا تبغي الرجوع لأي حقل آخر نفذ ماسبق في كل الحقول واليك المرفق. ووافني بالرد DA111.rar

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

أخي الحقل بالفعل غير منضم........... اختارها من عندك افضل اجابة

تفضل أخي توحيد فورمات الوقت لجميع حقول الوقت بالجدول ... وتغديل معادلة الوقت الاضافي وانظر للمرفق جيداً ووافني بالرد Database 04.rar

هذا مثال للتقويم الهجري وام القرى والميلادي لمشرفنا القديم أبو هادي أكيد بينفعك NewCalendar.rar

استكمالا لما قام به استاذنا موسى تفضل f6-1.rar

البرنامج ممكن يفتح بــ (AccessFIX) لكن بدون أكواد

وين المثال كي نعمل عليه ووضح المطلوب به .

استاذي انا مهمتي ضبط الكود كي يعمل وأنت أدرى بالباقي

اختارها من عندك افضل اجابة

تفضل أخي أنا جربت عندي Private Sub btn_supprimer_Click() Dim rs As Recordset, Quantite As Long Set rs = CurrentDb.OpenRecordset("SELECT * FROM Sorties WHERE id=" & Me.txt_id & " ") If Not rs.EOF Then Quantite = rs("Quantite") rs.Close DoCmd.SetWarnings False DoCmd.RunSQL "DELETE FROM Sorties WHERE id=" & Form_Sorties.txt_id DoCmd.RunSQL "UPDATE Stock SET Sortie=Sortie-" & Quantite & " WHERE id=" & Me.txt_id & " " DoCmd.SetWarnings True Form_Sorties.Requery Else MsgBox "L'enregistrement que vous essayez de supprimer n'existe pas !", vbCritical, "Erreur" End If Set rs = Nothing End Sub

وتفضل بعد التعديل ووافي بالرد 752محاسبة2018 مستودعات.rar

نفعت معك يامالك الحرايزة لاني جربتها على حقل شطب فقط وخصائصه في الاستعلام كما قال لك أخي أبو أحمد ( تنسيق General Number) وهذه صورة الناتج

باين عليا الكبر شاين

حضرتك استخدمت الدالة {AA: Sum(Nz([شطب];0)) } لحل مشكلة الاصفار تمام ولحل مشكلتك الحالية استخدم دالة التقريب { bb: Round([AA];2) } لاقرب رقميين عشريين

ارفق مثالك أخي لمساعدتك

تفضل أخي Set rs = CurrentDb.OpenRecordset("Select * From Stock Where id=" & Me.article &" ")

تفضل أخي ووافني بالرد عاطف1452 (2).rar

تفضل اخي ووافني بالرد برنامج-1.rar

شكرا لك يا دكتور جمال الله يجعله في ميزان حسناتك🌹

وين رد الاستاذ سامر محمود ؟؟؟؟