Olá,
  
     Gostaria de Fazer duas indagações:
     1)  Encontrei um código na internet e estou tentando rodar o mesmo para utilização de controle de frente de loja, com controle dos estoques, contas a pagar e receber e gostaria de implementar algo como TEF e impressão fiscal/não fiscal(que não existe neste código), entretanto, não tenho experiência com TEF, então achei se alguém não poderia me ajudar a encontrar/ceder algo que pudesse implementar e/ou estudar para melhorar este sistema, pois, meu objetivo é me basear neste programa que considero básico do básico e migrar para utilizar com o SQL Server 2005/2008 free, alguém poderia me ajudar a encontrar algo que possa utilizar e usar?

     2) Como resolver este problema do VB6 X ACCESS 97 que não consigo usar, pois, ao executar num determinado formulário, sai com o erro descrito abaixo:

     Alguém poderia me ajudar? Estou com uma aplicação que ao tentar incluir, alterar qualquer informação no BD que está vinculado por um objeto DATA, está dando o seguinte erro, na linha de comando do VB, "Data1.Recordset.Update": Run time error: 3426 "This action was cancelled by an associated object ". Utilizo o VB6 x ACCESS 97, a DatabaseName utilizo quando carrego o formulário, o RecordsetType utilizado é o Dynaset, de um Recordsource relacionado a uma tab x. A rotina que utilizo quando quero modificar qualquer registro é através do botão Adicionar/Alterar e em seguida pelo botão salvar conforme consta abaixo:
Botão Adicionar:
 
Private Sub Command1_Click()
Dim Contador As Currency
Dim Estoque As Currency
If Menu.CEstoque = "" Then
Menu.CEstoque = 0
End If
Estoque = Menu.CEstoque
Contador = Estoque + 1
Menu.CEstoque = Contador

A1.Visible = True
Tabela.Visible = False

Data1.Recordset.AddNew
A1 = Contador
Frame1.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = False
Command5.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
C5.Enabled = False
TABE.Enabled = False
PRINTB.Enabled = False
Data1.Enabled = False
A2.SetFocus
A1.Visible = False
P1 = A1
Menu.Contador.Refresh
End Sub
x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-
Botão Alterar:
Private Sub Command2_Click()
If P1 <> "" Then
Data1.Recordset.Edit
Data1.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = False
Command5.Enabled = False
Command7.Enabled = False
C5.Enabled = False
TABE.Enabled = False
PRINTB.Enabled = False
Tabela.Visible = False
Data1.Enabled = False
A1.Visible = False
Frame1.Enabled = True
A2.SelStart = 0
A2.SelLength = Len(A2.Text)
A2.SetFocus
Tabela.Visible = False
End If
End Sub
x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-
Botão Salvar (É aqui que existe o erro apontado)
Private Sub Command3_Click()
If P1 <> "" Then
'Confirmação de campos
If A3 = "" Then
A3 = 0
End If
If A4 = "" Then
A4 = 0
End If
If A5 = "" Then
A5 = 0
End If
If A07 = "" Then
A07 = 0
End If
If A8 = "" Then
A8 = 0
End If
If A09 = "" Then
A09 = 0
End If
If A10 = "" Then
A10 = 0
End If
If A22 = "" Then
A22 = 0
End If
If A12 = "" Then
A12 = 0
End If
If A11 = "" Then
A11 = 0
End If
If A9 = "" Then
A9 = 0
End If
If A23 = "" Then
A23 = 0
End If
If A13 = "" Then
A13 = 0
End If
If A7 = "" Then
A7 = 0
End If
If A15 = "" Then
A15 = 0
End If
If A17 = "" Then
A17 = 0
End If
If A19 = "" Then
A19 = 0
End If
If TvenHoje = "" Then
TvenHoje = 0
End If
If LucDia = "" Then
LucDia = 0
End If
If LucMes = "" Then
LucMes = 0
End If
If Custo_total = "" Then
Custo_total = 0
End If
If Estoque_total = "" Then
Estoque_total = 0
End If
If LucMesMec = "" Then
LucMesMec = 0
End If
If LucDiaMec = "" Then
LucDiaMec = 0
End If
If QueMes = "" Then
QueMes = 0
End If
If QueMesVr = "" Then
QueMesVr = 0
End If
Data1.Enabled = True
ENTRADA.Visible = False
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = True
Command5.Enabled = True
Command7.Enabled = True
C5.Enabled = True
TABE.Enabled = True
PRINTB.Enabled = True
Frame1.Enabled = False
Altera = True
TABE = True
Data1.Recordset.Update   <<<<----------o erro ocorre aqui
End If
End Sub

Alguém pode me ajudar???

Valeu Álvaro,

 

                 Finalmente os registros podem ser gravados, entretanto, com o botão incluir para adicionar um novo registro não está gravando o que devo fazer???

Abraços.

no componente data tem uma propriedade que se nao me engano chama addnew, coloque ela como true, eu particularmente nao aconselho a usar esses componentes de acesso direto ao banco, da muito problema, principalmente que vc esta pensando em utiliza tef , ecf, etc...