@lexi@

Pois mas não me está a surgir só um erro, tenho varios erros no programa, a razão de eu ter feito um novo post a pedir ajuda em geral ate não me importava de mandar po mail da pexoa k xe dixponha a ajudar-me... porque tou mesmo a precixar imensa ajuda... já agora sobre o outro post o erro que me dá não é concreto, por isso torna-se dificil dizer o erro que ele me dá... Cumprimentos, obrigado aguardo por respostas

Boas Tardes, estou no 12ºano do curso de informática e tenho que fazer uma PAT e como já tinha referido estou a fazer um projecto em VB para gerir uma biblioteca, só que estou com dificuldades para o colocar a 100% devido a alguns erros que ele me dá e não consigo resolver :( . Gostaria de saber se a alguém que se disponha ajudar-me ate não me importava de mandar para o mail dessa pessoa, porque estou mesmo a precisar de ajuda urgentemente pois tenho que o entregar no dia 30 de Maio :( .... Obrigado, aguardo resposta o mais rápido possível..

Peço imensas desculpas, esqueci-me de referir isso, o erro que ele aponta é ".ActiveConnection = cnnBiblio" ....

Boas Tardes!! Estou a precisar de ajuda, tou a criar um programa em VB para gerir uma Biblioteca, o que se passa é que me esta a dar um erro, num form que serve para registar utilizadores, tenho já uma base dados feita em acess. Não consigo descobrir o erro, gostaria que me ajudassem, Obigado Deixo aqui o código: Private Sub GravarDados() Dim cnnComando As New ADODB.Command Dim vconfMsg As Integer Dim vErro As Boolean On Error GoTo errGravacao 'Inicializa as variáveis auxiliares: vbConfMsg = vbExclamation + vbOKOnly + vbSystemModal vErro = False 'Verifica os dados digitados: If txtNomeUtilizador.Text = Empty Then MsgBox "O campo Nome não foi preenchido.", vbConfMsg, "Erro" vErro = True End If If txtMorada.Text = Empty Then MsgBox "O campo Morada não foi preenchido.", vbConfMsg, "Erro" vErro = True End If If txtTelefone.Text = Empty Then MsgBox "O campo Morada não foi preenchido.", vbConfMsg, "Erro" vErro = True End If If txtAno.Text = Empty Then MsgBox "O campo Ano não foi preenchido.", vbConfMsg, "Erro" vErro = True End If If txtTurma.Text = Empty Then MsgBox "O campo Turma não foi preenchido.", vbConfMsg, "Erro" vErro = True End If If txtNº.Text = Empty Then MsgBox "O campo Nº não foi preenchido.", vbConfMsg, "Erro" vErro = True End If 'Se aconteceu um erro de digitação, sai da sub sem gravar: If vErro Then Exit Sub Screen.MousePointer = vbHourglass With cnnComando .ActiveConnection = cnnBiblio .CommandType = adCmdText 'Verifica a operação e cria o comando SQL correspondente: If vInclusao Then 'Inclusao: .CommandText = "INSERT INTO Utilizadores" & "(CodUtilizador, NomeUtilizador, Morada, Telefone, Ano, Turma, Nº) VALUES ('" & txtCodUtilizador.Text & ",'" & txtNomeUtilizador.Text & ",'" & txtMorada.Text & ",'" & txtTelefone.Text & ",'" & txtAno.Text & ",'" & txtTurma.Text & ",'" & txtNº.Text & "');" Else 'Alteração: .CommandText = "UPDATE Utilizadores SET" & "NomeUtilizador ='" & txtNomeUtilizador.Text & "'," & "Morada ='" & txtMorada.Text & "'," & "Telefone ='" & txtTelefone.Text & "'," & "Ano ='" & txtAno.Text & "'," & "Turma ='" & txtTurma.Text & "'," & "Nº ='" & txtNº.Text & "' " & "WHERE CodUtilizador =" & txtCodUtilizador.Text & ";" End If .Execute End With MsgBox "Gravação concluída com sucesso.", vbApplicationModal + vbInformation + vbOKOnly, "Gravação OK" 'Chama a sub que limpa os dados do formulário: LimparDados saida: Screen.MousePointer = vbDefault Set cnnComando = Nothing Exit Sub errGravacao: With Err If .Number <> 0 Then MsgBox "Ocorreu um erro durante a gravação dos dados na tabela.", vbExclamation + vbOKOnly + vbApplicationModal, "Erro" .Number = 0 GoTo saida End If End With End Sub Cumprimentos