MSHFLEXGRID E TABELA ACCESS
NEREU1301,
Vamos fazer o seginte.
Poste aqui a estrutura da tabela e os dois formularios que você usa para a O.S. Dai nos podemos te ajuda melhor...
Se o projeto que te envei faz seu tipo, se é mais ou menos o resultado que você quer obter, me passa os dados que eu desenvolvo para você lhe envio.....
Vamos fazer o seginte.
Poste aqui a estrutura da tabela e os dois formularios que você usa para a O.S. Dai nos podemos te ajuda melhor...
Se o projeto que te envei faz seu tipo, se é mais ou menos o resultado que você quer obter, me passa os dados que eu desenvolvo para você lhe envio.....
ai danikull[ô]
desisti de fazer sozinho
tentei fazer baseado no teu progr que ta dez, mas parei no keydow e ai .....
acho que anexei corretamento o projeto ai atraz, tive que tirar umas fig bitmat pra caber no 1.05 mb do forum.
ele deve estar com bastante pequenos erros, mas o que importa agora a fazer os flex funcionar.
abraço
nereu
desisti de fazer sozinho
tentei fazer baseado no teu progr que ta dez, mas parei no keydow e ai .....
acho que anexei corretamento o projeto ai atraz, tive que tirar umas fig bitmat pra caber no 1.05 mb do forum.
ele deve estar com bastante pequenos erros, mas o que importa agora a fazer os flex funcionar.
abraço
nereu
Nereu: cara, o teu problema é usar o grid, salvar ele ou ambos?
ashkatchup
o problema agora é só fazer os keyup e keydow funcionar, porque assim como tá nao cria nova linha no grid
e tambem o enter que nao funciona direito no oficina1
gravar eu consigo e tambem consigo usar o grid legal
o problema agora é só fazer os keyup e keydow funcionar, porque assim como tá nao cria nova linha no grid
e tambem o enter que nao funciona direito no oficina1
gravar eu consigo e tambem consigo usar o grid legal
Cara, eu alterei as seguintes subs NO OFICINA1 . Testa ae:
Private Sub ProximaCelula()
[ô]
With GrdIncluiPec
If .COL < .Cols - 2 Then
.COL = .COL + 1
Else
.COL = 1
If .Row = .Rows - 1 Then
.Rows = .Rows + 1
.COL = 0
GrdIncluiPec_Click
End If
.Row = .Row + 1
End If
End With
[ô]
End Sub
Private Sub GrdIncluiPec_KeyDown(KeyCode As Integer, Shift As Integer)
[ô]
If KeyCode = vbKeyReturn Then
MostrarCelula
End If
[ô]
End Sub
cara, tá de gozaçao comigo???
ta resolvido de primeira, vou analizar pra ver onde eu errava
quero pedir pra voce e o danikull que guardem o arquivo do meu proj que provavelmente vou pedir socorro de novo e se quizerem opinar sobre ele, pra que eu possa deixar ele de um jeito mais profissional vou agradecer muito.
muito obrigado aos amigos e contem comigo pra alguma coisa que eu possa ajudar (se é que seja possÃvel ensinar professor)
Logo vou encerrar o tópico porque ficou muito longo e quendo eu precisar (certamente) abro novo tópico
valeu
abraços
nereu
ta resolvido de primeira, vou analizar pra ver onde eu errava
quero pedir pra voce e o danikull que guardem o arquivo do meu proj que provavelmente vou pedir socorro de novo e se quizerem opinar sobre ele, pra que eu possa deixar ele de um jeito mais profissional vou agradecer muito.
muito obrigado aos amigos e contem comigo pra alguma coisa que eu possa ajudar (se é que seja possÃvel ensinar professor)
Logo vou encerrar o tópico porque ficou muito longo e quendo eu precisar (certamente) abro novo tópico
valeu
abraços
nereu
De nada. Que bom que a dúvida foi resolvida.
é dificil opiniar sem conhecer a idéia inteira do projeto, mas irei revisá-lo uma hora dessas.
Abraço!.
é dificil opiniar sem conhecer a idéia inteira do projeto, mas irei revisá-lo uma hora dessas.
Abraço!.
danikull
to encerrando o topico mas antes quero te agradecer pelo emprestimo do seu programa
e cara se tu nao for contrario vou recomendar ele direto
abraço
nereu
to encerrando o topico mas antes quero te agradecer pelo emprestimo do seu programa
e cara se tu nao for contrario vou recomendar ele direto
abraço
nereu
Tópico encerrado , respostas não são mais permitidas