Событие вставляет запись.
При ошибке написал:

On Error Resume Next

Так эта гадость по каждому энтеру всандаливает мне последнее, что запомнила:(
Может есть другой вариант обработки ошибки?:)

Geen

Извините:)

Private Sub SP2_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 13 Then
Dim TN As String
TN = Me.SP2.Column(0)
Dim ED As String
ED = Me.SP2.Column(3)
Dim SD As String
SD = Me.SP2.Column(4)
Dim brnom As String
brnom = "SELECT ID_Nomer_Fond, Nomer_Fond, K_Type, K_Statusu" _
& " FROM dbo.Nomera" _
& " WHERE (NOT (ID_Nomer_Fond IN" _
& " (SELECT Nomera.ID_Nomer_Fond FROM dbo.Bron INNER JOIN" _
& " dbo.Nomera ON dbo.Bron.Number_Bron = dbo.Nomera.ID_Nomer_Fond INNER JOIN" _
& " dbo.Types_Nomer ON dbo.Nomera.K_Type = dbo.Types_Nomer.ID_Type_Nomer" _
& " WHERE (dbo.Bron.S_Date <= '" & Format(SD, "yyyymmdd hh:mm:ss") & "')" _
& " AND (dbo.Bron.E_Date >= '" & Format(ED, "yyyymmdd hh:mm:ss") & "')" _
& " AND(dbo.Types_Nomer.ID_Type_Nomer = '" & Format(TN, "yyyymmdd hh:mm:ss") & "'))))" _
& " AND (K_Type = '" & Format(TN, "yyyymmdd hh:mm:ss") & "')" _
& " AND (K_Statusu = '2003-07-28 14:53:28')"
Me.SP4.RowSource = brnom
KeyCode = 0
Me.SP4.SetFocus
End If
End Sub

Geen

Торможу-у-у-у:)

Private Sub SP4_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 13 Then
Dim tim As String
tim = Now()
Dim grp As String
grp = Me.PS0
Dim ED As String
ED = Me.SP2.Column(3)
Dim SD As String
SD = Me.SP2.Column(4)
Dim ins As String
ins = "Insert Into dbo.Bron (ID_Bron, Group_Bron, Number_Bron, S_Date, E_Date)" _
& " Values ('" & Format(tim, "yyyymmdd hh:mm:ss") & "', '" & Format(grp, "yyyymmdd hh:mm:ss") & "', '" & Format(Me.SP4, "yyyymmdd hh:mm:ss") & "', '" & Format(ED, "yyyymmdd hh:mm:ss") & "', '" & Format(SD, "yyyymmdd hh:mm:ss") & "')"
CurrentProject.Connection.Execute ins
Dim vbr As String
vbr = "SELECT Types_Nomer.Type_Nomer AS [Òèï íîìåðà]," _
& " COUNT(Bron.Number_Bron) As Çàáðîíèðîâàíî" _
& " FROM dbo.Types_Nomer INNER JOIN" _
& " dbo.Nomera ON dbo.Types_Nomer.ID_Type_Nomer = dbo.Nomera.K_Type INNER JOIN" _
& " dbo.Bron ON dbo.Nomera.ID_Nomer_Fond = dbo.Bron.Number_Bron" _
& " GROUP BY dbo.Types_Nomer.Type_Nomer, dbo.Bron.Group_Bron" _
& " HAVING (dbo.Bron.Group_Bron = '" & Format(grp, "yyyymmdd hh:mm:ss") & "')"
Me.SP10.RowSource = vbr
Me.SP10.Requery
Dim TN As String
TN = Me.SP2.Column(0)
Dim brnom As String
brnom = "SELECT ID_Nomer_Fond, Nomer_Fond, K_Type, K_Statusu" _
& " FROM dbo.Nomera" _
& " WHERE (NOT (ID_Nomer_Fond IN" _
& " (SELECT Nomera.ID_Nomer_Fond FROM dbo.Bron INNER JOIN" _
& " dbo.Nomera ON dbo.Bron.Number_Bron = dbo.Nomera.ID_Nomer_Fond INNER JOIN" _
& " dbo.Types_Nomer ON dbo.Nomera.K_Type = dbo.Types_Nomer.ID_Type_Nomer" _
& " WHERE (dbo.Bron.S_Date <= '" & Format(SD, "yyyymmdd hh:mm:ss") & "')" _
& " AND (dbo.Bron.E_Date >= '" & Format(ED, "yyyymmdd hh:mm:ss") & "')" _
& " AND(dbo.Types_Nomer.ID_Type_Nomer = '" & Format(TN, "yyyymmdd hh:mm:ss") & "'))))" _
& " AND (K_Type = '" & Format(TN, "yyyymmdd hh:mm:ss") & "')" _
& " AND (K_Statusu = '2003-07-28 14:53:28')"
Me.SP4.RowSource = brnom
Me.SP4.SetFocus
KeyCode = 0
End If
End Sub

Geen

Сам саб работает идеально:)
Но если при получении фокуса юзер не выбрал курсором строку в списке, то по энтеру происходит еще один Инсерт со старыми значениями:(
А этого допустить никак нельзя.
Вот и мучаюсь
Может можно проимитировать "Курсор вниз"?:)

Geen

Так как же заставить выбрать в SP4?

Geen

Сделал, послание увидел:)
НО! Вслед за этим запись была вставлена, а мне нужно НЕ вставить в этом случае.
Т.е. Перейти к началу саба

Geen