VB NAO MOSTRA OS VALORES DAS VARIAVEIS QUANDO PASS
O vb 6 não me mostra mais o valor das variaveis quando passo o mouse por cima das varaiveis nas linhas de código com o breakpoint....Isso só está acontecendo em um formulário o que pode ser por favor me ajudem...
Eu já instalei e desisntalei e utilizei em outro computador mas acontece a mesma coisa.
Eu já instalei e desisntalei e utilizei em outro computador mas acontece a mesma coisa.
Deve ser algum problema na sua codificação, isso aconteceu comigo quando eu tive um Recordset com um erro especifico.
Não pode ser pq acontece com a flexgrid e também com a recordset, mas o que vc fez de errado?
Meu Recordset estava correto, porem quando irei passar um valor do RS para o TXT estava sem o .Value no final
value eu não utillizo essa propriedade, e não é só na record set q isso acontece como já tinho dito anteriormente acontece em todas as propriedades
pelo jeito ninguém sabe
O teu form, por acaso, tem [Ô]DOEVENTS[Ô]?
não pq isso como isso pode influenciar...
O DOEVENTS é um comando maracutaia... ele talvez poderia atrapalhar. Por que você não posta o código deste form para podermos lhe ajudar?
aqui está:
é na parte vermelha onde acontece:
Dim minimo As Integer
Dim Letra As String
Dim Curso As String
Dim Imprime As Printer
Private Sub cboturma_Click()
Call Carrega_Lista
End Sub
Private Sub cmdVoltar_Click()
Frame2.Visible = True
frame1.Visible = False
mfgFaltas.Rows = 1
mfgAtrasos.Rows = 1
End Sub
Private Sub DtpAte_Change()
If DateValue(dtpDe.Value) > DateValue(DtpAte.Value) Then
MsgBox [Ô]A Data de inicio não pode ser maior que a data de termino de intervalo[Ô], vbInformation
dtpDe.Value = DtpAte.Value
Exit Sub
End If
End Sub
Private Sub dtpDe_Change()
If DateValue(dtpDe.Value) > DateValue(DtpAte.Value) Then
MsgBox [Ô]A Data de inicio não pode ser maior que a data de termino de intervalo[Ô], vbInformation
dtpDe.Value = DtpAte.Value
Exit Sub
End If
End Sub
Private Sub Form_Load()
[ô]Skin1.LoadSkin App.Path & [Ô]\BlackMesa.Skn[Ô]
[ô]Skin1.ApplySkin Me.hwnd
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2 - 1000
If VTurmas.State = adStateOpen Then VTurmas.Close
VTurmas.Open [Ô]turmas[Ô], Conexao, adOpenKeyset, adLockOptimistic
VTurmas.Close
VTurmas.Open [Ô]select min (ano) as minimo from turmas[Ô]
DtpAte.MinDate = [Ô]01/01/[Ô] & VTurmas!minimo
dtpDe.MinDate = [Ô]1/1/[Ô] & VTurmas!minimo
VTurmas.Close
VTurmas.Open [Ô]select max (ano) as minimo from turmas[Ô]
DtpAte.MaxDate = [Ô]31/12/[Ô] & VTurmas!minimo
dtpDe.MaxDate = [Ô]31/12/[Ô] & VTurmas!minimo
VTurmas.Close
VTurmas.Open [Ô]turmas[Ô], Conexao, adOpenKeyset, adLockOptimistic
VCursos.Open [Ô]Cursos[Ô], Conexao, adOpenKeyset, adLockOptimistic
VAlunos.Open [Ô]Alunos[Ô], Conexao, adOpenKeyset, adLockOptimistic
VDatas.Open [Ô]Datas[Ô], Conexao, adOpenKeyset, adLockOptimistic
VAtrasos.Open [Ô]Atrasos[Ô], Conexao, adOpenKeyset, adLockOptimistic
VFaltas.Open [Ô]Faltas[Ô], Conexao, adOpenKeyset, adLockOptimistic
Call carrega_Turmas
Call Carrega_Lista
Dim lRet1 As Long
lProcJanOrig2 = apiLerIdentJan(Me.hwnd, GWL_WNDPROC)
lRet1 = apiGrvIdentJan(Me.hwnd, GWL_WNDPROC, AddressOf lProcJan2)
End Sub
Private Sub carrega_Turmas()
If VCursos.State = adStateOpen Then VCursos.Close
If VTurmas.State = adStateOpen Then VTurmas.Close
VTurmas.Open [Ô]Turmas[Ô], Conexao, adOpenKeyset, adLockOptimistic
VCursos.Open [Ô]Cursos[Ô], Conexao, adOpenKeyset, adLockOptimistic
If VCursos.BOF = True Or VCursos.EOF = True Then
Exit Sub
End If
VCursos.MoveFirst
Do Until VCursos.EOF = True
Curso = VCursos!Nome
If VTurmas.State = adStateOpen Then VTurmas.Close
VTurmas.Open [Ô]select * from turmas where id_curso=[Ô] & VCursos!ID & [Ô][Ô]
If VTurmas.BOF = True Or VTurmas.EOF = True Then
VTurmas.Close
GoTo A
End If
Do Until VTurmas.EOF = True
Letra = VTurmas!Letra
cboturma.AddItem Curso + [Ô] -- ([Ô] + Letra + [Ô])[Ô]
cboturma.ItemData(cboturma.NewIndex) = VTurmas!ID
VTurmas.MoveNext
Cod_Turma = cboturma.ItemData(cboturma.NewIndex)
Loop
A:
VCursos.MoveNext
Loop
If Importando = True Then
cboturma.ListIndex = Item_Turma
Exit Sub
End If
cboturma.AddItem [Ô]Todas[Ô]
End Sub
Private Sub Form_Unload(Cancel As Integer)
If VTurmas.State = adStateOpen Then VTurmas.Close
If VCursos.State = adStateOpen Then VCursos.Close
If VAlunos.State = adStateOpen Then VAlunos.Close
If VDatas.State = adStateOpen Then VDatas.Close
If VFaltas.State = adStateOpen Then VFaltas.Close
If VAtrasos.State = adStateOpen Then VAtrasos.Close
End Sub
Private Sub Carrega_Lista()
If cboturma.ListIndex <> -1 Then
If cboturma.Text = [Ô]Todas[Ô] Then GoTo A
If VAlunos.State = adStateOpen Then VAlunos.Close
VAlunos.Open [Ô]select * from alunos where id_turma= [Ô] & cboturma.ItemData(cboturma.ListIndex) & [Ô][Ô]
GoTo A
End If
A:
If cboturma.Text = [Ô]Todas[Ô] Then
If VAlunos.State = adStateOpen Then VAlunos.Close
VAlunos.Open [Ô]Alunos[Ô], Conexao, adOpenKeyset, adLockOptimistic
End If
mfgAlunos.Rows = 1
mfgAlunos.Rows = 2
If VAlunos.State = adStateClosed Then VAlunos.Open
If VAlunos.RecordCount = 0 Then
Exit Sub
End If
VAlunos.MoveFirst
Do Until VAlunos.EOF = True
mfgAlunos.TextMatrix(mfgAlunos.Rows - 1, 0) = VAlunos!Nome
mfgAlunos.TextMatrix(mfgAlunos.Rows - 1, 2) = VAlunos!identificador
If VTurmas.State = adStateOpen Then VTurmas.Close
VTurmas.Open [Ô]select * from turmas where id = [Ô] & VAlunos!id_turma & [Ô][Ô]
Letra = VTurmas!Letra
If VCursos.State = adStateOpen Then VCursos.Close
VCursos.Open [Ô]select * from cursos where id= [Ô] & VTurmas!id_curso & [Ô][Ô]
Curso = VCursos!Nome
mfgAlunos.TextMatrix(mfgAlunos.Rows - 1, 1) = Curso + [Ô] -- ([Ô] + Letra + [Ô])[Ô]
mfgAlunos.TextMatrix(mfgAlunos.Rows - 1, 3) = VAlunos!N_chamadas
mfgAlunos.Rows = mfgAlunos.Rows + 1
VAlunos.MoveNext
Loop
mfgAlunos.Rows = mfgAlunos.Rows - 1
ZebraFlex mfgAlunos, &HC2FFDA
End Sub
Private Sub mfgAlunos_DblClick()
If mfgAlunos.TextMatrix(mfgAlunos.Row, 0) = [Ô][Ô] Then
Exit Sub
End If
If DateValue(dtpDe.Value) > DateValue(DtpAte.Value) Then
MsgBox [Ô]A Data Inicial Não pode ser maior do que a Data Final[Ô], vbInformation
Exit Sub
End If
Frame2.Visible = False
frame1.Visible = True
Label6.Caption = mfgAlunos.TextMatrix(mfgAlunos.Row, 0)
Label3.Caption = mfgAlunos.TextMatrix(mfgAlunos.Row, 1)
Call mostrar_falta
End Sub
Private Sub mfgAlunos_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Set mygrid = mfgAlunos
End Sub
[txt-color=#e80000]Private Sub mostrar_falta()
If VFaltas.State = adStateOpen Then VFaltas.Close
If VAtrasos.State = adStateOpen Then VAtrasos.Close
If VDatas.State = adStateOpen Then VDatas.Close
VDatas.Open [Ô]SELECT * FROM datas WHERE Data >= [Ô] & [Ô]#[Ô] & Format((dtpDe.Value), [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô] & [Ô] AND Data <= [Ô] & [Ô]#[Ô] & Format((DtpAte.Value), [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô] & [Ô]ORDER By Data[Ô]
[ô]
i = VDatas.RecordCount
mfgAtrasos.Rows = 2
mfgFaltas.Rows = 2
Do Until VDatas.EOF = True
If VFaltas.State = adStateOpen Then VFaltas.Close
If VAtrasos.State = adStateOpen Then VAtrasos.Close
VFaltas.Open [Ô]select * from faltas where id_data= [Ô] & VDatas!ID & [Ô] and id_aluno= [ô][Ô] & mfgAlunos.TextMatrix(mfgAlunos.Row, 2) & [Ô][ô][Ô]
VAtrasos.Open [Ô]select * from atrasos where id_data= [Ô] & VDatas!ID & [Ô] and id_aluno= [ô][Ô] & mfgAlunos.TextMatrix(mfgAlunos.Row, 2) & [Ô][ô][Ô]
If VFaltas.EOF = False Then
mfgFaltas.TextMatrix(mfgFaltas.Rows - 1, 0) = VDatas!data
mfgFaltas.Rows = mfgFaltas.Rows + 1
End If
If VAtrasos.EOF = False Then
mfgAtrasos.TextMatrix(mfgAtrasos.Rows - 1, 0) = VDatas!data
mfgAtrasos.Rows = mfgAtrasos.Rows + 1
End If
VDatas.MoveNext
Loop
ZebraFlex mfgFaltas, &HC2FFDA
ZebraFlex mfgAtrasos, &HC2FFDA
mfgAtrasos.Rows = mfgAtrasos.Rows - 1
mfgFaltas.Rows = mfgFaltas.Rows - 1
lblFaltas.Caption = mfgFaltas.Rows - 1
lblAtrasos.Caption = mfgAtrasos.Rows - 1
End Sub
[/txt-color]
é na parte vermelha onde acontece:
Dim minimo As Integer
Dim Letra As String
Dim Curso As String
Dim Imprime As Printer
Private Sub cboturma_Click()
Call Carrega_Lista
End Sub
Private Sub cmdVoltar_Click()
Frame2.Visible = True
frame1.Visible = False
mfgFaltas.Rows = 1
mfgAtrasos.Rows = 1
End Sub
Private Sub DtpAte_Change()
If DateValue(dtpDe.Value) > DateValue(DtpAte.Value) Then
MsgBox [Ô]A Data de inicio não pode ser maior que a data de termino de intervalo[Ô], vbInformation
dtpDe.Value = DtpAte.Value
Exit Sub
End If
End Sub
Private Sub dtpDe_Change()
If DateValue(dtpDe.Value) > DateValue(DtpAte.Value) Then
MsgBox [Ô]A Data de inicio não pode ser maior que a data de termino de intervalo[Ô], vbInformation
dtpDe.Value = DtpAte.Value
Exit Sub
End If
End Sub
Private Sub Form_Load()
[ô]Skin1.LoadSkin App.Path & [Ô]\BlackMesa.Skn[Ô]
[ô]Skin1.ApplySkin Me.hwnd
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2 - 1000
If VTurmas.State = adStateOpen Then VTurmas.Close
VTurmas.Open [Ô]turmas[Ô], Conexao, adOpenKeyset, adLockOptimistic
VTurmas.Close
VTurmas.Open [Ô]select min (ano) as minimo from turmas[Ô]
DtpAte.MinDate = [Ô]01/01/[Ô] & VTurmas!minimo
dtpDe.MinDate = [Ô]1/1/[Ô] & VTurmas!minimo
VTurmas.Close
VTurmas.Open [Ô]select max (ano) as minimo from turmas[Ô]
DtpAte.MaxDate = [Ô]31/12/[Ô] & VTurmas!minimo
dtpDe.MaxDate = [Ô]31/12/[Ô] & VTurmas!minimo
VTurmas.Close
VTurmas.Open [Ô]turmas[Ô], Conexao, adOpenKeyset, adLockOptimistic
VCursos.Open [Ô]Cursos[Ô], Conexao, adOpenKeyset, adLockOptimistic
VAlunos.Open [Ô]Alunos[Ô], Conexao, adOpenKeyset, adLockOptimistic
VDatas.Open [Ô]Datas[Ô], Conexao, adOpenKeyset, adLockOptimistic
VAtrasos.Open [Ô]Atrasos[Ô], Conexao, adOpenKeyset, adLockOptimistic
VFaltas.Open [Ô]Faltas[Ô], Conexao, adOpenKeyset, adLockOptimistic
Call carrega_Turmas
Call Carrega_Lista
Dim lRet1 As Long
lProcJanOrig2 = apiLerIdentJan(Me.hwnd, GWL_WNDPROC)
lRet1 = apiGrvIdentJan(Me.hwnd, GWL_WNDPROC, AddressOf lProcJan2)
End Sub
Private Sub carrega_Turmas()
If VCursos.State = adStateOpen Then VCursos.Close
If VTurmas.State = adStateOpen Then VTurmas.Close
VTurmas.Open [Ô]Turmas[Ô], Conexao, adOpenKeyset, adLockOptimistic
VCursos.Open [Ô]Cursos[Ô], Conexao, adOpenKeyset, adLockOptimistic
If VCursos.BOF = True Or VCursos.EOF = True Then
Exit Sub
End If
VCursos.MoveFirst
Do Until VCursos.EOF = True
Curso = VCursos!Nome
If VTurmas.State = adStateOpen Then VTurmas.Close
VTurmas.Open [Ô]select * from turmas where id_curso=[Ô] & VCursos!ID & [Ô][Ô]
If VTurmas.BOF = True Or VTurmas.EOF = True Then
VTurmas.Close
GoTo A
End If
Do Until VTurmas.EOF = True
Letra = VTurmas!Letra
cboturma.AddItem Curso + [Ô] -- ([Ô] + Letra + [Ô])[Ô]
cboturma.ItemData(cboturma.NewIndex) = VTurmas!ID
VTurmas.MoveNext
Cod_Turma = cboturma.ItemData(cboturma.NewIndex)
Loop
A:
VCursos.MoveNext
Loop
If Importando = True Then
cboturma.ListIndex = Item_Turma
Exit Sub
End If
cboturma.AddItem [Ô]Todas[Ô]
End Sub
Private Sub Form_Unload(Cancel As Integer)
If VTurmas.State = adStateOpen Then VTurmas.Close
If VCursos.State = adStateOpen Then VCursos.Close
If VAlunos.State = adStateOpen Then VAlunos.Close
If VDatas.State = adStateOpen Then VDatas.Close
If VFaltas.State = adStateOpen Then VFaltas.Close
If VAtrasos.State = adStateOpen Then VAtrasos.Close
End Sub
Private Sub Carrega_Lista()
If cboturma.ListIndex <> -1 Then
If cboturma.Text = [Ô]Todas[Ô] Then GoTo A
If VAlunos.State = adStateOpen Then VAlunos.Close
VAlunos.Open [Ô]select * from alunos where id_turma= [Ô] & cboturma.ItemData(cboturma.ListIndex) & [Ô][Ô]
GoTo A
End If
A:
If cboturma.Text = [Ô]Todas[Ô] Then
If VAlunos.State = adStateOpen Then VAlunos.Close
VAlunos.Open [Ô]Alunos[Ô], Conexao, adOpenKeyset, adLockOptimistic
End If
mfgAlunos.Rows = 1
mfgAlunos.Rows = 2
If VAlunos.State = adStateClosed Then VAlunos.Open
If VAlunos.RecordCount = 0 Then
Exit Sub
End If
VAlunos.MoveFirst
Do Until VAlunos.EOF = True
mfgAlunos.TextMatrix(mfgAlunos.Rows - 1, 0) = VAlunos!Nome
mfgAlunos.TextMatrix(mfgAlunos.Rows - 1, 2) = VAlunos!identificador
If VTurmas.State = adStateOpen Then VTurmas.Close
VTurmas.Open [Ô]select * from turmas where id = [Ô] & VAlunos!id_turma & [Ô][Ô]
Letra = VTurmas!Letra
If VCursos.State = adStateOpen Then VCursos.Close
VCursos.Open [Ô]select * from cursos where id= [Ô] & VTurmas!id_curso & [Ô][Ô]
Curso = VCursos!Nome
mfgAlunos.TextMatrix(mfgAlunos.Rows - 1, 1) = Curso + [Ô] -- ([Ô] + Letra + [Ô])[Ô]
mfgAlunos.TextMatrix(mfgAlunos.Rows - 1, 3) = VAlunos!N_chamadas
mfgAlunos.Rows = mfgAlunos.Rows + 1
VAlunos.MoveNext
Loop
mfgAlunos.Rows = mfgAlunos.Rows - 1
ZebraFlex mfgAlunos, &HC2FFDA
End Sub
Private Sub mfgAlunos_DblClick()
If mfgAlunos.TextMatrix(mfgAlunos.Row, 0) = [Ô][Ô] Then
Exit Sub
End If
If DateValue(dtpDe.Value) > DateValue(DtpAte.Value) Then
MsgBox [Ô]A Data Inicial Não pode ser maior do que a Data Final[Ô], vbInformation
Exit Sub
End If
Frame2.Visible = False
frame1.Visible = True
Label6.Caption = mfgAlunos.TextMatrix(mfgAlunos.Row, 0)
Label3.Caption = mfgAlunos.TextMatrix(mfgAlunos.Row, 1)
Call mostrar_falta
End Sub
Private Sub mfgAlunos_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Set mygrid = mfgAlunos
End Sub
[txt-color=#e80000]Private Sub mostrar_falta()
If VFaltas.State = adStateOpen Then VFaltas.Close
If VAtrasos.State = adStateOpen Then VAtrasos.Close
If VDatas.State = adStateOpen Then VDatas.Close
VDatas.Open [Ô]SELECT * FROM datas WHERE Data >= [Ô] & [Ô]#[Ô] & Format((dtpDe.Value), [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô] & [Ô] AND Data <= [Ô] & [Ô]#[Ô] & Format((DtpAte.Value), [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô] & [Ô]ORDER By Data[Ô]
[ô]
i = VDatas.RecordCount
mfgAtrasos.Rows = 2
mfgFaltas.Rows = 2
Do Until VDatas.EOF = True
If VFaltas.State = adStateOpen Then VFaltas.Close
If VAtrasos.State = adStateOpen Then VAtrasos.Close
VFaltas.Open [Ô]select * from faltas where id_data= [Ô] & VDatas!ID & [Ô] and id_aluno= [ô][Ô] & mfgAlunos.TextMatrix(mfgAlunos.Row, 2) & [Ô][ô][Ô]
VAtrasos.Open [Ô]select * from atrasos where id_data= [Ô] & VDatas!ID & [Ô] and id_aluno= [ô][Ô] & mfgAlunos.TextMatrix(mfgAlunos.Row, 2) & [Ô][ô][Ô]
If VFaltas.EOF = False Then
mfgFaltas.TextMatrix(mfgFaltas.Rows - 1, 0) = VDatas!data
mfgFaltas.Rows = mfgFaltas.Rows + 1
End If
If VAtrasos.EOF = False Then
mfgAtrasos.TextMatrix(mfgAtrasos.Rows - 1, 0) = VDatas!data
mfgAtrasos.Rows = mfgAtrasos.Rows + 1
End If
VDatas.MoveNext
Loop
ZebraFlex mfgFaltas, &HC2FFDA
ZebraFlex mfgAtrasos, &HC2FFDA
mfgAtrasos.Rows = mfgAtrasos.Rows - 1
mfgFaltas.Rows = mfgFaltas.Rows - 1
lblFaltas.Caption = mfgFaltas.Rows - 1
lblAtrasos.Caption = mfgAtrasos.Rows - 1
End Sub
[/txt-color]
Tópico encerrado , respostas não são mais permitidas