та отож

На другом компе попробуй.

Код сотвествино
Private Sub Form_Load()
Form.RecordSource = "pen"
Me.id.ControlSource = "nomer_sch1"
Me.order.ControlSource = "ID_IZM"
Me.date.ControlSource = "DATA_OPL"
Me.Gumar.ControlSource = "SUMA"
Me.enid = DLookup(" [usertmp]![userid] ", "usertmp", " [usertmp]![id] = " & 1)
Me.enid.ControlSource = "IDENERGY"
Dim r1
Dim r2
Dim r3
r1 = DLookup("[Usysdb]![db]", "Usysdb", "[Usysdb]![id]=" & (2))
r2 = DLookup("[UsysdbProtect]![dbz]", "Usysdbprotect", "[UsysdbProtect]![id]=" & (3))
r3 = DLookup("[UsysdbProtect]![dbx]", "Usysdbprotect", "[UsysdbProtect]![id]=" & (3))
If (r1 <> r2 And r1 <> r3) Then
Beep
MsgBox "Error 1001: Ask your administrator", vbOKOnly, ""
End If
Forms("en").Recordset.AddNew
Me.id.SetFocus
End Sub

Понятно но удалив весь код оставив только
Forms("en").Recordset.AddNew
Me.id.SetFocus
тоже так
helpppppppppppppppppppppppppppppppp pppp

Всегда, изменил на откритие ну проблема осталась

попробуйте "замораживать" отрисовку на момент таких изменений
потом - восстанавливайте

Пример бы в студию.... Так гадание получается.

The Painting property uses the following settings. Setting Description  True  (Default) The form or report is repainted.  False  The form or report isn't repainted.

Example The following example uses the Painting property to enable or disable  form painting depending on whether the SetPainting variable is set to  True or False. If form painting is turned off, Microsoft Access displays  the hourglass icon while painting is turned off. Public Sub EnablePaint(ByRef frmName As Form, _                        ByVal SetPainting As Integer)     frmName.Painting = SetPainting          ' Form painting is turned off.     If SetPainting = False Then         DoCmd.Hourglass True     Else         DoCmd.Hourglass False     End If      End Sub

<<=== забей ==<<

у меня на самой крутой ERP такая-же хрень и никто не парится
а ты по такому пустяку истерику устроил

или

попробуй все перетащить в новый пустой проект

lukas;Силblч уже всё перепробвал

Час если удалить весь код из формы то всё равно при откритии тоже самое во всех формах где есть текст бокс удалив первое поле всё равно тоже самое присходит с втарим полем

