PREGUNTAS POR CONTESTAR - Access

 Hay un total de 73 Preguntas.<<  >> 

    Pregunta:  65851 - ERROR DE ACCCES
Autor:  alex valadez
buen dia

a que se refiere el error de windos error : 3024-FROM_LOAD_FROMCAL PROCESAR .
este error salio despues de barrar una tabla en la bd de datos llamada ventas, solo se borro esa tabla ya que se eestaba depurando ya que las operaciones del sistema estaban bastante lenta

gracias
Contestar

    Pregunta:  65867 - DUPLICAR DB
Autor:  Israel
Tengo un problema que no e podido resolver y quería escuchar algún comentario tuyo sobre esto.
Tengo una DB de Acces 2007 compartida en red. El problema es que cuando alguien de otra máquina modifica mi BD Acces y lo quiere guardar se crea otra DB igual que la original con los cambios realizados. Yo necesito que esto no pase, que se grave en la DB original (Que no agá duplicaciones) Gracias
Contestar

    Pregunta:  65907 - TECLA FN (NOTEBOOK)
Autor:  jpascual
Estoy haciendo una pequeña aplicacion en access y necesito utilizar la combinacion de teclas Fn + F3 , para activar el bluetooth del notebook para que pueda imprimir en una impresora portatil. El problema es que desconozco el codigo de la tecla de los portatiles Fn. Si alguien la sabe se lo agradeceria. Un Saludo Javier
Contestar

    Pregunta:  66009 - BUSQUEDA CON Y SIN ACENTOS
Autor:  rafa
En mi formulario a partir de un cuadro combinado con nombre "cboCampo" selecciono un campo donde buscar y escribo en un textbox de nombre "txtBusca" un valor perteneciente a ese campo.
Finalmente tengo un botón de nombre "cmdBusca" que al hacer clic me busca filtrado lo que he escrito en el texbox.
El problema es que me gustaría que me buscara tanto los valores con acento como los que no lo llevan es decir que si escribo en el textbox "maria" al pulsar el botón "cmdbusca" me encontrara "maría" y "maria". Indico el código de búsqueda.
Querría incorporar el codigo necesario para buscar con y sin acentos. Gracias por la ayuda

Private Sub cmdBusca_Click()
'Definimos las variables
Dim vCamp as String, vText as String
Dim miFiltro as String
'Cogemos los valores seleccionados
vCamp = Nz(Me.cboCampo.Value,"")
vText = Nz(Me.txtBusca.Value,"")
'Si no hay valor en el combo o en el textbox sale del proceso
If vCamp = "" Or vText = "" Then Exit Sub
'Creamos el filtro
miFiltro = "[" & vCamp & "] LIKE '*" & vText & "*'"
'Aplicamos el filtro al formulario
me.Filter = miFiltro
'Activamos el filtro
me.FilterOn = True
End Sub
Contestar

    Pregunta:  66034 - MOSTRAR ADO RECORDSET EN UN FORM
Autor:  alex argal
Hola buenas. Es la primera vez que pregunto.Lo primero felicitaros por la web, una gran herramienta. Bueno al grano. Estoy trabajando en una mdb de access.Estoy crendo un ado recordset en memoria,no depende de ninguna query ni tabla, con unos datos de una select que consulto a traves de un dao recordset. Si se cumplen unas condiciones agrego los registros del dao recordset a mi ado recordset. Luego los quiero poner como origen del recordset de un formulario.
Set me.recordset=ADOrst
el tema es que el form no me pinta los registros pero si me salen todas las lineas necesarias. es decir me aparecen 20 lineas en blanco pero ningun dato. En cambio se recorro el ADOrst y lo muestro en un listview me aparece sin problemas.Siu lo exporto a excell con copyFromRecordset me los saca tambien.Me da que el fallo puede estar en el form pero no se que puede ser depues de probar muchisimo
¿No se que le pasa al form? Una ayuda por favor es urgente.
Contestar

    Pregunta:  66440 - PROBLEMAS CON GOBJRIBBON.INVALIDATECONTROL
Autor:  Martin Chiappe
Hola gente!! Les comento, estoy terminando mi BD a la cual le he puesto una Cinta "rbprincipal" y cree otra "RibbonFRMNaveG" con un "comboBox" especialmente para uno de los Form en particular.
He puesto ambas cintas en una Tabla "tblRibbons" y ambas se cargan perfectamente, pero al abrir el formulario en cuestion, todos los comandos de la cinta "RibbonFRMNaveG" responden excepto el "ComboBox" que no carga los control.id del form...Por mi escaso conomiento en esto, creira que tengo problemas en el "Callback" generado por el "gobjRibbon".
Tengo dos modulos para ambas cintas, uno que controla la cinta principal y el otro tiene los controles para el navegador.
Si alguien puede darme una mano le agradeceré muchisimo!!!
Os dejo aqui debajo ambos modulos!
Option Compare Database

