Есть в программе такая вещь:

Private ReceptItemsDC As New ADODB.Recordset
ReceptItemsDC.Open "SELECT " ...
"FROM ...
"WHERE .. ", DC, adOpenDynamic, adLockOptimistic, adCmdText

ReceptItemsDC.Fields("FullCost") = 100

ReceptItemsDC.UpdateBatch adAffectCurrent
'ReceptItemsDC.Update
ReceptItemsDC.Requery
ReceptItemsDC.MoveLast

База Аксесовская . При работе в сети - если делается это одновременно, то происходит пересечение пользователей.

заносятся рецепты - и если добавлять одновременно медикаменты - то у одного пользователя добавится и свой медикамент и медикамент другого пользователя. а у того - вообще ничего нет.

чувствую,что дело в Requery. Хотя может и нет

Подскажите, что делать
Заранее благодарен.

попробую обьяснить подробнее:
с одной базой работают два пользователя.
заносят рецепты. Если делается это одновременно, то когда добавлен из списка медикамент в этот рецепт (у каждого свой) и нажимаем кнопку "Ввод", то происходит следующее. Это мы отследили по дебаггеру.
Значит идут проверки, и когда все данные удовлетворяют (у каждого пользователя свои), доходим до Requery.
После этого у кого вперед произойдет это событие, тому копируются все медикаменты другого пользователя, и свои остаются.
А у другого, который позже начинает Requery рецепт сохраняется, но в нем нет медикаментов - они у первого пользователя.

Мож текст программы будет понятней:

Private Sub UpdateDrugList_Click()
Dim strTmp As String, varTmp(2) As Variant
Dim dblCorrect As Double, lOldRI_FullCost As Long
Dim IsItError As Boolean
IsItError = False
If DrgCode = 0 Then
MsgBox "Не введен медикамент", vbCritical, "Ошибка"
IsItError = True
AddMedical.SetFocus
End If
If Not IsNumeric(AmmountText.Text) Then
MsgBox "Не введено количество", vbCritical, "Ошибка"
IsItError = True
AmmountText.SetFocus
End If
If (CVar(AmmountText.Text) <= 0) Then
MsgBox "В поле ""КОЛИЧЕСТВО"" нужно ввести положительное число (Например: 54,67)", vbCritical, "Ошибка!"
IsItError = True
AmmountText.SetFocus
End If
' Call AmmountText_Validate(True)

If Not IsItError Then
'Basic глючит с типами, т.е иногда 1>1 и разница составляет в ~1e-15
' => пришлось ввести корректировочный член dblCorrect
dblCorrect = Abs(CDbl(AmmountText.Text) - CDbl(IAmmountText.Text))
If (dblCorrect > 0.00000001) Then dblCorrect = 0
'Чтобы к-во не больше остатка для случая постановки рецепта в очередь
If (CDbl(AmmountText.Text) > (CDbl(IAmmountText.Text) + TAmmount + dblCorrect)) And StackCheck.Value = vbUnchecked Then
MsgBox "Количество больше остатка", vbCritical, "Ошибка"
AmmountText.SetFocus
Exit Sub
End If

'Для нового рецепта
If UpdateType = False Then
If DrugsUpdateType = False Then 'Новая запись или корректируем старую
ReceptItemsDC.AddNew
End If
'Значения
If StackCheck.Value = vbUnchecked Then ReceptItemsDC.Fields("ItemCode") = NewItmCode
ReceptItemsDC.Fields("IDrugCode") = DrgCode
ReceptItemsDC.Fields("Ammount") = CDbl(AmmountText.Text)
ReceptItemsDC.Fields("RiOutPrice") = CCur(OutPriceText.Text)
ReceptItemsDC.Fields("ItemCode") = NewItmCode 'новый код остатков
ReceptItemsDC.Fields("SumForPeople") = CCur(SummChargeText.Text)
ReceptItemsDC.Fields("FullCost") = CLng(CDbl(SummaryText.Text) * 100)
ReceptItemsDC.Fields("IsUpdated") = False
rsBaseOperation.Fields("FullCost") = ReceptItemsDC.Fields("FullCost")
ReceptItemsDC.UpdateBatch adAffectCurrent
'ReceptItemsDC.Update
ReceptItemsDC.Requery
ReceptItemsDC.MoveLast
End If
'Для текущего рецепта
If UpdateType = True Then
'Новая запись или корректируем старую
If DrugsUpdateType = False Then
ReceptItemsDC.AddNew
lOldRI_FullCost = 0
Else
lOldRI_FullCost = ReceptItemsDC.Fields("FullCost")
End If
'Значения
If StackCheck.Value = vbUnchecked Then ReceptItemsDC.Fields("ItemCode") = NewItmCode
ReceptItemsDC.Fields("ReceptCode") = ReceptCode
ReceptItemsDC.Fields("IDrugCode") = DrgCode
ReceptItemsDC.Fields("ItemCode") = NewItmCode 'новый код остатков
ReceptItemsDC.Fields("RiOutPrice") = CCur(OutPriceText.Text)
ReceptItemsDC.Fields("SumForPeople") = CCur(SummChargeText.Text)
ReceptItemsDC.Fields("Ammount") = CDbl(CVar(AmmountText.Text))
ReceptItemsDC.Fields("IsUpdated") = True
ReceptItemsDC.Fields("FullCost") = CLng(CDbl(CVar(SummaryText.Text)) * 100)
ReceptItemsDC.Update 'должно быть в конце иначе перескакивает на др строчку и считатет х-ню
ReceptItemsDC.Requery
ReceptItemsDC.MoveLast
End If
End If
End Sub

