alepe
Membros-
Total de itens
36 -
Registro em
-
Última visita
Sobre alepe
alepe's Achievements
0
Reputação
-
Pessoal preciso saber o codigo ASCII da tecla TAB. alguém pode me ajudar
-
Pessoal fiz um sistema em vb mas não estou conseguindo compartilhar o mesmo entre as estações Deixei uma maquina como servidor Criei o MDB nos driver odbc Fui na maquina 2 criei um link do executavel do servidor e criei a conexão com o ODBC, ao tentar acessar vem a menssagem: Erro "Run Time error 2147467259(80004005)' que não foi possível encontrar o arquivo c:\windows\desktop\facrica.mdb. Alguém pode me ajudar..
-
Valeu pessoal o problema estava no .text nas passagens dos dados... Obrigado....
-
então não devo utilizar o textbox e sim passar somente o name do textbox sem o ".text"
-
Pessoal o CN está definido os campos foram conferidos e mesmo assim ele da erro o erro é Run time error 424 objetc required uma coisa que estou com duvida é o campo dcoprocesso e dcoterceiro eles são combobox. o jeito de passar ele está correto. ?
-
Da erro de tipo de dados Type mismatch... utilizando typename o campo é string Existe alguma incompatibilidade do Find com texto.. ?
-
Utilizando o ADODC ele funciona na primeira inclusão ao clicar no botão novo alguns campos ele não deixa incluir. e ao acabar de preencher os campos e clicar no gravar ele da error "3021" BOF ou EOF. são verdadeiros ou o registro atual foi excluido a operação registrada pelo aplicativo requer um registro atual. Alguma Luz
-
Caros, Ao utilizar o find para pesquisar o tipo de tecido ele não localiza e da erro Run time error 3001. Os argumentos são incorretos, estão fora do intervalo aceitavel ou estão em conflito. Se a pesquisa fosse por numero ele funciona.. entrada tipo de tecido = RIBANA Dim codigo As String, criterio As String 'Processo de localização de tecido em estoque codigo = txttecido.Text If codigo = Empty Then Exit Sub criterio = "tipotecido =" & codigo rs.MoveFirst rs.Find criterio, 0, adSearchForward If rs.EOF Then rs.MoveLast MsgBox "Tecido Não Existe!!!" End If rs.Fields("quantidade") = rs.Fields("quantidade") - txtqtdeutilizada.Text
-
Caros... To querendo definir os menus por senha ou seja dependendo do nivel hierarquico e funcao ele abre o menu somente com as opções certa para o usuário... Alguma ideia como fazer...
-
Caros, após a inclusão de dados na base o programa retorna que o dado foi inserido corretamente. mas ao utilizar os botoes de para frente , para tras ultimo e voltar ou até pesquisa ele da o segiuinte erro Run time error '-2147217842(80040e4e)': Operação Cancelada Estou utilizando o ADODC Alguém Help,....
-
Run time error "-2147217900(80040e14)' Numero de valores de consulta e campos de destino não coincidem. Pergunta: Se as consulta vem de datgrid e datalist relacionei elas no value e os campos do bd não estou utilizando o de autonumeração é obrigatório colocar todos ? SQL = "insert into relcomanda(codigocomanda,nomedaloja,datadacomanda,vrcomanda,desconto,vrtotaldesc,defeito,impresso) VALUES ('& lstmostra.SelectedItem & ', '" & nomeloja & "', DateValue('" & datacom & "'), " & total & ", " & txtdesc.Text & ", " & txttotdesc.Text & ", '0 ' , ' 1' " cn.Execute SQL
-
Ao usar o run com insert into da erro de RUN TIME ERROR 2517 O microsoft acess não pode localizar o procedimento insert into Após definir os dados peço para ele dar esse insert e da erro alguém pode ajudar Run "insert into relcomanda(codigocomanda,nomedaloja,datadacomanda,vrcomanda,desconto,vrtotaldesc,defeito,impresso) VALUES ('& codigo & ', '" & nomeloja & "', DateValue('" & datacom & "'), " & total & ", " & txtdesc.Text & ", " & txttotdesc.Text & ", ' ', ' S' "
-
De uma olhada no www.macoratti.net/printer.htm Inté
-
Sim está aberto segue o código... 'Objetos para trabalhar com o BD e a tabela, respectivamente Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim rs1 As New ADODB.Recordset Dim rs2 As New ADODB.Recordset Dim rs3 As New ADODB.Recordset Dim nomeloja As String Dim datacom As Date Dim total As Double Dim total1 As Double Dim soma As Double Dim soma1 As Double Private Lista As ListItem Private Lista1 As ListItem Private contapagina As Integer Private Sub cmdalteracao_Click() frmaltcomanda.Show vbModal End Sub Private Sub cmdsair_Click() Dim vmensagem As String vmensagem = "Encerrado Processado - Saindo" MsgBox vmensagem, vbInformation, "Encerrado Processo" cn.Close Set cn = Nothing Unload frmcomandas End Sub Private Sub Form_Load() 'Abre o banco de dados 'cn.Close cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=fabrica.mdb" 'Abre a tabela rs.CursorLocation = adUseClient rs1.CursorLocation = adUseClient rs2.CursorLocation = adUseClient rs3.CursorLocation = adUseClient End Sub
-
Ok.. Fiz o Insert mas não deu para testar pois o mesmo diz que o Objeto não está aberto ou inválido. Após a impressão ele deve incluir em uma nova tabela os dados que servirão para um relatório sintético. Faço a abertura do rs3 no Form Load declarção no General A variavél S é informando no Bd que a comanda foi impressa. E defeito nesse caso é vazia. ' fim de impressão End If Printer.EndDoc rs3.Open "insert into relcomanda(codigocomanda,nomedaloja,datadacomanda,vrcomanda,desconto,vrtotaldesc,defeito,impresso) VALUES ('& codigo & ', '" & nomeloja & "', DateValue('" & datacom & "'), " & total & ", " & txtdesc.Text & ", " & txttotdesc.Text & ", '', " '&S&'"), cn, adOpenDynamic, adLockOptimistic HELP...