Modulo "Navegador"

Private Declare Function JJJTExisteFile Lib "shlwapi.dll" Alias "PathFileExistsA" _
(ByVal pszPath As String) As Boolean
Public frmRibbon As Form
Public gobjRibbon As IRibbonUI
Public bolEnabled As Boolean

Sub CallbackOnLoad(ribbon As IRibbonUI)
Set gobjRibbon = ribbon
End Sub
Sub CallbackCBGetItemLabel(control As IRibbonControl, _
index As Integer, _
ByRef label)
Select Case control.id
Case "myComboBox"
label = DLookup("Campo", "UsysTemp", "Numero=" & index)
End Select
End Sub
Sub CreaTablaCombo()
Dim sql As String
Dim lngNr As Integer
Dim Ctl As control
JJJT_Crea_Tabla "UsysTemp", "Numero", "Campo"
For Each Ctl In frmRibbon.Controls
If TypeOf Ctl Is TextBox Or TypeOf Ctl Is ComboBox Then
lngNr = lngNr + Ctl.Controls.count
sql = "INSERT INTO UsysTemp(Numero,Campo) VALUES('" & (lngNr - 1) & "' ,'" & Ctl.Name & "')"
DoCmd.SetWarnings False
DoCmd.RunSQL sql
DoCmd.SetWarnings True
End If
Next
End Sub

Sub CallbackCBGetItemCount(control As IRibbonControl, _
ByRef count)
Select Case control.id
Case "myComboBox"
count = DCount("*", "UsysTemp")
End Select
End Sub
Sub MyComboBoxCallbackOnChange(control As IRibbonControl, _
strText As String)
Select Case control.id
Case "myComboBox"
frmRibbon(strText).SetFocus
DoCmd.RunCommand acCmdFilterMenu
End Select
End Sub

Sub CallbackCBGetText(control As IRibbonControl, _
ByRef strText)
Select Case control.id
Case "myComboBox"
strText = vbNullString
End Select
End Sub

Sub GetEnabled(control As IRibbonControl, ByRef enabled)
Select Case control.id
Case "myComboBox"
enabled = bolEnabled
gobjRibbon.InvalidateControl "myComboBox"
End Select
End Sub

Modulo "Rbprincipal"
Option Compare Database
Public objRibbon As IRibbonUI

Public Sub fncRibbon(ribbon As IRibbonUI)
On Error Resume Next
Set objRibbon = ribbon
End Sub

Public Function fncCargaRibbon()
Dim rsRib As DAO.Recordset
Dim strSQL As String
On Error GoTo trataerro
strSQL = "SELECT * FROM tblRibbons WHERE versao=1214 or versao=" & Val(Application.Version)
Set rsRib = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
Do While Not rsRib.EOF
Application.LoadCustomUI rsRib!RibbonName, rsRib!RibbonXml
rsRib.MoveNext
Loop
rsRib.Close
Set rsRib = Nothing
sair:
Exit Function
trataerro:
Select Case Err.Number
Case 3078
MsgBox "Tabla no encontrada", vbInformation, "Aviso"
Case Else
MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Aviso", _
Err.HelpFile, Err.HelpContext
End Select
Resume salir:
End Function

Public Sub fncOnAction(control As IRibbonControl)
On Error GoTo trataerro
Select Case control.id
Case "btnClose"
DoCmd.Close acForm, frmRibbon.Name
Case "btAsignaciones0000"
DoCmd.OpenForm "frmAsignados"
Case "btExpedientesMRE0000"
DoCmd.OpenForm "FPrincipal"
Case "btBuscarPorFiltroEstandar"
DoCmd.OpenForm "frmFiltro"
Case "btFiltrarProFecha"
DoCmd.OpenForm frmCapturaPorFechas
Case "btAlmanaque"
DoCmd.OpenForm "frmCalendario"
Case "btCalculadora"
Call Shell("calc.exe", vbNormalFocus)
Case "btlogoff"
Call fncLogoff
Case "btbackup"
DoCmd.OpenForm "frmBackup"
Case Else
MsgBox "Ha Clickeado en el boton " & control.id, vbInformation, "Aviso"
End Select
salir:
Exit Sub
trataerro:
MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Aviso", Err.HelpFile, Err.HelpContext
Resume salir:
End Sub

Public Sub fncGetVisible(control As IRibbonControl, ByRef visible)
On Error GoTo trataerro
If nlogoff = False Then Exit Sub
Select Case control.id
Case "grSeguridad"
If login.id = 1 Then
visible = True
Else
visible = False
End If
Case "grExpedientes"
If DLookup("bloqueada", "tblPermisosUsuarios", "idfuncion = 1 AND IdUsuario = " & login.id) = -1 Then j = j + 1
If DLookup("bloqueada", "tblPermisosUsuarios", "idfuncion = 2 AND IdUsuario = " & login.id) = -1 Then j = j + 1
If j = 2 Then
visible = False
Else
visible = True
End If
j = 0
Case "guiaPrincipal"
visible = True
Case Else
If DLookup("bloqueada", "tblPermisosUsuarios", "idfuncion = " & CLng(IIf(control.Tag = "", 0, control.Tag)) & " AND IdUsuario = " & login.id) = -1 Then
visible = False
Else
visible = True
End If
End Select

