PROBLEMA EM FORMULARIO DO ACCESS - VBA

CHUMBREGA 08/10/2012 17:46:12
#411570
Blz Irenko.
Conferi um a um e corrigi os que estavam errados, mas continua dando o mesmo erro. Não sei onde estou errando.
Agradeço se me ajudar. Grato.
MARCELO.TREZE 08/10/2012 18:01:05
#411572
Não sei se você já fez mas é o seguinte no vb6 sigo a seguinte regra:

quanto o tipo do campo é numero [txt-color=#e80000]não usa-se[/txt-color] apostrofo([ô])

exemplo

 Comando = Comando & [Ô][Ô] & txtRA & [Ô],[Ô]


quando é do tipo texto [txt-color=#0000f0]usa-se[/txt-color] o apostrofo([ô])

exemplo

 Comando = Comando & [Ô][ô][Ô] & txtNOME & [Ô][ô],[Ô]


e quando o campo é do tipo data [txt-color=#0000f0]usa-se[/txt-color] number (#) com formato mm/dd/yyyy

exemplo

 Comando = Comando & IIf(Not IsDate(txtDATA_NASC), [Ô]Null[Ô], [Ô]#[Ô] & Format(txtDATA_NASC, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]) & [Ô],[Ô]


repare acima que o formato é mm/dd e não dd/mm
CHUMBREGA 09/10/2012 09:55:14
#411602
Fiz as alterações e da erro de sintaxe do INSERT INTO. Voltou ao começo.
Ta difícil. HELP!!!
MARCELO.TREZE 09/10/2012 09:58:59
#411605
posta toda sql como ficou agora derrepente e coisa pouca
CHUMBREGA 09/10/2012 10:12:55
#411608
Private Sub cmdGravar_Click()
On Error GoTo Err_cmdGravar_Click

If txtRA <> [Ô][Ô] And txtNOME <> [Ô][Ô] And txtDATA_NASC <> [Ô][Ô] And txtENDERECO <> [Ô][Ô] And txtTEL1 <> [Ô][Ô] Then
GerarRM
Comando = [Ô]Insert into tb_Alunos ([RM], [RA], [NOME], [SEXO], [DATA_NASC], [NATURALIDADE], [MAE], [RG_MAE], [PAI], [RG_PAI], [CERTIDAO_NOVA], [CERTIDAO], [LIVRO], [FOLHA], [EMISSAO], [DISTRITO], [COMARCA], [ESTADO], [ENDERECO], [BAIRRO], [CIDADE], [TEL1], [TEL2], [TEL3], [TEL4], [ANO], [TURNO], [ENSINO], [SERIE], [TURMA], [NUM_CH], [DATA_MAT], [OBS]) [Ô]
Comando = Comando & [Ô]VALUES([Ô]
Comando = Comando & [Ô][Ô] & NumCod & [Ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & txtRA & [Ô][ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & txtNOME & [Ô][ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & cmbSEXO & [Ô][ô],[Ô]
Comando = Comando & IIf(Not IsDate(txtDATA_NASC), [Ô]Null[Ô], [Ô]#[Ô] & Format(txtDATA_NASC, [Ô]dd/mm/yyyy[Ô]) & [Ô]#[Ô]) & [Ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & cmbNATURALIDADE & [Ô][ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & txtMAE & [Ô][ô],[Ô]
Comando = Comando & [Ô][Ô] & txtRG_MAE & [Ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & txtPAI & [Ô][ô],[Ô]
Comando = Comando & [Ô][Ô] & txtRG_PAI & [Ô],[Ô]
Comando = Comando & [Ô][Ô] & txtCERTIDAO_NOVA & [Ô],[Ô]
Comando = Comando & [Ô][Ô] & txtNUM_CERTIDAO & [Ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & txtLIVRO & [Ô][ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & txtFOLHA & [Ô][ô],[Ô]
Comando = Comando & IIf(Not IsDate(txtEMISSAO), [Ô]Null[Ô], [Ô]#[Ô] & Format(txtEMISSAO, [Ô]dd/mm/yyyy[Ô]) & [Ô]#[Ô]) & [Ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & cmbDISTRITO & [Ô][ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & cmbCOMARCA & [Ô][ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & cmbESTADO & [Ô][ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & txtENDERECO & [Ô][ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & cmbBAIRRO & [Ô][ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & txtCIDADE & [Ô][ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & txtTEL1 & [Ô][ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & txtTEL2 & [Ô][ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & txtTEL3 & [Ô][ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & txtTEL4 & [Ô][ô],[Ô]
Comando = Comando & [Ô][Ô] & txtANO & [Ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & txtENSINO & [Ô][ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & cmbSERIE & [Ô][ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & cmbTURMA & [Ô][ô],[Ô]
Comando = Comando & [Ô][Ô] & txtNUM_CH & [Ô],[Ô]
Comando = Comando & IIf(Not IsDate(txtDATA_MAT), [Ô]Null[Ô], [Ô]#[Ô] & Format(txtDATA_MAT, [Ô]dd/mm/yyyy[Ô]) & [Ô]#[Ô]) & [Ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & txtOBS & [Ô][ô])[Ô]
banco.Execute (Comando)
Debug.Print Comando
MsgBox ([Ô]Os dados foram cadastrados com sucesso![Ô]), vbInformation + vbOKOnly, [Ô]Cadastro[Ô]
Limpar
Else
MsgBox ([Ô]Necessário informar os dados para efetuar o cadastro![Ô]), vbInformation + vbOKOnly, [Ô]Dados Necessários[Ô]
txtRA.SetFocus
End If

Exit_cmdGravar_Click:
Exit Sub
Err_cmdGravar_Click:
MsgBox Err.Description
Resume Exit_cmdGravar_Click

End Sub
IRENKO 09/10/2012 10:16:34
#411612
Olha, da forma q postei testando aqui não deu erro pois uso dessa forma para aplicativos VBA Excel. O erro q ocorreu na minha maquina foi ao setar o recordset e os comandos de conexões em access eu não conheco muito bem.
CHUMBREGA 09/10/2012 10:28:29
#411616
Não deu mais o erro do Insert Into, mas deu incompatibilidade dos campos e ainda não consegui achar esse erro. No exemplo do Marcelo, voltou a dar erro de sintaxe. Nao sei se estou fazendo algo errado no geral, por isso pedi ajuda a vocês, que estão me ajudando muito por sinal. Já aprendi várias novas coisas depois deste fórum. O foda é que preciso deste Banco pronto este mês ainda e tá difícil acertar...
Mais uma vez, obrigado a todos os que estão quebrando a cabeça junto à mim...hehehe
MARCELO.TREZE 09/10/2012 10:38:51
#411619
tenta tirar a formatações que você colocou nas propriedades dos campos
CHUMBREGA 09/10/2012 11:00:49
#411622
Refiz o Banco sem formatação alguma e continua na mesma. anexei aqui neste post o Banco completo com as últimas atualizações que me passaram. Acho q facilita vendo ele com um todo.
Grato desde já.
CHUMBREGA 09/10/2012 11:30:02
#411629
Aproveitando que vcs conhecem bem mais que eu, o que são esse comandos: IIF e Debug.Print
Página 2 de 3 [26 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar