تعديل السندات

[النجاشي]

السلام عليكم ورحمه الله وبركاته اخوتي الأعزاء

الموضوع عندي نموذج اسمه بحث عن سند إيرادات

ويوجد به زر امر اسمه تعديل سند ايردات

كان يشتغل عندي مضبوط بعد ما تغير حقل رقم السند الي نص وحقل ترقيم تلقائي  صار لايجلب لي الخاص بالتعديل

والشكر موصول للأستاذ @jjafferr والأستاذ @Shivan Rekany  الذين بذلو معي جهد كبير اسال الله ان يضع بميزان حسناتهم وكثير من الاخوه نست اسماهم  تحياتي لكم

تعديل السندات.rar

[النجاشي]

للرفع

[اكرم العريقي]

قم بتحويل المتغير R

من intger الى  string

بالتوفيق

[النجاشي]

الان, اكرم العريقي said:

قم بتحويل المتغير R

من intger الى  string

بالتوفيق

أخي @اكرم العريقي اخوك مبتدأ ياليت توضح لي أكثر ايش هو المتغير أو تعمله لي بالقاعدة ما فهمت عليك أخي شكر إليك يالغالي

[النجاشي]

48 دقائق مضت, اكرم العريقي said:

قم بتحويل المتغير R

من intger الى  string

بالتوفيق

On Error Resume Next
Dim R As String
R = Forms![بحث عن سند إيرادات]![تابع132]![رقم السند].Value
If DLookup("[تعديل سند إيرادات]", "TB5", "[NAME]='" & Me.user1 & "'") = False Then
MsgBox "ليس لديك صلاحيه بالتعديل"
ElseIf DLookup("[تعديل سند إيرادات]", "TB5", "[NAME]='" & Me.user1 & "'") = True And R > 1 Then
DoCmd.OpenForm "تعديل سند إيرادات", acNormal, , "[رقم السند]=" & R
Else
MsgBox "ادخل رقم السند المطلوب تعديله"
End If

غيرت كما قلت الان وتظهر رساله ادخل قيمه المعلمه وانا لااريد ظهور هذه الرساله  والمشكله  كمان  يظهرالنموذج فاضي بدون ا حقول القي اليه نظره   اخي بارك الله فيك

تم تعديل يوليو 29, 2017 بواسطه ابو زاهر

[النجاشي]

للرفع

[Shivan Rekany]

اليك هذا

On Error Resume Next
Dim R As String
R = Forms![بحث عن سند إيرادات]![تابع132]![رقم السند]
If DLookup("[تعديل سند إيرادات]", "TB5", "[NAME]='" & Me.user1 & "'") = False Then
MsgBox "ليس لديك صلاحيه بالتعديل"
ElseIf DLookup("[تعديل سند إيرادات]", "TB5", "[NAME]='" & Me.user1 & "'") = True And R > 1 Then
DoCmd.OpenForm "تعديل سند إيرادات", acNormal, , "[رقم السند]='" & R & "'"
Else
MsgBox "ادخل رقم السند المطلوب تعديله"
End If

 

تعديل السندات.rar

[النجاشي]

الان, Shivan Rekany said:

اليك هذا

On Error Resume Next
Dim R As String
R = Forms![بحث عن سند إيرادات]![تابع132]![رقم السند]
If DLookup("[تعديل سند إيرادات]", "TB5", "[NAME]='" & Me.user1 & "'") = False Then
MsgBox "ليس لديك صلاحيه بالتعديل"
ElseIf DLookup("[تعديل سند إيرادات]", "TB5", "[NAME]='" & Me.user1 & "'") = True And R > 1 Then
DoCmd.OpenForm "تعديل سند إيرادات", acNormal, , "[رقم السند]='" & R & "'"
Else
MsgBox "ادخل رقم السند المطلوب تعديله"
End If

 

تعديل السندات.rar

السلام عليكم مساك الله بالخير والسرور استاذي تسلم يديك ما شاء الله عليك .والله من كثر ماتعمله لي انت والاستاذ جعفر والاخ اكرم العريقي اصبح الواحد يستحي مادرينا كيف نرد لكم الجميل لكن بارك الله فيكم ووفقكم لعمل الخير واسعدكم شكر اليك من كل قلبي ابو محمد تحياتي اليك

[Shivan Rekany]

1 دقيقه مضت, ابو زاهر said:

السلام عليكم مساك الله بالخير والسرور استاذي تسلم يديك ما شاء الله عليك .والله من كثر ماتعمله لي انت والاستاذ جعفر والاخ اكرم العريقي اصبح الواحد يستحي مادرينا كيف نرد لكم الجميل لكن بارك الله فيكم ووفقكم لعمل الخير واسعدكم شكر اليك من كل قلبي ابو محمد تحياتي اليك

الشكر كله لله 

[النجاشي]

16 دقائق مضت, Shivan Rekany said:

الشكر كله لله 

بارك الله فيك من طيب قلبك  اسال اللهع ان يجعل  كل حرف تعلمناه منك استاذي  ان يجلعه بميزان حسناتك