Filedialog "error en el método"
Que tal soy nuevo en esto y me gustaría me pudieras ayudar con este código que me tiene loco mira se basa en el código de la base de neptuno de microsoft lo que pasa es que con el botón de agregar o cambiar imagen me vota un error ""error en el método "filedialog" de objeto_aplication" espero me puedas echar la mano el código es el siguiente:
Sub getFileName()
' Muestre el cuadro de diálogo Abrir archivo de Office para elegir un nombre de archivo
' para el registro del empleado actual. Si el usuario selecciona un archivo,
' muéstrelo en el control de imagen.
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione la imagen del empleado"
.Filters.Add "All Files", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![rutafoto].Visible = True
Me![rutafoto].SetFocus
Me![rutafoto].Text = fileName
Me![NOMBRE].SetFocus
Me![rutafoto].Visible = False
End If
End With
End Sub
Please sacame de este tormento
Sub getFileName()
' Muestre el cuadro de diálogo Abrir archivo de Office para elegir un nombre de archivo
' para el registro del empleado actual. Si el usuario selecciona un archivo,
' muéstrelo en el control de imagen.
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione la imagen del empleado"
.Filters.Add "All Files", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![rutafoto].Visible = True
Me![rutafoto].SetFocus
Me![rutafoto].Text = fileName
Me![NOMBRE].SetFocus
Me![rutafoto].Visible = False
End If
End With
End Sub
Please sacame de este tormento
1 Respuesta
Respuesta de luis45ccs
1
Para que eso funcione tienes que tener en referencias (código vb) activado microsoft office 12 o 11 Object Library
Verifica
Verifica
No entiendo la respuesta que me das me podrías explicar donde activar esto que me mencionas si es necesario te mando todo el código en vb please echame la mano solo me falta esto.
Ponte en código
En el menu herramientas, busca referencias
Y entre todas busca y marca microsoft office 11 Object Library para 2003
O la 12 si tienes office 2007
En el menu herramientas, busca referencias
Y entre todas busca y marca microsoft office 11 Object Library para 2003
O la 12 si tienes office 2007
Que tal de maravilla tu respuesta mucha gracia sluis eres a todo dar me hiciste un gran paro; pero nuevamente abusando de tu sabiduría tengo este problema tengo un formulario en el que he insertado campos ya estaba bien solamente que hice modificaciones en la tabla y anexe los nuevos campos al formulario pero a la hora de ponerlo en vista diseño aprieto la tecla de tab y salta se podría decir cronológicamente pero los nuevos campos los deja hasta el final que se puede hacer para que al presionar tab siga la cronología, gracias espero recibir nuevamente tu ayuda luis.
Utiliza el orden de los campo para hacer esp
en el form en diseño usa orden de tabulación
en el form en diseño usa orden de tabulación
Eres genial luisillo oye ya para rematar como puedo configurar el botón de comando imprimir en un informe, para que este en lugar de mandar a imprimir a la impresora predeterminada, me abra el cuadro de impresoras disponibles, gracias luis no me cansare de agradecerte.
Muchas gracias luis he encontrado la slucion a esta ultima pregunta te agradezco me hayas ayudado eres muy conocedor del tema muchas gracias, te felicito experto.
dieselboy
dieselboy
