naum sou programador, só uso o vb para passar tempo mas vi que no meu trabalho posso criar um programa pra facilitar minha vida.

Quem pode me ajudar?

esta rotina funciona só que não pode ter campos nulos senão gera erro. até ai tudo bem contornei com um "on error resume next". não tem problema, depois eu arrumo isso.

meu problema maior é que eu gostaria de carregar os dados e gostaria de saber se é possivel carregar os dados de uma forma mais simples sem usar o controle data.
tenho um banco onde não consegui inserir 240 campos, entaum dividi em 4 tabelas e preciso carregar os dados mas vejam só "240 campos" para digitar

 

controle.propriedade = Tb1("campo")

esta é parte de minha rotina que carrego em um modulo. coloquei aqui só uma parte que comecei a desenvolver senaum imagina só o tamanho que ficaria isso

 

Option Explicit

Public Function CarregaDados(Form1 As Form, vData As Date, vTurno As Integer)
Dim db As Database
Dim Tb1 As Recordset
Dim Tb2 As Recordset

Dim Diretorio As String

On Error Resume Next

Diretorio = App.Path
Set db = OpenDatabase(Diretorio + "anco.mdb")

Set Tb1 = db.OpenRecordset("Parte1")
Tb1.Index = "IndDataTurno"
Tb1.Seek "=", vData, vTurno
If Not Tb1.NoMatch Then
    With Form1
        .TxtData.Text = Tb1("Data")
        .TxtTurno.Text = Tb1("Turno")
    End With
End If
Tb1.Close
Set Tb2 = db.OpenRecordset("Parte2")
Tb2.Index = "IndDataTurno"
Tb2.Seek "=", vData, vTurno
If Not Tb2.NoMatch Then
    With Form1
        .TxtHora1.Text = Tb2("Hora1")
        .TxtDinheiro1.Text = Tb2("Dinheiro1")
    End With
End If
Tb2.Close
End Function

caso alguem possa me ajudar pode postar a resposta aqui ou mineirop@bol.com.br
t+ pessoal, agora deixa eu ir trabalhar.

Tem um jeito bem mais fácil sim só q para funcionar eu aconselho criar um array de textboxes, labels, combos enfim seja o q for para carregar os seus dados.

Tente fazer assim:

'Carregando os dados, EXEMPLO

Private Sub CmdLoad_Click()

Tb1.Index = "IndDataTurno"
Tb1.Seek "=", vData, vTurno

If Not Tb1.NoMatch Then
with Tb1

'carregando os dados

For i = 0 To .Fields.Count - 1
   textbox(i) = .Fields(.Fields(i).Name)
Next i

end with

endif

end sub

Deste modo vc consegue carregar os dados sem precisar de 240 linhas pra isso!!!

 

qq coisa é só postar novamente

 

t+