RUN TIME ERROR 76
Olá amigo,
Qual o caminho certo para as fotos?
Esta dando erro no comando imprimir.
Run-time error 76
Path not found: C:\Users\Projeto\Fotos\
[ô]Inicio
Private Sub CmdImprimir_Click()
Dim rsFicha As ADODB.Recordset
Set rsFicha = New Recordset
rsFicha.Open [Ô]Select * FROM TabDados Where CodiCont=[Ô] & LblCodi.Caption, Cnn, adOpenStatic, adLockReadOnly
If rsFicha.RecordCount > 0 Then
Set DataReport1.DataSource = rsFicha
With DataReport1
[ô]Erro 76
Set DataReport1.Sections([Ô]Section1[Ô]).Controls([Ô]Image1[Ô]).Picture = LoadPicture(App.Path & [Ô]\Fotos\[Ô] & TxtPath.Text)
Set DataReport1.DataSource = rsFicha
.Sections([Ô]Section1[Ô]).Controls([Ô]txtNome[Ô]).DataField = [Ô]NomeCont[Ô]
.Show
End With
End If
End Sub
Grato,
Qual o caminho certo para as fotos?
Esta dando erro no comando imprimir.
Run-time error 76
Path not found: C:\Users\Projeto\Fotos\
[ô]Inicio
Private Sub CmdImprimir_Click()
Dim rsFicha As ADODB.Recordset
Set rsFicha = New Recordset
rsFicha.Open [Ô]Select * FROM TabDados Where CodiCont=[Ô] & LblCodi.Caption, Cnn, adOpenStatic, adLockReadOnly
If rsFicha.RecordCount > 0 Then
Set DataReport1.DataSource = rsFicha
With DataReport1
[ô]Erro 76
Set DataReport1.Sections([Ô]Section1[Ô]).Controls([Ô]Image1[Ô]).Picture = LoadPicture(App.Path & [Ô]\Fotos\[Ô] & TxtPath.Text)
Set DataReport1.DataSource = rsFicha
.Sections([Ô]Section1[Ô]).Controls([Ô]txtNome[Ô]).DataField = [Ô]NomeCont[Ô]
.Show
End With
End If
End Sub
Grato,
O arquivo com o nome escrito em TxtPath existe na pasta?
Só completando o Kerplunk:
Repare o erro que você teve:
Run-time error 76
Path not found: C:\Users\Projeto\Fotos\
Agora olhe a linha que está dando erro, e dê uma revisada maior na parte da concatenação dentro do LoadPicture:
Set DataReport1.Sections([Ô]Section1[Ô]).Controls([Ô]Image1[Ô]).Picture = LoadPicture(App.Path & [Ô]\Fotos\[Ô] & TxtPath.Text)
Pra você conseguir aquela mensagem de erro, só significa uma coisa: [txt-color=#e80000]Seu textbox TxtPath está vazio[/txt-color]... quando deveria ter o nome de uma foto. Tente digitar o nome de
algum arquivo que está dentro dessa pasta (não esqueça do formato, exemplo: Novinha.jpg)
Repare o erro que você teve:
Run-time error 76
Path not found: C:\Users\Projeto\Fotos\
Agora olhe a linha que está dando erro, e dê uma revisada maior na parte da concatenação dentro do LoadPicture:
Set DataReport1.Sections([Ô]Section1[Ô]).Controls([Ô]Image1[Ô]).Picture = LoadPicture(App.Path & [Ô]\Fotos\[Ô] & TxtPath.Text)
Pra você conseguir aquela mensagem de erro, só significa uma coisa: [txt-color=#e80000]Seu textbox TxtPath está vazio[/txt-color]... quando deveria ter o nome de uma foto. Tente digitar o nome de
algum arquivo que está dentro dessa pasta (não esqueça do formato, exemplo: Novinha.jpg)
Como sugestão, é melhor não deixar o usuario digitar nada no campo txtPath. Usa o commondialog e o retorno dele voce coloca no textbox.
PS: Exemplo interessante em DS2T kkkkkkkkk
PS: Exemplo interessante em DS2T kkkkkkkkk
Tópico encerrado , respostas não são mais permitidas