PROBLEMA EM FORMULARIO DO ACCESS - VBA

MARCELO.TREZE 09/10/2012 12:52:39
#411643
são comandos utilizados no vb6, nem sempre se aplica a vba
CHUMBREGA 09/10/2012 15:15:38
#411660
Procurei saber e funcionam sim.
Estava analisando o código e não sei se tem haver.
Alguns dos campos são combobox, a escrita continua a mesma dos textbox no código do botão Gravar?
MARCELO.TREZE 09/10/2012 16:12:24
#411663
é vc tem que tomar cuidado ja que o nome de um objeto é [txtrm], e voce coloca um [numcod,] e este numcod vai vazio, outro objeto é o textbox [txtrg_mae] e na realidade o nome do objeto é [txtrgmae] sem o underline

va verificando este errinhos primeiro colega
CHUMBREGA 10/10/2012 10:22:18
#411696
[ô]Corrigi tudo e dá o mesmo erro. Refiz a tabela, sem formatação (anexada no post acima) e nada. Não achei que fosse tão difícil fazer isso. To quase desistindo. Por favor, ajudem!

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 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 & [Ô][ô][Ô] & txtRM & [Ô][ô],[Ô]
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 & [Ô][ô][Ô] & txtRGMAE & [Ô][ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & txtPAI & [Ô][ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & txtRGPAI & [Ô][ô],[Ô]
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
ABACLAR 07/12/2012 21:08:51
#415637
Peguei neste exemplo e tentei adaptá-lo para uma aplicação minha o modulo conexão é igual

Public Comando As String
Public banco As Database
Public dataset As Recordset

Function Conecta()
Set banco = CurrentDb
End Function

Function valida_selecao()
Set dataset = banco.OpenRecordset(Comando, dbOpenDynaset)
End Function

Public NumCod As Integer
Private Sub Form_Load()
Conecta
End Sub

Public Sub Gerar_Codigo()
Comando = [Ô]select from * tblTeste order by ID Desc[Ô]
valida_selecao
If dataset.BOF = True Then
NumCod = 1
Else
NumCod = dataset([Ô]ID[Ô]) + 1
End If

End Sub

Private Sub Comando4_Click()
Gerar_Codigo
Comando = [Ô]Insert into tblTeste(ID, Campo1,Campo2)[Ô]

Comando = Comando & [Ô]VALUES([Ô]
Comando = Comando & [Ô][ô][Ô] & NumCod & [Ô][ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & txtDia & [Ô][ô],[Ô]
Comando = Comando & [Ô][ô][Ô] & txtAno & [Ô][ô])[Ô]
banco.Execute (Comando)
End
ABACLAR 07/12/2012 21:28:28
#415640
Seguindo a minha explicação ao fazer clique no cmdBotão obtenho estas respostas. Será possível dar-me a solução para o problema.
Outra coisa quando tento programar (é disso que se trata, eu não programo) para obter a lista de propriedades e métodos necessito de usar o botão direito do rato, como é que posso automatizar essa opção?

Obrigado.
Página 3 de 3 [26 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar