Σύγκριση Κώδικα
Καλησπέρα σε όλους
Θα ήθελα την άποψή σας στο ακόλουθο ερώτημα:
Προκειμένου να ανοίξω μια φόρμα σε νέο παράθυρο διαλόγου και να έχω άμεση μετάβαση
σε συγκεκριμένη εγγραφή χρησιμοποιώ τον κώδικα: Παράθεση:
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
| Ποιός είναι ο ασφαλέστερος κώδικας για την παραπάνω ενέργεια ?
Σας ευχαριστώ εκ των προτέρων | 