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!

por fis ayudenme toy deseperada!

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.