URGENTE COMANDO MID
Gente to com o seguinte pepino eu tenho uma rotique que utilizo o comando MID ate ai tudo bem o pepino e o sequinte hoje pela manha minha maquina estourou o HD e tive que formatar bom fis tudo certinho instalei tudo
o pior e que a gora esse sistema que estou fazendo da um Erro no comando MID (antes de formatar estava tudo certo) e quando da o erro o VB pede para fazer uma referencia para o projeto mais qual referencia tenho que fazer?
gente eu ja reinstalei o VB 2 vezes e ja atualizei para SPK6
o que eu faço o MID, Lefth e outros não funciona
Help - me por favor
tenho que terminar este sistema
o pior e que a gora esse sistema que estou fazendo da um Erro no comando MID (antes de formatar estava tudo certo) e quando da o erro o VB pede para fazer uma referencia para o projeto mais qual referencia tenho que fazer?
gente eu ja reinstalei o VB 2 vezes e ja atualizei para SPK6
o que eu faço o MID, Lefth e outros não funciona
Help - me por favor
tenho que terminar este sistema
qual mensagem de erro que está dando?
Até mais...
Até mais...
aparece a mensagem:
CAN'T FIND PROJETC OR LIBRARY
e quando aperto o botão OK abre a janela de referencias como se eu tivesse que faser alguma referencia para o projeto
CAN'T FIND PROJETC OR LIBRARY
e quando aperto o botão OK abre a janela de referencias como se eu tivesse que faser alguma referencia para o projeto
Talvez vc esteja fazendo MID de um objeto OCX, ou outro objeto que não é padão do VB e ~seja necessário referenciá-lo ou registrá-lo, ou sei lá heheeh.
. Me parece que seu projeto não está "enxergando" esse objeto que o MID está utilizando."
Vc está fazendo um MID em um maskedit? Caso afirmativo, ele está visÃvel na janela de objetos?? Caso negativo, adicione-o: Menu Project-» Components...
Passe o código para facilitar...
Boa sorte....
Michel
. Me parece que seu projeto não está "enxergando" esse objeto que o MID está utilizando."Vc está fazendo um MID em um maskedit? Caso afirmativo, ele está visÃvel na janela de objetos?? Caso negativo, adicione-o: Menu Project-» Components...
Passe o código para facilitar...
Boa sorte....
Michel
este e o codigo serve para completar a digitação em um combo
Private Sub CMB_Clinico_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
Static NoSelectText As String
Dim i As Long
With CMB_Clinico(Index)
If KeyCode = vbKeyUp Then Exit Sub
If KeyCode = vbKeyDown Then Exit Sub
If KeyCode = vbKeyLeft Then Exit Sub
If KeyCode = vbKeyRight Then Exit Sub
If KeyCode <> vbKeyBack Then
NoSelectText = Mid(.Text, 1, Len(.Text) - .SelLength)
Else
If NoSelectText <> "" Then
NoSelectText = Mid(NoSelectText, 1, Len(NoSelectText) - 1)
End If
End If
For i = 0 To .ListCount - 1
If UCase(NoSelectText) = UCase(Mid(.List(i), 1, Len(NoSelectText))) Then
.ListIndex = i
Exit For
End If
Next
.SelStart = Len(NoSelectText)
.SelLength = Len(.Text)
End With
End Sub
Private Sub CMB_Clinico_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
Static NoSelectText As String
Dim i As Long
With CMB_Clinico(Index)
If KeyCode = vbKeyUp Then Exit Sub
If KeyCode = vbKeyDown Then Exit Sub
If KeyCode = vbKeyLeft Then Exit Sub
If KeyCode = vbKeyRight Then Exit Sub
If KeyCode <> vbKeyBack Then
NoSelectText = Mid(.Text, 1, Len(.Text) - .SelLength)
Else
If NoSelectText <> "" Then
NoSelectText = Mid(NoSelectText, 1, Len(NoSelectText) - 1)
End If
End If
For i = 0 To .ListCount - 1
If UCase(NoSelectText) = UCase(Mid(.List(i), 1, Len(NoSelectText))) Then
.ListIndex = i
Exit For
End If
Next
.SelStart = Len(NoSelectText)
.SelLength = Len(.Text)
End With
End Sub
Amigo, tente usar o prefixo antes de Mid
Exemplo
Ao invés de MID
Use
VBA.MID
Exemplo:
NoSelectText = VBA.Mid(.Text, 1, Len(.Text) - .SelLength)
VBA pertence ao arquivo MSVBVM60.DLL, a chance deste arquivo estar faltando em sua máquina é quase nula.
Até logo
Exemplo
Ao invés de MID
Use
VBA.MID
Exemplo:
NoSelectText = VBA.Mid(.Text, 1, Len(.Text) - .SelLength)
VBA pertence ao arquivo MSVBVM60.DLL, a chance deste arquivo estar faltando em sua máquina é quase nula.
Até logo
VC usa VB 6?
Se sim, não está reconhecendo sua Combo.
no meu VB6, o KeyUp da combo não tem o parametro Index As Integer
Observe:
Private Sub Combo_KeyUp(KeyCode As Integer, Shift As Integer)
End Sub
Não é no MID o erro e sim na sua combo.
Verifique sua combo.
Espero ter ajudado ao menos um pouco.
Boa sorte
Se sim, não está reconhecendo sua Combo.
no meu VB6, o KeyUp da combo não tem o parametro Index As Integer
Observe:
Private Sub Combo_KeyUp(KeyCode As Integer, Shift As Integer)
End Sub
Não é no MID o erro e sim na sua combo.
Verifique sua combo.
Espero ter ajudado ao menos um pouco.
Boa sorte
Ops, desconsidere a postagem acima. No meu deu certinho, havia esquecido do array....hehe.
bom realmente se eu colocar o "VBA" antes do comando MID da certo ficando assim "VBA.MID" ai funciona
mais como que eu posso faser para que funcione normalmente tipo só o mid
e que tem muitas rotinas com "MID, LEN" e ambos so funcionam com o VBA
agradeço qualquer ajuda
mais como que eu posso faser para que funcione normalmente tipo só o mid
e que tem muitas rotinas com "MID, LEN" e ambos so funcionam com o VBA
agradeço qualquer ajuda
São mistérios do VB...
Depois que passei por algo semelhante, sempre uso VBA.Mid, VBA.Left, VBA.Right, etc...
Caso ninguém lhe dê uma resposta satisfatória, o jeito é fazer uma substituição em massa...
Ctrl+F / Substituir
MID
por
VBA.MID
Até logo...
Depois que passei por algo semelhante, sempre uso VBA.Mid, VBA.Left, VBA.Right, etc...
Caso ninguém lhe dê uma resposta satisfatória, o jeito é fazer uma substituição em massa...
Ctrl+F / Substituir
MID
por
VBA.MID
Até logo...
Isso acontece comigo de vez enquando, é bug do VB.
Se liga, pega todos os forms, todas as classe e etc. Abre um novo projeto no Vb, adiciona as referencias necessárias, adiciona os arquivos do projeto antigo e configura como estava. Isso costuma ser alguma coisa no VBP, acontece muito depois de remover uma referencia ou retirar um projeto de um VBG.
Se liga, pega todos os forms, todas as classe e etc. Abre um novo projeto no Vb, adiciona as referencias necessárias, adiciona os arquivos do projeto antigo e configura como estava. Isso costuma ser alguma coisa no VBP, acontece muito depois de remover uma referencia ou retirar um projeto de um VBG.
Tópico encerrado , respostas não são mais permitidas