[Resolvido]Geração de Plantas por Linhas (Pomar)

Boa tarde,

Preciso de ajuda para gerar um aplicativo que eu informe X linha e Y plantas e ocorra o preenchimento automático na tabela, conforme imagens anexada de um outro programa, porem preciso fazer isso no access.

Eu informei nos campos o valore e o botão criou automaticamente as linhas e as colunas

Fico no aguardo e muito obrigado!

Esta feito para 5 campos, adapte a sua necessidade.

Private Sub Comando0_Click()
Dim X As Integer
X = Me.cboPlanta.Value

If Me.cboLinha = 1 Then
    CurrentDb.Execute "CREATE TABLE tblExemplo (ID Single,  1 LONGTEXT);"
ElseIf Me.cboLinha = 2 Then
    CurrentDb.Execute "CREATE TABLE tblExemplo (ID Single,  1 LONGTEXT,  2 LONGTEXT);"
ElseIf Me.cboLinha = 3 Then
    CurrentDb.Execute "CREATE TABLE tblExemplo (ID Single,  1 LONGTEXT,  2 LONGTEXT,  3 LONGTEXT);"
ElseIf Me.cboLinha = 4 Then
    CurrentDb.Execute "CREATE TABLE tblExemplo (ID Single,  1 LONGTEXT,  2 LONGTEXT,  3 LONGTEXT,  4 LONGTEXT);"
ElseIf Me.cboLinha = 5 Then
    CurrentDb.Execute "CREATE TABLE tblExemplo (ID Single,  1 LONGTEXT,  2 LONGTEXT,  3 LONGTEXT,  4 LONGTEXT,  5 LONGTEXT);"
End If
For X = 1 To X
CurrentDb.Execute "INSERT INTO tblExemplo (ID)" _
                    & "Values(""" & X & """)"
Next X
Me.SubFormExemplo.SourceObject = "Tabela.tblExemplo"
End Sub

Boa noite Piloto,

Tive acesso a tabela da tela que eu postei aqui... muito obrigado pelo codigo, porem ainda nao é o que eu preciso. Precisava armazenar os valores que eu informar nos campos da forma que esta nesta planilha e depois ter um form que interprete o que esta armazenado na tabela.

Me ajuda ai por favor

Eu fiz como o print que me enviou... seja mais detalhista no que pretende...

Segundo o seu print... e necessario crias campos e registros.. foi o que fiz...

cumprimentos.

Oi Piloto,

É que comecei de traz pra frente

Preciso de uma tela pra dizer qual é maximo de plantas que ele tem por linha de daquele X produtor.

na tela que eu mandei os dados sao armazenados daquela forma que esta na planilha

Voce pode me ajudar

Se conseguir me fazer entender... porque ainda não entendi..

Segundo a duvida colocada por si... foi o que fiz...

Tente explicar direito


Cumprimentos.