مساعدة فى تصميم برنامج شئون عاملين من الصفر

[The best]

19 ساعات مضت, Foksh said:

 

هذه الفكرة التي اقترحتها ..

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

 

Personnel_affairs.zip 90.93 kB · 5 downloads

هكذا أخى 

عملت أزرار ووضعت أكواد لكنها لم تعمل فقمت بمسحها

Personnel_affairs.rar

[Foksh]

قمت بإعادة صياغة الأكواد وكتابتها بشكل يضمن عدم ظهور أخطار أثناء التنقل ..

 

Private Sub btnFirst_Click()
    If Me.RecordsetClone.RecordCount > 0 Then
        DoCmd.GoToRecord , , acFirst
    End If
End Sub

Private Sub btnNew_Click()
    If Me.AllowAdditions Then
        DoCmd.GoToRecord , , acNewRec
    Else
        MsgBox "النموذج لا يسمح بإضافة سجلات جديدة", vbExclamation + vbMsgBoxRight
    End If
End Sub

Private Sub btnNext_Click()
    With Me.RecordsetClone
        If .RecordCount > 0 Then
            .Bookmark = Me.Bookmark
            .MoveNext
            If Not .EOF Then
                DoCmd.GoToRecord , , acNext
            Else
                MsgBox "أنت في آخر سجل", vbInformation + vbMsgBoxRight
            End If
        End If
    End With
End Sub

Private Sub أمر553_Click()
    If Not Me.NewRecord And Me.CurrentRecord > 0 Then
        If MsgBox("هل تريد حذف السجل الحالي؟", vbYesNo + vbQuestion + vbMsgBoxRight, "تأكيد الحذف") = vbYes Then
            DoCmd.RunCommand acCmdDeleteRecord
        End If
    Else
        MsgBox "لا يوجد سجل لحذفه", vbExclamation + vbMsgBoxRight
    End If
End Sub

Private Sub أمر554_Click()
    With Me.RecordsetClone
        If .RecordCount > 0 Then
            .Bookmark = Me.Bookmark
            .MovePrevious
            If Not .BOF Then
                DoCmd.GoToRecord , , acPrevious
            Else
                MsgBox "أنت في أول سجل", vbInformation + vbMsgBoxRight
            End If
        End If
    End With
End Sub

Private Sub أمر555_Click()
    If Me.RecordsetClone.RecordCount > 0 Then
        DoCmd.GoToRecord , , acLast
    End If
End Sub