Private Sub vdDatums_DblClick(Cancel As Integer)
On Error GoTo Err_cmdVizite_Click

Dim stDocName As String
Dim stLinkCriteria As String

If Me!vdDatums Is Null Then
'Jesli v pole vdDatums netu znachenij to voditsa sevodneshneje chislo
Me!vdDatums = Date
DoCmd.RunCommand acCmdSaveRecord

End If

'Jelsi v pole vdDatums uze jesth chislo to prosta otkrivajetsa forma
stDocName = "frmVizitesPersona"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, Me.Name

Exit_cmdVizite_Click:
Exit Sub

Err_cmdVizite_Click:
MsgBox Err.Description
Resume Exit_cmdVizite_Click

End Sub


No pri shelchkah na pole on zaprashivajet Object Required.

Mozna li v Forme gde vdDatums v novoi stroke po defoltu stajath uze sevodneshneje chislo?