анамалия)))))) неработает
попробывал так
Private Sub Form_Load()
Forms("en").Visible = False
Form.RecordSource = "pen"
Me.id.ControlSource = "nomer_sch1"
Me.order.ControlSource = "ID_IZM"
Me.date.ControlSource = "DATA_OPL"
Me.Gumar.ControlSource = "SUMA"
Me.enid = DLookup(" [usertmp]![userid] ", "usertmp", " [usertmp]![id] = " & 1)
Me.enid.ControlSource = "IDENERGY"
Dim r1
Dim r2
Dim r3
r1 = DLookup("[Usysdb]![db]", "Usysdb", "[Usysdb]![id]=" & (2))
r2 = DLookup("[UsysdbProtect]![dbz]", "Usysdbprotect", "[UsysdbProtect]![id]=" & (3))
r3 = DLookup("[UsysdbProtect]![dbx]", "Usysdbprotect", "[UsysdbProtect]![id]=" & (3))
If (r1 <> r2 And r1 <> r3) Then
Beep
MsgBox "Error 1001: Ask your administrator", vbOKOnly, ""
End If
Forms("en").Recordset.AddNew
Dim PauseTime, start, Finish, TotalTime
PauseTime = 5
start = Timer
Do While Timer < start + PauseTime
Loop
If Timer < start + PauseTime Then
Finish = Timer
Forms("en").Visible = True
Me.id.SetFocus
End If
End Sub
и так
Private Sub Form_Load()
Forms("en").Visible = False
Dim PauseTime, start, Finish, TotalTime
PauseTime = 5
start = Timer
Do While Timer < start + PauseTime
Loop
If Timer < start + PauseTime Then
Finish = Timer
Form.RecordSource = "pen"
Me.id.ControlSource = "nomer_sch1"
Me.order.ControlSource = "ID_IZM"
Me.date.ControlSource = "DATA_OPL"
Me.Gumar.ControlSource = "SUMA"
Me.enid = DLookup(" [usertmp]![userid] ", "usertmp", " [usertmp]![id] = " & 1)
Me.enid.ControlSource = "IDENERGY"
Dim r1
Dim r2
Dim r3
r1 = DLookup("[Usysdb]![db]", "Usysdb", "[Usysdb]![id]=" & (2))
r2 = DLookup("[UsysdbProtect]![dbz]", "Usysdbprotect", "[UsysdbProtect]![id]=" & (3))
r3 = DLookup("[UsysdbProtect]![dbx]", "Usysdbprotect", "[UsysdbProtect]![id]=" & (3))
If (r1 <> r2 And r1 <> r3) Then
Beep
MsgBox "Error 1001: Ask your administrator", vbOKOnly, ""
End If
Forms("en").Recordset.AddNew
Forms("en").Visible = True
Me.id.SetFocus
End If
End Sub
всё равно таже проблема

самый последний вариант - забить
вколотить осиновый кол!
описать как особенность программы, растиражировать как необычную, уникальную, возможность, которой не обладает ни один из аналогов!

форму открывать сразу в невидимом режиме через docmd а уж потом показывать

Силblч у меня тут анамалия)

кстатида

переустанови винду и аксесс :)

Me.enid = DLookup(" [usertmp]![userid] ", "usertmp", " [usertmp]![id] = " & 1) " это код юзера созранается в Me.enid.ControlSource = "IDENERGY здес нету ошибки и без этово так деалет эту я на другом акссеси тоже попробывал и на другом винде тоже всё тоже самое

Я не утверждаю, что этот код влияет на поведение формы.
Я просто спрашиваю, что отражается в me.enid. Код пользователя или поле IDENERGY.
Кажется, что это разные данные.
Это то же самое, что написать в математике
x=1
x=2
Чему равен х?
Таки образом первое присвоение бессмысленно.

и нет ответа на :

зачем контролам присваивать источник. может к форме прилепить запрос и поля напрямую связать.

вот и снайп отмечал

А чего ей не мерцать-то сначала форма грузит свои source потом вы их кодом переписываете это реакция на двойную работу

????
и это работает?
Тогда уж их надо поменять местами.
Или я чего-то не догоняю.

Да работает нет как поминят местами сперва надо взять данние а уш патом где сохранять
пс поменял выдаёт ошибку а так работает не жалуюсь

нет же сахронаются в "idenergy"
Forms("en").Recordset.AddNew непозвалает чтобы дание бралис из "idenergy"
в другой кнопке уже уоманда для сохранения
Private Sub only_save_Click()
...........................
DoCmd.RunCommand acCmdSaveRecord
............................
End Sub

Да:)

Do While Timer < start + PauseTime Loop If Timer < start + PauseTime Then Finish = Timer

не в этом ли причина мерцания?

Дядя Федор нет это в форуме сказале я написал не сработало :)
..............................

Спосиба всем сам решил проблему правда непониаю как:)
...............................

me.POLE.KeyboardLanguage = 0 'система
me.POLE.KeyboardLanguage = 1 'русский
а что стояло?

а была японская?

Вот то, что Вам поможет - там в конце то, что нами сотворено - помогает оно!!!

http://hiprog.com/forum/read.php?id_forum=1&id_theme=9162&page=1