[ Φόρμες ] Άνοιγμα φόρμας και άμεση μετάβαση σε συγκεκριμένη εγγραφή.

[Tasos]

Καλημέρα Σάκη!

Επειδή δεν γνωρίζω με ποιο τρόπο δεν επιτρέπεις την επεξεργασία δεδομένων στην αρχική σου φόρμα, σου προτείνω ένα πιο γενικευμένο κώδικα:

Private Sub cmdOpenEditForm_Click()

    Dim CurrentID As Long
    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim rs As Object
    
    On Error Resume Next
    
    If Me.Dirty Then
        DoCmd.RunCommand acCmdSaveRecord
    End If
    If Err <> 0 Then
        Beep
        MsgBox Err.Description
        Exit Sub
    End If
    
    stDocName = "Edit_Pelates"
    stLinkCriteria = "[kwdikos_pelati]=" & Nz(Me![kwdikos_pelati], "Null")
    
    DoCmd.OpenForm stDocName, acNormal, "", stLinkCriteria, , acDialog

    If Not IsNull(Me![kwdikos_pelati]) Then
        Me.Refresh
        Exit Sub
    Else
        CurrentID = Nz(DMax("[kwdikos_pelati]", Me.RecordSource), 0)
    End If
    
    Me.Requery
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[kwdikos_pelati] = " & CurrentID
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    rs.Close
    
End Sub

Καλή συνέχεια!

Τάσος