• Viernes 19 de Abril de 2024, 13:45

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - franespi

Páginas: [1]
1
MS Access / Re: error 13 no coinciden los tipos
« en: Lunes 1 de Noviembre de 2010, 14:31 »
:wacko:
Muchas gracias
No me habia dado cuenta

Saludos

2
MS Access / error 13 no coinciden los tipos
« en: Viernes 15 de Octubre de 2010, 02:25 »
BUenas

No se porque no coinciden los tipos , pues lo he probado todo y las variables son las mismas
os dejo el codigo , para que me ayudeis en la sintaxis

Private Sub nuevo_Click()
On Error GoTo Err_nuevo_Click
    Dim stDocName As String
    Dim stLinkCriteria As String

   
   
    DoCmd.RunCommand acCmdSaveRecord
  Forms!clientes1.Visible = False
    stDocName = "clipresu"
   
    If IsNull(Forms![clientes1]![subpedidos]![comptador]) Or Forms![clientes1]![subpedidos]![comptador] = 0 Then
    MsgBox " Tienes que introducir primero un numero de comptador "
    Exit Sub
    End If
     
 stLinkCriteria = "[IdCliente]=[IdCliente]" And "[comptador]= Forms![clientes1]![subpedidos]![comptador]" ' aqui me sale el error
    DoCmd.OpenForm stDocName, , , stLinkCriteria


actual = "fichacli"

Exit_nuevo_Click:
    Exit Sub

Err_nuevo_Click:
    MsgBox Err.Description
    Resume Exit_nuevo_Click

End Sub


Saludos

3
MS Access / Error de solo lectura
« en: Jueves 2 de Septiembre de 2010, 21:44 »
Hola:

Espero buestra respuesta pues lo he probado todo y no me salgo.
tengo un procedimiento donde quiero insertar una factura nueva en la tabla "factura" ,
 pero cuando la ejecuto siempre me sale el error de que no se puede insertar porque es de solo lectura

os envio el codigo para que me digais donde esta el error o si tengo que poner algo más
es urgente porfavor , no puedo facturar!"

If IsNull(DLookup("[Idpedido]", "factura", "[idpedido]=" & posicion)) Then

Dim lin As String
Dim sConnect As String, sSQL As String
Dim cnnActiva As ADODB.Connection
Dim rst_Ado As ADODB.Recordset


Set cnnActiva = New ADODB.Connection
cnnActiva.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=My Dropboxempresarepara-espinosaRepara-Espinosa ultima.mdb;Persist Security Info=False;"
Set rst_Ado = New ADODB.Recordset

rst_Ado.Open "Select Max(idfactura) From factura", _
                  cnnActiva, adOpenStatic, adLockPessimistic

fac = rst_Ado.Fields(0)

ano = CStr(Year(Forms![clientes1]![subpedidos]![FechaEnvío]))

If Left(fac, 4) <> ano Then

fac = ano & "000"

End If
DoCmd.OpenForm "factura"
rst_Ado.AddNew aqui me sale el error " no se puede actualizar.Base de datos u objeto solo lectura"

Forms![factura]![idfactura] = rst_Ado.Fields(0) + 1

Forms![factura]![IdCliente] = Me.IdCliente

Forms![factura]![fechafactura] = Date


Set rst_Ado = Nothing
 ' cnactiva.Close
  Set cnnActiva = Nothing


GoTo final



Gracias de antemano

4
MS Access / de ecxel a access 2007 campo memo
« en: Jueves 26 de Agosto de 2010, 09:04 »
Hola otra vez.

Tengo otra cuestión.

Necesito pasar unos datos de varias celdas de ecxel a un campo memo de una tabla en access .
como se crea el recordset ?

podriais pasarme un ejemplo porfavor.

Muchas gracias de antemano.

Saludos

5
MS Access / Re: error de sintaxis en from
« en: Jueves 26 de Agosto de 2010, 08:54 »
Bueno el problema ya lo encontré

El problema era que tenìa la consulta con "uno" a "todos" y logicamente eso no puede ser así
que hice dos consulta una por "clientes" y la otra por "pedidos"


Saludos

6
MS Access / error de sintaxis en from
« en: Miércoles 25 de Agosto de 2010, 00:08 »
Hola a todos
Alguien me puede ayudar?
Grascias por adelantado
Estoi intentando añadir datos a dos tablas de bd access 2007 que estan relacionadas pero me sale el error de sintaxis en este from i no lo encuentro
este es parte del codigo.

 Set Obj_Excel = CreateObject("Excel.Application")
    ' Abre el libro de Excel
  Obj_Excel.Workbooks.Open filename:=path

Set cnnActiva = New ADODB.Connection
cnnActiva.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=My Dropboxempresarepara-espinosaRepara-Espinosa ultima.mdb;Persist Security Info=False;"
Set Obj_Hoja = Obj_Excel
'Rango que quiero importar dela hoja
Set rst_Ado = New ADODB.Recordset
    'Abre el recordset
   
  rst_Ado.Open "SELECT Clientes.IdCliente, Clientes.NombreContacto,Clientes.ApellidosContacto, Clientes.DirecciónFacturación, Clientes.Ciudad,Clientes.EdoOProv, Clientes.CódPostal, Clientes.DNI, Clientes.POLIZA, Clientes.NúmTeléfono,Clientes.NúmFax, Pedidos.IdPedido, Pedidos.FechaPedido, Pedidos.fechaaviso, Pedidos.comptador,Pedidos.albaran, Pedidos.NOTAS FROM Clientes INNER JOIN Pedidos ON ", _
                  cnnActiva, adOpenStatic, adLockPessimistic
                  'Se posiciona al final
       
   If rst_Ado.RecordCount <> 0 Then rst_Ado.MoveLast
       
Gracias

Páginas: [1]