كيف يتم حذف آخر علي اليمين رقم في جميع الاكواد

بسم الله الرحمن الرحيم

أخى الكريم

جرب الملف المرفق - النموذج الوحيد

بس مش كتير (أنا جربته كفايه وما فضلش حروف كتير)

وشوف الكود

وإذا كنت عايز تمسح الرقم واحد على يمين الحقل يمكنك تغيير كود الإجراء كالتالى

 

Private Sub Command2_Click()
On Error GoTo Err_Command2_Click
Dim dbs As Database, strsql As String, rst As Recordset
Set dbs = CurrentDb


strsql = "SELECT items.[Item Code]"
strsql = strsql & " FROM items;"
Set rst = dbs.OpenRecordset(strsql)
rst.MoveFirst
Do
With rst
If Right(![Item Code], 1) = 1 Then
.Edit
![Item Code] = Left(![Item Code], Len(![Item Code]) - 1)
.Update
End If
End With

rst.MoveNext
Loop Until rst.EOF
Exit_Command2_Click:
	Exit Sub
Err_Command2_Click:
	MsgBox Err.Description
	Resume Exit_Command2_Click

End Sub

Mapping1.rar

بارك الله فيك يا أخي الغالي العمري بن

هذا هو فعلا المطلوب

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

الكود:

With Me.Recordset
  .MoveFirst
For i = 1 To Me.RecordsetClone.RecordCount
 Me.ItemNewCode = Me.R
 .MoveNext
Next i

حيث R هو حقل الاستعلام المذكور، الذي يكون قيمته من تصميم الاستعلام كما يلي:

R: Left([Item Code],Len([Item Code])-1)

اما ItemNewCode هو حقل تجريبي فقط، اي ممكن استبداله مباشرة ب . Item Code

شكرا لكم..

بارك الله فيك يا أخي الغالي همام دائما ومتألق واللهبس يا ريت لو ترفق لنا مثالوكمان ياريت لو مثال كمان علي الحذف من ناحية اليمين عكس العمليةشكرا لكبارك الله فيك يا أخي الغالي همام دائما ومتألق واللهبس يا ريت لو ترفق لنا مثالوكمان ياريت لو مثال كمان علي الحذف من ناحية اليمين عكس العمليةشكرا لك

تقصد ازالة الحرف من جهة اليمين باستخدام دالة Right ؟؟

نعم

أخي محمد فؤاد .. في مثالك المرفق

قم بعمل الاتي

من استعلام ........ انشاء في عرض التصميم ........ سيظهر مربع حوار تحديد الجداول أغلقه

ضع المشيرة في المساحة الرمادية فوق شبكة الاستعلام ..... انقر بزر الماوس الايمن ...... أختر SQL

الصق هذا الكود ...... أحفظ الاستعلام باي اسم

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

الكود

SELECT items.ID, items.Group, items.[Group Description], items.Size, items.Supplier, Left([Item Code],Len([Item Code])-1) AS ItemCode, items.[Supplier Color Code], items.Unit, items.InventQty, items.InventLocationId, items.WMSLocationId, items.TEX_ItemCode, items.TEX_ColorCode, items.Imported, items.ItemCostPrice
FROM items;

EKSEER

بارك الله فيك اخي الغالي اكسيرهذا هو فعلا ما كنت ابحث عنهوطبعا اذا اردنا حذف اول رقم من جهة اليسار تكون الجمله كالتالي

=right([Item Code],Len([Item Code])-1) AS ItemCode

شكرا لك مرة اخريطبعا الشكر موصول للاخ العمري بن

بسم الله الرحمن الرحيم

الإخ الكريم محمد فؤادتركى

لقد أستخدمت نفس الإقتراح المقدم بواسطة الأخوان أكسير وهمام

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

يعمل بواسطة دالة Cut_one_char - فى الوحدة النمطية Internal_code

يمكنك إلغاء علامة الملاحظة فى الدالة لحذف الحرف إذا كان 1 فقط

مرفق الملف

Mapping2.rar

بارك الله فيك يا أخي الغالي العمري بن

شكراً لك علي مجهودك ومتابعتك موضوعي

بسم الله الرحمن الرحيم

بارك الله فيك اخي الكريم

دائما مواضيعك دسمة