Postada em 08/02/2007 17:24 hs
No primeiro Load do form se o banco estiver vazio então preencho:
Sub Inicia()
Dim Sql As String
Dim i As Integer
Set TbAusencia = New ADODB.Recordset
TbAusencia.Open "SELECT * FROM Viagem;", Banco, adOpenStatic, adLockOptimistic
If TbAusencia.RecordCount = 0 Then
NewRecord = True
For i = 0 To 24
With TbAusencia
.AddNew
.Fields("Id").Value = i
If i = 0 Then
.Fields("Nome").Value = "Campo Neutro"
.Fields("Cliente").Value = "XXXXXXXXXXXXXX"
.Fields("Local").Value = "XXXXXXXXXXXX"
.Fields("Contrato").Value = "XXXXXXXXXXXXX"
.Fields("Telefone").Value = "XXXXXXXXXXXXXX"
.Fields("Data").Value = "XXXXXX"
.Fields("Hora").Value = "XXXXX"
End If
.Update
End With
Next i
End If
TbAusencia.Close
End Sub
O primeiro registro coloco todos com o (XXXXX), porem o campo Data e Hora estão formatados com Date/Time, posteriormente os proximos registros de Data e Hora serão inclusos nos formatos normais, ou seja, Date/Time. A dificuldade é essa fazer esses campos aceitar a string (XXXX) na primeira inclusão.
|
