ازرار التنقل

[Rawannnna]

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

 

هل يمكن عمل اززار تنقل في االشاشة ؟ غير الموجوده تحت

هذا النموذج يحتوي على 20 معلومه

اريد طريقة للتنقل بين الصور غند النفر على زر التنقل او سهم التنقل

[Shivan Rekany]

نريد نعرف بعض المعلومات عن القاعدة والصور
اي ارفع نسخة مصغرة من قاعدة بياناتك للعمل عليها

لكي نعرف طريقة عمل المرفق بأي طريق تم ارفقته 
لكي نقدر نعطيك المطلوب بأقل مشاركات

واحتمال ان يفيدك هذه الموضوع

 

تم تعديل مايو 20, 2017 بواسطه Shivan Rekany

[عبد الله قدور]

Function FirstRcd(Frm)
If Frm.Dirty = False Then
        On Error GoTo err:
        DoCmd.GoToRecord , "", acFirst
        Exit Function
err:
        If err.Number = 2105 Then
        MsgBox "áÇ íãßä ÇáÐåÇÈ Åáì ÇáÓÌá ÇáãØáæÈ", vbCritical + vbMsgBoxRight, "ÎØÃ"
        End If
Else
MsgBox "Êã ÊÛííÑ ãÍÊæíÇÊ ÇáäÇÝÐÉ íÑÌì ÇáÍÝÙ ÇáÊÛííÑÇÊ", vbCritical
End If
        
End Function
Function NextRcd(Frm)
If Frm.Dirty = False Then
        On Error GoTo err:
        DoCmd.GoToRecord , "", acNext
        Exit Function
err:
        If err.Number = 2105 Then
        MsgBox "áÇ íãßä ÇáÐåÇÈ Åáì ÇáÓÌá ÇáãØáæÈ", vbCritical + vbMsgBoxRight, "ÎØÃ"
        End If
Else
MsgBox "Êã ÊÛííÑ ãÍÊæíÇÊ ÇáäÇÝÐÉ íÑÌì ÇáÍÝÙ ÇáÊÛííÑÇÊ", vbCritical
End If

End Function

Function prevRcd(Frm)
If Frm.Dirty = False Then
        On Error GoTo err:
        DoCmd.GoToRecord , "", acPrevious
        Exit Function
err:
        If err.Number = 2105 Then
        MsgBox "áÇ íãßä ÇáÐåÇÈ Åáì ÇáÓÌá ÇáãØáæÈ", vbCritical + vbMsgBoxRight, "ÎØÃ"
        End If
Else
MsgBox "Êã ÊÛííÑ ãÍÊæíÇÊ ÇáäÇÝÐÉ íÑÌì ÇáÍÝÙ ÇáÊÛííÑÇÊ", vbCritical
End If

End Function

Function LastRcd(Frm)
If Frm.Dirty = False Then
          On Error GoTo err:
      DoCmd.GoToRecord , "", acLast
        Exit Function
err:
        If err.Number = 2105 Then
        MsgBox "áÇ íãßä ÇáÐåÇÈ Åáì ÇáÓÌá ÇáãØáæÈ", vbCritical + vbMsgBoxRight, "ÎØÃ"
        End If
Else
MsgBox "Êã ÊÛííÑ ãÍÊæíÇÊ ÇáäÇÝÐÉ íÑÌì ÇáÍÝÙ ÇáÊÛííÑÇÊ", vbCritical
End If

End Function

السلام عليكم

اخي الكريم بالنسبة لي انا استخدم الوحدة النمطية التي ارفقتها وهي تعطيك تنبيه ايضا في حال لم يتم الحفظ

ويمكنك استدعاؤها بالكود التالي

في زر السجل الاخير

Call LastRcd(Me)

في زر السجل الاول

Call FirstRcd(Me)

في زر السجل السابق

Call prevRcd(Me)

في زر السجل التالي

Call NextRcd(Me)