Private Sub Form_Load()
guardar.Enabled = False
End Sub
Private Sub guardar_Click()
guardar.Enabled = False
novo.Enabled = True
sair.Enabled = True
Adodc1.Recordset.Update
End Sub
Private Sub novo_Click()
Dim conta As String
novo.Enabled = False
sair.Enabled = True
guardar.Enabled = True
Adodc1.Recordset.AddNew
conta = Adodc1.Recordset.RecordCount
Label1 = conta + 1
Label2 = conta + 1
End Sub
Private Sub sair_Click()
Unload Me
End Sub
eu tenho duas textbox ligadas ao mesmo datafiald será esse o problema?
pois o erro é de duplicaçao de registos.....