BANCO DE DADOS.... DE NOVO

TECLA 22/08/2009 13:13:35
#320673

Poste o código que utiliza.

ASHKATCHUP 22/08/2009 13:45:56
#320677

Você usa que tipo de conexão? Ado? Rdo?

Especifique melhor.

MATHEUS1346 22/08/2009 17:46:09
#320692

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Temp As Integer
If Data1.Recordset.RecordCount = 0 Then
Temp = KeyAscii
KeyAscii = 0
If MsgBox([Ô]Deseja Inserir um registro?[Ô], vbQuestion + vbYesNo, [Ô]Inserção de registro[Ô]) = vbYes Then <-- Rotina do text
mnusalvar_Click
KeyAscii = Temp
End If
End If
End Sub

Private Sub mnusalvar_Click() <--
Dim resp As Byte
resp = MsgBox([Ô]Deseja Adicionar este registro?[Ô], vbQuestion + vbYesNo, [Ô]Adicionar registro[Ô])
If resp = vbYes Then
If Len(Text1.Text) < 1 And Len(Text2.Text) < 1 Then
MsgBox [Ô]Você não pode adicionar um registro nulo![Ô], vbOKOnly, [Ô]Erro![Ô]
Else
Data1.Recordset.AddNew
Data1.UpdateRecord
Data1.Recordset.MoveFirst
End If
End If
End Sub

JILNEY 23/08/2009 07:37:26
#320705

O problema é que cê ta usando controle vinculado....isto é que não é legal. vou criar uma rotina bem basica só com ADO e posto logo mais para você dar uma olhada.

TECLA 23/08/2009 10:56:08
#320712 Resposta escolhida

Comece lendo este artigo escrito por Macoratti.
Migrando da DAO para a ADO sem traumas