Он работает только с DoCmd.RunSQL :-(


акцXP mdb

Private Sub cmdAddModel_Click()

On Error GoTo ErrHANDLEr

If IsNull(ÑïÔÈÎ) Then Exit Sub
Dim s As String, strNARM As String, Eq As String
Dim v
Dim st
Dim strModelID As String
Dim strArmID As String
Dim strPrim2 As String
Dim strNomARM
Dim strStik
Dim strPr2
Dim srtPar2 As String

strModelID = Str(Form_Ôîðìà1.txtModel.Value)
' MsgBox ("1text:" & strModelID & ":")
strNomARM = Form_frmQryARM.nARM
' MsgBox ("3text:" & strNomARM & ":")

s = "select top 1 OborudID from gaga_tblModel WHERE ModelID=" & strModelID
v = CurrentProject.Connection.Execute(s).GetRows
Eq = CStr(v(0, 0))
' MsgBox ("2text:" & ":")
' MsgBox (Eq)

strArmID = Str(Form_Ôîðìà1.ñïÀÐÌ.Value)
' MsgBox (strArmID)

s = "SELECT MAX(CInt(prim2)) FROM gaga_tblModelARM AS MA, gaga_tblModel AS M" _
& " WHERE MA.ModelID = M.ModelID AND ARMID=" & strArmID & " And M.OborudID=" & Eq

v = CurrentProject.Connection.Execute(s).GetRows
strPrim2 = CStr(Nz(v(0, 0), "0"))
strPrim2 = CStr(CInt(strPrim2) + 1)
' MsgBox (strnVnutr)

s = "select top 1 foStiker from gaga_tblOborud WHERE OborudID=" & ÑïÊîëÎáîðóä
v = CurrentProject.Connection.Execute(s).GetRows
strStik = CStr(Nz(v(0, 0), "N"))
'MsgBox ("4text:" & strStik & ":")

st = strNomARM & "-" & strStik & strPrim2 ' & IIf(IsNull(srtPar2), "-" & srtPar2, "") '


s = "INSERT INTO gaga_tblModelARM (ARMID, ModelID, prim2, nVnutr) VALUES (ñïÀÐÌ, [Forms]![Ôîðìà1]![txtModel]," & strPrim2 & ", '" & st & "')"
' s = "INSERT INTO gaga_tblModelARM ( ARMID, ModelID ) SELECT gaga_tblARM.ARMID, gaga_tblModel.ModelID FROM gaga_tblARM, gaga_tblModel WHERE (((gaga_tblARM.ARMID)=ñïÀÐÌ ) AND ((gaga_tblModel.ModelID)=[Forms]![Ôîðìà1]![txtModel]))"

DoCmd.RunSQL s

ErrHANDLEr:

End Sub

Kelmeпопробуй так: Currentdb.Execute s,dbfailonerror

и какую ошибку при этом выкинет?

CurrentDb.Execute s, DB_FAILONERROR

ошибка: слишком мало параметров. требуется 2

Kelmeтипа так:



СПАСИБО! ПОЛУЧИЛОСЬ! :-)

ps получается, что ранэскуэль более сговорчивый :-)

здесь та же проблема: CurrentDb.Execute не работает
ошибка:
Необходимо использование параметра dbSeeChanges с OpenRecordset при доступе к таблице SQLServer, которая имеет столбец IDENTITY. (Ошибка 3622)

Private Sub txtSistBlParent_AfterUpdate()

Form_Frmgaga_tblModelARM1Sub.Refresh


Dim s As String
Dim st
Dim strNomARM
Dim strStik
Dim strPr2
Dim srtPar2 As String
Dim strNomVn As String
Dim strModelARMID As String


strNomARM = Form_frmQryARM.nARM

strStik = Form_Frmgaga_tblModelARM1Sub.txtStiker
strPr2 = Form_Frmgaga_tblModelARM1Sub.txtprim2

Form_Frmgaga_tblModelARM1Sub.txtP.SetFocus
srtPar2 = CStr(Form_Frmgaga_tblModelARM1Sub.txtP.Text)


st = strNomARM & "-" & strStik & strPr2 & IIf(IsNull(srtPar2), "", "-" & srtPar2)
Form_Frmgaga_tblModelARM1Sub.txtnVnutr.SetFocus


strModelARMID = CStr(Form_Frmgaga_tblModelARM1Sub.ModelARMID.Value)

s = "UPDATE gaga_tblModelARM SET nVnutr='" & st & "' WHERE ModelARMID=" & strModelARMID

'CurrentProject.Connection.Execute (s)

CurrentDb.Execute s

Form_Frmgaga_tblModelARM1Sub.Requery
Form_Ôîðìà1.txtTest.SetFocus

End Sub

Shuhardмного раз обсужденный вопрос
/topic/92933&pg=1&hl=dbuseodbc
к сожалению сама разобраться не смогла:(
поэтому просто отключу подтверждения в меню Акц. и вернусь к RunSQL