Postada em 16/10/2005 10:21 hs
Pessoal, estou com problema, tenho uma Tabela exemplo abaixo:
Nr.Contrato Codigo Cliente Mes
10 161 outubro
11 161 outubro
12 165 outubro
Quando o mês que esta no textbox(mes) for diferente ao mes
que esta na tabela do nr.contrato ele editar.
Ex: contrato 10 e mes novembro ele editar porque no contrato
10 só existe ainda o mes de outubro.
Estou com rotina abaixo mas ele diz que já registrado mês mesmo
sendo diferente, ja troquei as variaveis nao não consegui.
Private Sub verifica_mes()
Dim contrato1 As String
Dim mes1 As String
contrato1 = txtnumerocontrato.Text
mes1 = txtmes.Text
Set Tabela12 = BDados.OpenRecordset("Contaspagar", dbOpenDynaset)
With Tabela12
.MoveMin
While Not .EOF
If !numerocontrato = contrato1 And !mes <> mes1 Then
Call edita
Else
MsgBox "Mês já registrado!"
End If
.MoveNext
Wend
End With
|