нет - таблица одна - ReceptItems. и База общая.
Для одного рецепта в этой таблице существует столько же записей, сколько в нем медикаментов.
1 - пользователь - выбрал клиента, врача(неважно), затем выбирает медикаменты со склада - например Адельфан
2 - пользователь - выбрал другие данные, и затем выбирает медикамент - Анальгин.
Одновременно нажимаем - "Сохранить рецепт".
Доходим до Requery. 1 польз. нажал немного раньше 2-го:
После этого - в таблице ReceptItems появятся 2 записи для 1 пользователя.
Рецепт-1 адельфан
Рецепт-1 Анальгин
Для 2-го пользователя будет запись:
Рецепт-2 Пусто.

Что делать ?

короче дело немного даже не так:
заносится рецепт, потом для него добавляются медикаменты которые отображаются в ДатаГриде. Нажимаем "Добавить", ставим кол-во,цена, стоим-ть. При нажатии на кнопку "Ввод" он должен отобразится в Гриде. Нажатие этой кнопки я и описал выше.

ReceptItemsDC.AddNew
ReceptItemsDC.Fields("IDrugCode") = DrgCode
ReceptItemsDC.Fields("Ammount") = CDbl(AmmountText.Text)
ReceptItemsDC.Fields("RiOutPrice") = CCur(OutPriceText.Text)
ReceptItemsDC.Fields("ItemCode") = ItmCode
ReceptItemsDC.Fields("SumForPeople") = CCur(SummChargeText.Text)
ReceptItemsDC.Fields("FullCost") = CLng(CDbl(SummaryText.Text) * 100)
ReceptItemsDC.Fields("IsUpdated") = False

ReceptItemsDC.UpdateBatch adAffectCurrent
ReceptItemsDC.Requery
ReceptItemsDC.MoveLast

в предыдущих сообщ. я ошибся - данные не сразу сохраняются в таблицу ReceptItems, а запоминаются и сохраняются позже при сохранении всего рецепта.

Но дело в том, что после вызова Requery - у одного пользователя в ДатаГриде отобразится и свой медикамент и медикамент, который вводится другим пользователем, а у того - пустая запись.

Мож я конечно плохо обьясняю.

>Лох Позорный
>Да блин ты наверняка с идентификаторами намудил хде-то
Я мож тебя неправильно понял. Ты имеешь ввиду, что идентификатор записи таблицы одинаковый получают одновременно два польз. ?

И еще - я понял, что Requery убирать нельзя (если только чем-ньть заменить), потому что когда его нет, в ДатаГриде отображается неполная информация - какие-то данные есть каких-то нету.

еще раз :
когда нжимается кнопка ввода медикамента в рецепт, то
выполняется
ReceptItemsDC.AddNew
т.е. добавление новой записи в Рекордсет.
Полям присваиваются значения.
Причем есть поле "Code"-счетчик, значение которого никак не может совпадать с другой записью.

NewItmCode - это не идентификатор. Это код остатка медик-та - короче он не важен.

ReceptItemsDC.Fields("IDrugCode") = DrgCode - код медик-та
ReceptItemsDC.Fields("Ammount") = CDbl(AmmountText.Text) - кол-во
ReceptItemsDC.Fields("RiOutPrice") = CCur(OutPriceText.Text) - цена
ReceptItemsDC.Fields("ItemCode") = ItmCode - код остатка медикамента
ReceptItemsDC.Fields("SumForPeople") = CCur(SummChargeText.Text) - сумма
ReceptItemsDC.Fields("FullCost") = CLng(CDbl(SummaryText.Text) * 100) - полная сумма

ReceptItemsDC.UpdateBatch adAffectCurrent
ReceptItemsDC.Requery
ReceptItemsDC.MoveLast

И при Requery происходит пересечение пользователей. Причем если потом сохранить эти оба рецепта, то в эту общую базу занесутся такие записи:
1 рецепт и со своим медикаментом и с медикаментом 2 рецепта
а второй так и будет пустым.
короче лажа.

короче
ReceptItems - это и есть медикаменты рецепта.
для понятности приведу поля этой таблицы:
Code - Счетчик
receptCode - Код для связи с табл. Recept(табл. хранения рецептов)
ItemCode - Код для связи с табл. Items (табл. остатков)
DrugCode - Код медикамента
OutPrice - Цена
Ammount - Кол
FullCost - Стоим-ть полная
SumForPeople - Стоим-ть

Если есть в рецепте два медик-та - то в это табл. и будет две записи.
и ReceptCode - будет в обоих одинаков.

Когда выберется из КомбаБокса - медикамент, то его код присвоится DrugCode,
и остальные поля также по связям с Items(остатки).
DrgCode = ItemDC.Fields("DrgCode")
DrugNameText.Text = ItemDC.Fields("LongName")
IAmmountText.Text = ItemDC.Fields("Ammount")
OutPriceText.Text = ItemDC.Fields("OutPrice")
IFullCostText.Text = ItemDC.Fields("IFullCost")

И через эти переменные потом присваиваются значения для ReceptItemsDC.
Только я не понимаю - зачем вы это спрашиваете.
Дело явно не в них.
Тут все дело в "Методах обновления данных". Update, Requery и т.д.