مساعدة في تعدبل كود استعراض صور

[ازهر عبد العزيز]

السلام عليكم 

لدي فولدر بجانب قاعدة البيانات بمسار ثابت يحتوي على 200 صورة بأرقام متسلسلة المشكلة في كود استعراض الصور لدي تصورو كم احتاج الى كتابة كي اكمل العمل احتاج لو تفضلتم الى كود مختصر  

Private Sub nexttxt_Click()
If Me.imgs = "C:\military\img\1.png" Then
   Me.imgs = "C:\military\img\2.png"
ElseIf Me.imgs = "C:\military\img\2.png" Then
   Me.imgs = "C:\military\img\3.png"
ElseIf Me.imgs = "C:\military\img\3.png" Then
   Me.imgs = "C:\military\img\1.png"
End If
End Sub

 

تم تعديل نوفمبر 9, 2021 بواسطه ازهر عبد العزيز

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

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

        mySQL = "Select * From tblNumbers"
        
        Set rst = CurrentDb.OpenRecordset(mySQL)
        rst.MoveLast: rst.MoveFirst
        
            Dim i As Integer
            For i = 1 To 200
                rst.Edit
                
                If rst!imgs = "C:\military\img\" & i & ".png" Then
                    rst!imgs = "C:\military\img\" & i + 1 & ".png"
                End If

                rst.Update
                rst.MoveNext
            Next

جرب الكود التالي كتبته بسرعة ولم اجربه وان شاء الله يفي بالغرض

 

تحياتي

[ازهر عبد العزيز]

الأستاذ العزيز محمد أبوعبدالله 

ارجو منك تطبيق الكود على المثال التالي 

military.rar

[Moosak]

اخترعت لك هذه الدالة 😁

Public Function ChangeImageName(FullPath As String, NumberPlus As Integer) As String

Dim FileName As Integer
Dim NewName As Integer

FileName = CInt(Left((Right(FullPath, Len(FullPath) - InStrRev(FullPath, "\"))), InStr((Right(FullPath, Len(FullPath) - InStrRev(FullPath, "\"))), ".") - 1))

NewName = FileName + NumberPlus

ChangeImageName = Replace(FullPath, FileName, NewName)

End Function

وظيفتها أن تقوم بزيادة أو تنقيص الرقم في اسم الصورة .. ( أنت تحدد الرقم بالزيادة أم النقصان 🙂  ) 

تضعها في استعلام تحديث .. وتضع مكان (تحديث إلى:) تحت حقل مسار الصور الدالة بهذه الصورة :

ChangeImageName([Image];1)

بحيث مكان الرقم 1 تضع الرقم الذي تريد زيادته ، وإذا بالقصان تضع (-1) مكان الرقم 1 ..

وهذا مثال لما تصنعه هذه الدالة :

 

(مرفق لك الملف )

 

ImagesCorrection.accdb

تم تعديل نوفمبر 9, 2021 بواسطه Moosak

[ازهر عبد العزيز]

الاستاذ @Moosak جزيل الشكر لكن ليس المطلوب ما احتاجه كود يغير قيمة الحقل Imgs فقط بالزيادة او النقصان 

[Moosak]

50 دقائق مضت, ازهر عبد العزيز said:

ما احتاجه كود يغير قيمة الحقل Imgs فقط بالزيادة او النقصان

هذا بالضبط ما تفعله المعادلة ..

في الصورة التي أرسلتها لك 3 أعمدة .. الأول هو الرابط الأصلي ... الثاني الرابط بعد الزيادة (بعد تطبيق المعادلة عليه ) ... الثالث الرابط بعد النقصان  (بعد تطبيق المعادلة عليه ) ....

أنت لن تحتاج الاستعلام المسمى ExampleQ .. فقد وضعته لك كمثال ..

أنت ستشغل الاستعلام UpdateQ وستتعدل الروابط تلقائيا في الجدول ..

تم تعديل نوفمبر 9, 2021 بواسطه Moosak