Форумы HiProg.com - MS ACCESS, VBA, VB

ник: ShadowOfSun
У меня было сделано примерно так.
Но я не претендую на красоту, быстроту и оригинальность кода.

Самое главное код работает и работает правильно

Private Sub NoName()     Dim longManufacture, longIron, longRST As Long     Dim dblLargeManufacture As Double     Dim cmd As ADODB.Command     Dim strLargeManufacture As String     longManufacture = 1     longIron = 2     longRST = 3     dblLargeManufacture = 2,55     strLargeManufacture = Replace(CStr(dblLargeManufacture),",",".")     Set cmd = New ADODB.Command             With cmd                .ActiveConnection = CurrentProject.Connection                .CommandText = "INSERT INTO tblExpense ( IronID, LargeIron, ArrivalID, OperationID, ManufactureID ) " & _                "VALUES (" & longIron & ", " & strLargeManufacture & ", " & longRST & ", 11, " & longManufacture & ")"                .Execute             End With       Set cmd = Nothing    End Sub