SoloCodigo

la verdad es que sigo teniendo el mismo problema, quisiera por favor le peguen una miradita al codigo de la rutina que me esta trayendo este problema para ver que les parece.Es un form que trae el registro seleccionado en un datagrid para cargarle datos adicionales y guardarlos en otra tabla con el id como referencia. gracias

Private Sub cmdNew_Click()

If CboCamp.Text = "" Then
    MsgBox ("Por favor complete los datos de la campaña")
       
        Else
   
    If selec Then
        DataGrid1.col = 0
        isInscr = Me.DataGrid1.Columns(0).CellValue(Me.DataGrid1.Bookmark)
          selec = False
        ConsLote = " SELECT Lotes.idDepart as Departamento, Lotes.Lote, Lotes.Colonia, Lotes.SupTotal, Lotes.SupAgr, " & _
        " Lotes.IntSiembraAlg as IntSiembra " & _
        " FROM Productores, Lotes Where Productores.idProd = Lotes.idProductor and Productores.idProd =   " & isInscr & ""
   
  Adodc2.ConnectionString = miConn
  Adodc2.RecordSource = ConsLote
  Adodc2.Refresh
 
    rs.Open " SELECT Productores.idProd, Productores.ApellProd, Productores.NomProd, Productores.Delegado, Productores.hasProd " & _
    "FROM Productores " & _
    " where Productores.idProd = " & isInscr & ""
    With rs
       txtRazon.Text = !ApellProd
       txtNombre.Text = !NomProd
       txtDeleg.Text = !Delegado
       LblId.Caption = !idProd
       LblHasProd.Caption = !HasProd
    End With
    rs.Close
    Verif = "SELECT Lotes.idLote, Lotes.idDepart as Departamento, Lotes.Lote, Lotes.Colonia, Lotes.SupTotal, Lotes.SupAgr, " & _
        " Lotes.IntSiembraAlg as IntSiembra , V.LatGra, V.LatMin, V.LatSeg, V.LonGra, V.LonMin, V.LonSeg, " & _
        " V.SupSembrada, V.TipoSiembra, V.Anchsurc, V.EstadCult" & _
        " FROM Verificaciones V , Lotes "
        '"Where Verificaciones.idProd = Lotes.idProductor And Lotes.idProductor = " & isInscr & """"
     
     Adodc3.ConnectionString = miConn
     Adodc3.RecordSource = Verif
     Adodc3.Refresh
    FrmNuev.Visible = True
    TxtObs.Visible = True
    cmdLimpiar.Visible = False
   

Else
    MsgBox ("Por favor seleccione un registro a cargar")
    DataGrid1.SetFocus
   
End If
End If

Activar
    CboDep.Enabled = True
    TxtLote.Enabled = True
    TxtProp.Enabled = True
    TxtCol.Enabled = True
    TxtLatGra.Enabled = True
    TxtLatMin.Enabled = True
    TxtLatSeg.Enabled = True
    TxtLonGra.Enabled = True
    TxtLongMin.Enabled = True
    TxtLongSeg.Enabled = True
    TxtSupSemb.Enabled = True
    CboTipoSiemb.Enabled = True
    CboAnch.Enabled = True
    CboEstad.Enabled = True
    TxtFecha.Enabled = True
    CboCamp1.Enabled = True
    TxtObs.Enabled = True
    CboCamp.Enabled = True
    Check2.Enabled = True
    Check3.Enabled = True
    Check1.Enabled = True
    cboDel.Enabled = True
    cboLoc.Enabled = True

End Sub

HOLA a todos, quisiera si pueden me resuelvan una duda. Confeccione un programita en VB 6.0 con MSAcces y la verdad es que todo andaba bien los primeros dias, era un chiche el programa. Pro a medida que se llenaba la BD el programa se hace cada vez mas lento. Como puedo solucionarlo? Tengo en la base 4000 registros mas o menos que se conectan de uno a muchos con otra tabla que tendra en promedio 2 registros por cada uno del maestro. Agradeceria mucho cualquier aporte. Gracias

hola a todos, espero que me ayuden porque ya nose mas que hacer cona esto. Confeccione un reporte en active reports que me realiza planillas en lote desde una BD la conexion la ago con un ado. Tengo dos tablas de registros que se conectan de 1 a muchos. el tema es que la segunda tabla por ahi tiene registros que no se coresponden con ninguno de la primer tabla y en los reportes me trae esos registros huerfanos que quedaron que no corresponden al reporte en cuestión como hago para hacerlos desaparecer sin tener que borrarlos uno por uno en la tabla?. Ya probe left join, inner join, join implícito y ya no se que mas hacer. Sera algun problema del active reports porque en el datagrid de la pantalla hago la misma consulta y no me hace esto. Ayuda por favorr!!!
Esta es la consulta
 StrConsulta = "" & _
    " SELECT " & _
    "    Productores.idProd AS FRegistro," & _
    "    Productores.cuitProd as FCUIT," & _
    "    Productores.apellProd as FAPELLIDO," & _
    "    Productores.nomProd as FNOMBRE," & _
    "    Productores.domicProd  AS FDOMICILIO," & _
    "    Productores.localidad  AS FLOCALIDAD," & _
    "    Productores.Delegado AS FDELEGADO, " & _
    "    Productores.hasProd as FHectarias , " & _
    "    Lotes.idDepart as FDepartamento, " & _
    "    Lotes.lote as FLote, " & _
    "    Lotes.colonia as FColonia, " & _
    "    Lotes.suptotal as FSubTotal, " & _
    "    Lotes.intsiembraalg as FSiembra " & _
    " FROM Productores, Lotes where Lotes.idProductor = Productores.idProd "
Gracias y saludos

hola, estoy tratarndo de hacer un reporte con active reports y necesito hacer un rutina para que me imprima una fila seleccionada. Lo que nose es el evento que tengo que considerar para hacerlo. Ayuda porfa............

Gracias

Era tan facil? Muchas Gracias, Me sirvio mucho. Saludos

HOLA SOY NUEVA EN EL FORO Y QUISIERA SABER SI ME PUEDEN AYUDAR EN UNA CONSULTA QUE ME TIRA UN ERROR Y NO LO PUEDO RESOVER. LA CONSULTA DICE:
SELECT Sum(Lotes.SupTotal) AS SupT, Sum(Lotes.SupAgr) AS SupA, Sum(Lotes.IntSiembraAlg) AS TotI
FROM Productores INNER JOIN Lotes ON Productores.idProd = Lotes.idProductor;
 
EL ERROR QUE ME TIRA DICE QUE LA INSTRUCCION SELECT ESTA MAL ESCRITA O LE FALTA UN ARGUMENTO O LOS SIGNOSDE PUNTUACION NO SON CORRECTOS. POR FAVOR NECESITO AYUDA. GRACIAS