|
|
Postada em 04/02/2011 10:41 hs
Olá, pessoal, eu segui a sugestão de usar uma combox. Usei os seguintes comandos para preencher:
Do While SgeFabricacao.Recordset.EOF = False
cboFabricacao.AddItem SgeFabricacao.Recordset.Fields("Numero_os_fabricacao")
SgeFabricacao.Recordset.MoveNext
Loop
Ok, ele pegou as Ordens que estão na tabela e jogou na combo box, o que não deu certo foi quando eu associei um novo index do combo box com esse comando
cbofabricacao.itemdata(cbofabricacao.newindex) = sgefabricacao.recordset.fields("Desenho")
ocorre um erro de overflow
|
|
|
|
|
|
|
|
Postada em 04/02/2011 12:14 hs
William,
realmente foi dificil entender suas perguntas. mas se for para dar focus nos texbox seria assim no evento keypress do texbox
if keyascii=13 then
textnome.setfocus 'define o focus ao dar enter para o textbox
endif
para prencher os texbox de outro jeito, vc adiciona um controle DATA e coloca a conexao em ele. e em cada texbox. os datasource= obejto DATA e datafield=NOME DO CAMPO.
BLZ.
|
|
|
|
|
|
Postada em 04/02/2011 13:23 hs
Acredito que acabei confundindo vocês. Bom o que eu estou fazendo é isso. Criei um formulário para cadastro de Laudos Técnicos, que possui uma tabela e os campos data source e data field ligado as campos do formulário, quanto ao cadastro do Laudo está OK. O problema é o seguinte, quando vou cadastrar um novo formulário eu digito o número da OS (Ordem de Serviço), está Ordem de Serviço está em outra tabela, digitando essa OS, eu preciso que ao cadastrar o Laudo, o sistema pegue os campos da Tabela OS, ou seja ele vai preencher os campos, desenho, cliente, produto e peça, e jogar no meu formulário de laudos. Segue alguém puder, pode me adicionar no msn williamlyllo@yahoo.com.br
Agradeço desde já.
|
|
|
|
|
|
Postada em 04/02/2011 15:24 hs
Cara desde que vc postou no forum eu falei pra vc fazer assim:
'aqui faz o select com o que vc digita no textbox e pesquisa na tabela que vc quiser
e se existe prenche os outros textbox.
qual o problema?
set registro=Cn.execute("select codigo, descricao, preco, quantidade from produtos where codigo="& TextCodproduto.Text &" ")
If not registro.EOF then
textdescrica.text=registro!descricao
textpreco.text=registro!preco
textqte.text=registro!quantidade.
end if
|
|
|
|
|
|
Postada em 04/02/2011 17:06 hs
Ok amigo, em DAO como ficaria?
|
|
|
|
Vugus
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 04/02/2011 17:44 hs
Dim Ws As Dao.Workspace Dim Db As DAO.Database
Dim Tb1 As DAO.Recordset 'Abrir
Set Ws = DBEngine.Workspaces(0)
Set Db = DBEngine.OpenDatabase(App.Path & "SeuBanco.MDB", False, False, ";pwd=SenhaSua") 'Se tiver senha
Set Tb1 = Db.OpenRecordset("SELECT * FROM SuaTabela where SeuCampo='" & Text1.Text & "' ", dbOpenDynaset)
'Dim Sql As String
'Sql = "SELECT * FROM SuaTabela where SeuCampo='" & Text1.Text & "'"
'Set Tb1 = Db.OpenRecordset(Sql)
If Not Tb1.EOF Then
Text2.Text = Tb1(1)
Text3.Text = Tb1(2)
Text4.Text = Tb1(3)
End If
Tb1.Close
Set Tb1 = Nothing
Db.Close |
|
|
|
