زر التنقل من قطعة الى كارتون

[Matin_Murad]

اريد عند الضخط على ( الزر تنقل ) تحويل السجل من القطعة الى كارتون

في الجدول يوجد كود يساوى ل ( القطعة و الكارتون )

 

12.rar

تم تعديل مارس 27, 2020 بواسطه warvin raviny

[محمد أبوعبدالله]

ممكن توضيح اكثر بارك الله فيك

تحياتي

[Matin_Murad]

[أبوبسمله]

مشاركه لاخى العزيز @محمد ابوعبد الله جزاه الله خيرا

على حسب ما فهمت واضافه طريقه جميله لاخى واستاذنا العزيز @jjafferr جزاه الله خيرا على تعليمنا اياها

ان شاء الله يكون طلبك

بالتوفيق ان شاء الله

Option Compare Database

Private Sub aa_AfterUpdate()
N = DLookup("[type]& '|'&[name]& '|'& [code]", "save", "[barcode]= [aa]")

 x = Split(N, "|")
    
    Me.typea = x(0)
    Me.nameb = x(1)
    Me.codec = x(2)
    
End Sub

Private Sub أمر28_Click()

xx = Me.codec

N = DLookup("[barcode]& '|'&[type]& '|'&[name]", "save", "[code]=" & xx & "And [type] ='كارتون'")
 x = Split(N, "|")
 
    Me.aa = x(0)
    Me.typea = x(1)
    Me.nameb = x(2)

End Sub

 

12.rar

[Matin_Murad]

.أسأل الله ان يجعل هذا العمل في ميزان حسناتك.. وأن يرزك الخير في الدنياء والاخرة جزاك الله خيرا .. وبارك الله فيك ..

• عفوا للازعاج

تم تعديل مارس 27, 2020 بواسطه warvin raviny

[أبوبسمله]

اللهم آمين واياكم اخى

بالتوفيق ان شاء الله