[dimitrisp]

Καλησπέρα σε όλους

Θα ήθελα την άποψή σας στο ακόλουθο ερώτημα:
Προκειμένου να ανοίξω μια φόρμα σε νέο παράθυρο διαλόγου και να έχω άμεση μετάβαση
σε συγκεκριμένη εγγραφή χρησιμοποιώ τον κώδικα:

Dim sWHERE As String
sWHERE = "[kwdikos_Pelati] = " & Me.kwdikos_Pelati
DoCmd.OpenForm "frmEdit_Pelates", acNormal, , sWHERE

ή τον Κώδικα,

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 = "frmEdit_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

Ποιός είναι ο ασφαλέστερος κώδικας για την παραπάνω ενέργεια ?

Σας ευχαριστώ εκ των προτέρων