أريد التعديل على جميع السجلات

السلام عليكم...

طالما الأمر يتعلق بـ Access فإنه يمكننا استعمال جمل VBA مباشرة داخل الاستعلام (Query)، و الاستعلام التالي يحقق المطلوب في السؤال:

UPDATE Customers SET CustName = "الاستاذ " & IIf(Right(CustName,1)="-",Trim(Left(CustName,Len(CustName)-1)),CustName);

طبعاً إذا كنا سنبعث نص الاستعلام من خلال VB فيجب وضع علامات اقتباس فردية بدل الزوجية.

نرجو الاستفادة و السلام.

جزاك الله خيرا و جارى التجريب

الاخ الكريم مرفق لكم المثال

لانه معترض على كلمة SET

New_Folder.rar

السلام عليكم...

طبعاً سيعترض لأن جملة UPDATE و ما بعدها هي جملة استعلام (Query) يجب إرسالها كنص عبر ADODB.Command كالتالي:

Private Sub Command1_Click()
	Dim Cmd As New ADODB.Command
	Cmd.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False"
	Cmd.CommandType = adCmdText
	Cmd.CommandText = "UPDATE table1 set c = 'الاستاذ ' & IIf(Right(c,1)='-',Trim(Left(c,Len(c)-1)),c)"
	Cmd.Execute
	Set Cmd = Nothing
End Sub

لاحظي أن IIF المستعملة داخل نص الاستعلام هي دالة من دوال VB و ليست الأمر If المعروف.

قمت بتجربة هذا الكود على مثالك و نجح.

نرجو الاستفادة و السلام.

جزاكم الله خيرا

الكود ده اختصر لى وقت كبير

بارك الله فى وقتك

حضرتك ذكرت ان IIF المستعملة داخل نص الاستعلام هي دالة من دوال VB و ليست الأمر If المعروف أو ليست IF دالة ؟

و ما استخدام IIF ؟

جزاك الله خيرا