Zkusím. Pole se seznamem (combo box) má zdroj ovl. prvku= pole formuláře "F" a zdroj řádku= dotaz na formulář "F1". Relace = Formulář "F" pole "MojeID" (číslo) --> Formulář "F1" pole "MojeID" (autonum).
Při nepřítomnosti v seznamu procedura :
Private Sub MojeID_NotInList(NewData As String, Response As Integer)
MsgBox "Nový údaj po DblClick."
Response = acDataErrContinue
End Sub
Při DblClick procedura :
Private Sub MojeID_DblClick(Cancel As Integer)
On Error GoTo Err_MojeID_DblClick
Dim XY As Long
If IsNull(Me![MojeID]) Then
Me![MojeID].Text = ""
Else
XY = Me![MojeID]
Me![MojeID] = Null
End If
DoCmd.OpenForm "Zaměstnanci", , , , , acDialog, "GotoNew"
Me![MojeID].Requery
If XY 0 Then Me![MojeID] = XY
Exit_MojeID_DblClick:
Exit Sub
Err_MojeID_DblClick:
MsgBox Err.Description
Resume Exit_MojeID_DblClick
End Sub
Doporučuji krom knížky čerpat informace také ze zdrojových databází MDZ.
Snad to bude srozumitelné. ?