salir:
Exit Sub
trataerro:
MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Aviso", Err.HelpFile, Err.HelpContext
Resume sair:
End Sub

Public Sub fncGetEnabled(control As IRibbonControl, ByRef enabled)
On erro GoTo trataerro

If nlogoff = False Then Exit Sub

Select Case control.Tag
Case Else
If DLookup("bloqueada", "tblPermisosUsuarios", "idfuncion = " & CLng(IIf(control.Tag = "", 0, control.Tag)) & " AND IdUsuario = " & login.id) = -1 Then
enabled = False
Else
enabled = True
End If
End Select
salir:
Exit Sub
trataerro:
MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Aviso", Err.HelpFile, Err.HelpContext
Resume salir:
End Sub
Contestar

    Pregunta:  66501 - CONVERTIR VARIAS COLUMNAS A FILAS
Autor:  Carlos Ibañez Burgal
Buenos días colegas,
Tengo una pequeña base de datos en la que deseo en una de sus tablas convertir las columnas en filas para mostrarla en un informe, le describo más menos cual es la cuestión:

Esto es lo que tengo:

colum 1 Colum 2 Colum 3 Colum 4 Colum 5
333 334 335 336 337

Esto es lo que deseo obtener en un informe

Indicador Valor
colum 1 333
Colum 2 334
Colum 3 335
Colum 4 336
Colum 5 337

le agradecería me ayudaran a encontrar una forma de solucionar esta cuestión.
Contestar

    Pregunta:  66512 - DATOS DE UN FORMULARIO EN WORLD A UNAS BASE DE DATOS
Autor:  Reichel Garcia
si al crear un formulario en word, puedo hacer que la informacion que se rellene en cada uno de los campos destinados a este fin, me aparezca inmediatamente en una bas de datos ya sea en excel o en access? y si se puede como lo puedo hacer?
agradesco su respuesta
Contestar

    Pregunta:  66550 - ACCESS NO SE INICIA DESPUES DE LA CONTRASEÑA
Autor:  mari carmen gch
Tengo instalado en el trabajo access 97, resulta que cuando intento abrir la base de datos, despues de introducir la contraseña, no me aparece la ventana de tablas, consultas... Y se queda en blanco. Sin embargo intento abrir cualquier otra base de datos y no me da ningun problema. ¿a que puede ser debido?
Contestar

    Pregunta:  66564 - ENLACE DE ACCESS A ARCHIVO DE AYUDA
Autor:  Hernán Camilo Martinez Valenzuela
Buenos dias amig@s quiero preguntarles acerca del siguiente problema que tengo en Access para abrir un archivo de ayuda creado mediante la herramienta Helpmaker, el archivo de ayuda tiene como nombre "Ayuda.sh6" y esta dentrode una subrutina de carpetas es decir esta en una ruta que es la siguiente:

"Aplicacion CDTS col present centroPantallazosAyuda_tmphhpAyuda.sh6"

deseo abrir ese archivo Ayuda.sh6 y que me lo abra en cualquier parte que este almacenado el archivo es decir que no esste obligatoriamente en la unidad C, sino que puede estar dentro de una memoria u otras unidades de almacenamiento o dispositivos.

He utilizado los siguientes codigos unos me han servido para abrir archivos .pdf pero para el archivo que necesito Ayuda.sh6, no me lo abre:

Los codigos que he utilizado son:

1.
Dim Resultado As Variant
' intentamos abrir el archivo
Resultado = OpenFile("Ayuda.sh6,")


2. Dim Nada
'Nada = Shell("Aplicacion CDTS col present centroPantallazosAyuda_tmphhpAyuda.sh6", vbMaximizedFocus)

3.
Dim nombrearchivo As String

nombrearchivo = "Ayuda.sh6"

OpenFile (nombrearchivo)

4. Application.FollowHyperlink CurrentProject.Path & "" & "Ayuda.sh6"

Como ven amig@s he utilizado demasiados codigos para intentar abrir el archivo de ayuda pero en ninguno he conseguido resultados satisfactorios, ya que alprobar el prograama el access me muestra mensajes como:

* "No se encuentra el archivo"
* "El nombre del archivo especificado no se encuentra dentro de la ruta especificada"
*"Archivo no encontrado".
*"No se puede abrir el archivo especificado".

en fin...

Muchas gracias por la ayuda que me puedan brindar.

Att.

Hernán Camilo MV
Bogotá D.C- Colombia
Contestar

|<  <<  1 2 3 4 5 6 7 8  >>  >|
Revisar política de publicidad