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!