Exclude Data

[gatarossi]

Dear all,

I'm trying to exclude some data in my access table, but the code
bellow doesn't work. I need that excel to exclude all data in the
table that contains a criteria in two range of excel.

For example:

Table

accounting_code profit_center date value
salary 3 01/01/07 100

I have the range a1 for the profit_center and range a2 for the date.
Then I will put in range a1 = 3 and a2 = 01/01/07, then I will click
in a button and excel will exclude all data in access that contains
profit_center = 3 and date = 01/01/07.

Sub exclui_teste()

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset

Myconn = "C:\Documents and Settings\brspagi\Meus documentos\teste
\controle_despesas.mdb"

Set cnn = New ADODB.Connection
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open Myconn
.Execute "Delete * from orcamento_despesas Where
codigo_centro_cuto = '3'"
.Close
End With

End Sub

Thanks,

André.

 

[Raju A]

Hi,

Was the below information useful for you?
Change in your code the following statement
.Execute "Delete * from orcamento_despesas Where profit_center = 3"

Regards
Raj A

 

[Rodrigo Ferreira]

Try this:
..Execute "Delete * from orcamento_despesas Where profit_center = " &
range("A1") & " and date = '#" & range("A2") & "'#"
or
..Execute "Delete * from orcamento_despesas Where profit_center = 3 and date
= '#01/01/07#''