كود تحديث التاريخ الى يوم

[ابو ياسين المشولي]

السلام عليكم ورحمه الله وبركاته

عندي مشكله بصيغه كود ثحديث

UPDATE حركات SET حركات.البيان = Format([Forms].[Search]![snddate],"""دخل يوم ""dddd "), حركات.[نوع السند] = "دخـل", حركات.الاسم = "الخزينه"
WHERE (((حركات.[تاريخ الحركة])=[Forms].[Search]![snddate]));
كيف يكون صحيح

[ابو ياسين المشولي]

الحمدلله تم الحل

وهكما يلي

  DoCmd.RunSQL "UPDATE حركات SET حركات.البيان = Format([Forms].[Search]![snddate],""""""دخل يوم """"dddd ""), حركات.[نوع السند] = "" دخـل"",.حركات = ""الخزينه"" " & vbCrLf & _
"WHERE (((حركات.[تاريخ الحركة])=[Forms].[Search]![snddate]));"

 

[jjafferr]

السلام عليكم اخوي ابو ياسين

 

في الرابط التالي ، اخبرتك عن الطريقة الصحيحة في وضع الكود في مشاركات المنتدى ، وجعل الكود سهل القراءة ،

فطريقتك هي (كما هو الحال في الكود الذي وضعته في مشاركتك اعلاه) :

DoCmd.RunSQL "UPDATE حركات SET حركات.البيان = Format([Forms].[Search]![snddate],""""""دخل يوم """"dddd ""), حركات.[نوع السند] = "" دخـل"",.حركات = ""الخزينه"" " & vbCrLf & _
"WHERE (((حركات.[تاريخ الحركة])=[Forms].[Search]![snddate]));"

 

بينما لو اتبعت تعليماتي في الرابط:

.

لكان كودك هكذا:

DoCmd.RunSQL "UPDATE حركات SET حركات.البيان = Format([Forms].[Search]![snddate],""""""دخل يوم """"dddd ""), حركات.[نوع السند] = "" دخـل"",.حركات = ""الخزينه"" " & vbCrLf & _
"WHERE (((حركات.[تاريخ الحركة])=[Forms].[Search]![snddate]));"

.

فأي الطريقتين ستستخدم في وضع الكود في مشاركتك التالية

 

جعفر

[ابو ياسين المشولي]

4 دقائق مضت, jjafferr said:

السلام عليكم اخوي ابو ياسين

 

في الرابط التالي ، اخبرتك عن الطريقة الصحيحة في وضع الكود في مشاركات المنتدى ، وجعل الكود سهل القراءة ،

فطريقتك هي (كما هو الحال في الكود الذي وضعته في مشاركتك اعلاه) :

DoCmd.RunSQL "UPDATE حركات SET حركات.البيان = Format([Forms].[Search]![snddate],""""""دخل يوم """"dddd ""), حركات.[نوع السند] = "" دخـل"",.حركات = ""الخزينه"" " & vbCrLf & _
"WHERE (((حركات.[تاريخ الحركة])=[Forms].[Search]![snddate]));"

 

بينما لو اتبعت تعليماتي في الرابط:

.

لكان كودك هكذا:

DoCmd.RunSQL "UPDATE حركات SET حركات.البيان = Format([Forms].[Search]![snddate],""""""دخل يوم """"dddd ""), حركات.[نوع السند] = "" دخـل"",.حركات = ""الخزينه"" " & vbCrLf & _
"WHERE (((حركات.[تاريخ الحركة])=[Forms].[Search]![snddate]));"

.

فأي الطريقتين ستستخدم في وضع الكود في مشاركتك التالية

 

جعفر

وعليكم السلام

انا استخدمت هذا اخي جعفر

DoCmd.RunSQL "UPDATE حركات SET حركات.البيان = Format([Forms].[Search]![snddate],""""""دخل يوم """"dddd ""), حركات.[نوع السند] = ""دخـل"", حركات.الاسم = ""الخزينه"" " & vbCrLf & _
"WHERE (((حركات.[تاريخ الحركة])=[Forms].[Search]![snddate]));"
 

 

تم تعديل يناير 13, 2018 بواسطه ابو ياسين المشولي

[jjafferr]

ابو ياسين

 

انا ما اتكلم عن متغيرات الكود ، فخليك معاي لو سمحت:

1. انسخ الكود اعلاه ،

2. اعمل رد على هذه المشاركة ،

3. في قائمة التحكم بتنسيق الكلمات في نافذة المشاركة (انظر الصورة في الاسفل):

4. انقر على الاداة في الدائرة الحمراء ،

5. بتطلع لك نافذة ،

6. الصق فيها الكود ، وانقر على زر موافق ،

7. احفظ المشاركة.

 

رجاء اعمل الخطوات مثل ما اخبرتك ، علشان تنسيق الكود يطلع صح

 

جعفر

[ابو ياسين المشولي]

فهمتك يا صديقي الان

DoCmd.RunSQL "UPDATE حركات SET حركات.البيان = Format([Forms].[Search]![snddate],""""""دخل يوم """"dddd ""), حركات.[نوع السند] = "" دخـل"",.حركات = ""الخزينه"" " & vbCrLf & _
"WHERE (((حركات.[تاريخ الحركة])=[Forms].[Search]![snddate]));"

كذا ممتاز

 

استاذي

كيف اجعل لهذا الكود شرط اذا كان نفس الاسم لايتكرر

شوف الصورة

[jjafferr]

في 1/13/2018 at 12:55, ابو ياسين المشولي said:

استاذي

كيف اجعل لهذا الكود شرط اذا كان نفس الاسم لايتكرر

شوف الصورة

وعليكم السلام

 

اضف في المعيار: <> الاسم 

 

جعفر

[ابو ياسين المشولي]

3 ساعات مضت, jjafferr said:

وعليكم السلام

 

اضف في المعيار: <> الاسم 

 

جعفر

استاذ جعفر

الكود هو هكذا

 DoCmd.RunSQL ("INSERT INTO حركات ( [تاريخ الحركة], دائن, user ) SELECT [Forms].[Search]![snddate] AS Expr1," & _
 "[Forms].[Search]![نص259] AS Expr2, [Forms].[login]![a] AS Expr3;")
DoCmd.RunSQL "UPDATE حركات SET حركات.البيان = Format([Forms].[Search]![snddate],""""""دخل يوم """"dddd ""), حركات.[نوع السند] = ""دخـل"", حركات.الاسم = ""الخزينه"" " & vbCrLf & _
"WHERE (((حركات.[تاريخ الحركة])=[Forms].[Search]![snddate]));"
فاين اجعل لايساوي
<>


انا استعملت هذا
DoCmd.Beep
MsgBox "لـقـد تـم تـرحـيـل حـركـة  : " & Format(Me.snddate, " يـوم dddd  مـن قـبـل  "), , " تنبيه : خـطـاء "

'Exit Sub

Else

DoCmd.SetWarnings False
  DoCmd.RunSQL ("INSERT INTO حركات ( [تاريخ الحركة], دائن, user ) SELECT [Forms].[Search]![snddate] AS Expr1," & _
 "[Forms].[Search]![نص259] AS Expr2, [Forms].[login]![a] AS Expr3;")
DoCmd.RunSQL "UPDATE حركات SET حركات.البيان = Format([Forms].[Search]![snddate],""""""دخل يوم """"dddd ""), حركات.[نوع السند] = ""دخـل"", حركات.الاسم = ""الخزينه"" " & vbCrLf & _
"WHERE (((حركات.[تاريخ الحركة])=[Forms].[Search]![snddate]));"
DoCmd.SetWarnings True

فاذا كان عندك الافضل فلا تبخل علينا 

 

تم تعديل يناير 14, 2018 بواسطه ابو ياسين المشولي