Discussion :

[Berny03]

Salut ,
Je suis pratiquement debutant dans Access/Visaul Basic.
Mon PB est le suivant:
j'ai une Liste modifiable cbo_Qs provenant de la table tbl_Daten.
cette table pessede un champ [Text] ( qui s'affiche sur la liste modifiable cbo_Qs ) et un autre champ [tbl_Text].
j'aimerais en choisissant un element de cbo_Qs
qu' un formulaire standar "Daten_Formular" s'ouvre, qu'il prend le Titre [Text] et qu'il soit charger par la table [tbl_Text]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim rs As Object
    Dim Con as Object
    stSql as string
 
    Set con = Application.CurrentProject.Connection
    Set rs = CreateObject("ADODB.Recordset")
    stSql = "SELECT * FROM [tbl_Daten] "
 
    rs.Open stSql, con, 1 
    For i = 0 To cbtest.ListCount - 1
        DoCmd.OpenForm "Daten_Formular"
        Forms!Daten_Formular.Titel.Caption = rs.[Text]
        Forms!Daten_Formular.RecordSource = rs.[tbl_Text]
    Next i

comme resultat, :quelque soit l' element selectionner il attribue comme Titre le Premier element de cbo_Qs (itemdata(0))et la Table corespondant au premier element.

Merci D'avance

Balises code powered by Xo, merci d'y penser

[Megaxel]

Hello!
Je ne comprend pas pourquoi, une fois que tu as choisi ton libellé "MonLibellé" dans ta liste, tu ne fais pas un SELECT avec un clause WHERE:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
SELECT tbl_Text FROM tbl_Daten WHERE Text = ' & MonLibellé & "'"

Et tu n'as plus qu'a afficher ton formulaire standard avec ces 2 libellés.

Mais je ne suis franchement pas sûr d'avoir bien compris le problème...

[Berny03]

Tout d'abord Merci,
Tu veus dire que je dervrai d'abord Choisir un libellé et ensuite ,
appeler mon formulaire Standar et le charger

For i = 0 To cbtest.ListCount - 1
DoCmd.OpenForm "Daten_Formular"
Forms!Daten_Formular.Titel.Caption = "SELECT tbl_Text FROM tbl_Daten WHERE Text = ' & [Text] & "'" ""
Forms!Daten_Formular.RecordSource = " SELECT tbl_Text FROM tbl_Daten WHERE Text = ' & MonLibellé & "'" "
Next i

Excuse moi si mon Code est Absurde mais je n'ai pas beaucoup d'experience.

[Megaxel]

Oui, c'est ça.
Mais ne t'excuse pas, tout le monde doit se triturer les méninges avant de savoir faire des trucs.
Mais je ne comprend pas pourquoi le "OpenForm" est dans une boucle. Tu en ouvres plusieurs?

[Berny03]

Ok j'ai esaye, mais j'ai maintenant une grosse error qui me sort du programm.
Je fais des etude en allemagne et comme je ne maitrise pas encore bien l'Allemand je mesuis retourner vers ce forum en francais. depuis deux semaine je n'arrive pas à avancer sur un Projet par manque de connaissance.
en fait J'ai une liste modifiable CbQs avec un Champ [Standort]
CbQs provient de La table tblQS qui elle comprendu un autre champ[Tabelle]
CmdQS est le bouton que j'appuis apres avoir choisit Monlibellé.


Private Sub CmdQS_Click()

On Error GoTo Err_CmdQS_Click


Dim stDocName As String
Dim stLinkCriteria As String
Dim stSql As String
Dim i As Integer
stDocName = "Daten_Formular"
'stLinkCriteria = "[tblProduktionsorte]"
'stSql = "SELECT Tabelle* FROM tblQS WHERE Text= '& Standort & " '"
DoCmd.OpenForm stDocName ', , , stLinkCriteria
For i = 0 To cbtest.ListCount - 1


Forms!Daten_Formular.Titel.Caption = "SELECT Standort* FROM tblQS WHERE Text= '& Standort & " '"
Forms!Daten_Formular.RecordSource = "SELECT Tabelle* FROM tblQS WHERE Text= '& Standort & " '""


End If
Next i

Exit_CmdQS_Click:
Exit Sub

Err_CmdQS_Click:
MsgBox Err.Description
DoCmd.Quit acQuitSaveAll
Resume Exit_CmdQS_Click
End Sub