bir kod uyguladım kimlik ile kimlik olan kısmını süzüp getiriyor. al formun tamamı geliyor.

Private Sub Komut21_Click()
On Error GoTo Err_Komut21_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
If IsNull(Me![Kimlik]) Then
MsgBox "Önizlemeden önce sipariş bilgilerini girin."
Else
DoCmd.OpenReport "üst", acPreview, , "[üst].[Kimlik]=" & Me![Kimlik]
End If

Exit_Komut21_Click:
Exit Sub

Err_Komut21_Click:
If Err <> 2501 Then
MsgBox Err.Description
End If
Resume Exit_Komut21_Click

End Sub