-
Saludos.
Tengo las siguientes lineas de código para detectar cuando un usuario quiere pasar cierta información a otra tabla mediante un check
Código:
Dim ccone As ADODB.Connection
Set ccone = New ADODB.Connection
With ccone
.Provider = "microsoft.jet.oledb.4.0"
.Open (App.Path & "\recibo_97.mdb")
End With
Dim buscar1 As ADODB.Recordset
Set buscar1 = New ADODB.Recordset
Dim guardar1 As ADODB.Recordset
Set guardar1 = New ADODB.Recordset
Dim codigo2 As String
Dim tem As Integer
'''''''''''Pasar a INQUILINOS RECIBO
If Check2(i).Value = 1 Then
codigo2 = InputBox("Ingrese el Mes correspondiente al alquiler para pasar conceptos a Recibos", "Solicitud de información")
If codigo2 = "" Then
MsgBox "Ingrese Mes y año para pasar información a Liquidación", vbCritical + vbOKOnly, "Información"
Else
Set buscar1 = New ADODB.Recordset
buscar1.Open "SELECT * FROM recibo WHERE expediente = '" & Text10.Text & "' AND apartamento='" & Text11.Text & "' AND mes_factura='" & (Trim$(UCase$(LCase$(codigo2)))) & "'", ccone
If buscar1.EOF = False Then
tem = 2
For F = 0 To 20
Label18(F).Caption = IIf(IsNull(buscar1.Fields("concepto" & tem)), "", buscar1.Fields("concepto" & tem))
If Label18(F).Caption <> "" Then
tem = tem + 1
End If
If Label18(F).Caption = "" Then
Set guardar1 = New ADODB.Recordset
guardar1.Open " UPDATE recibo " _
& "SET expediente='" & Text10.Text & "',mes_factura='" & (Trim$(UCase$(LCase$(codigo2)))) & "',apartamento='" & Text11.Text & "', codigo" & tem & "='" & Combo1(F).Text & "',concepto" & tem & "='" & Text9(F).Text & "',monto" & tem & "='" & Text5(F).Text & "' WHERE expediente = '" & Text10.Text & "' AND apartamento='" & Text11.Text & "' AND mes_factura='" & (Trim$(UCase$(LCase$(codigo2)))) & "' ;", ccone
Exit For
End If
Next F
End If
End If
End If
El problema esta en que si ya existe información guardada con el
mismo codigo, mes y apartamente el tendria que buscar campos ("concepto" & tem) vacios e
insertar allí la información.
La sintaxis lo que hace acutalmente es que si hay un check seleccionado y el label18x <> "" salta al siguiente temp y no busca un label18x vacio para actualizar y allí si seguir con el siguiente temp. Espero haberme explicado bien no duden en preguntar.Gracias!
-
-
no entiendo muy bien tu duda, si kieres voy a estar konektado al messenger, aki mi mail jvoch@hotmail.com, haber en ke te puedo ayudar
-
Te Agrege pero no te he visto online!
Bueno sigo esperando ayuda he cambiado mas de 3 veces las lineas de código y aún no doy con lo que quiero.gracias.
-
Hola, yo tampoco comprendí del todo. Si podés explicanos un poco más, cuál es el funcionamiento deseado de la aplicación, y que parte es la que no cumple con ello..
También sería muy bueno, que comentes un poco más el código, así se hace más sencillo que otros entiendan los programas que tu haces.
Saludos
-
Hola mira si explicas mas detalladamente tu problema podremos darle solucion. Saludos.
