Domanda

Ecco la Grand Vision.

Sto costruendo un database di ricambi che verrà utilizzato per il disastro elettronico.

Quando una parte viene inizialmente rimossa dal PCB è il designatore di riferimento e verranno registrati il valore misurato (ogni tipo di parte ha un modulo di ingresso personalizzato, ad esempio resistori, capactorni, IC, ecc.).Più tardi, torneremo a ciascuna parte e aggiungeremo più dettagli.

A questo punto sono in grado di selezionare parti esistenti da una casella combinata, utilizzare la funzione FindFirst per individuare il suo record nella tabella principale, estrarre le informazioni del tipo di parte corrispondente e aprire il modulo di immissione dei dati appropriato. Quello che non riesco a capire è come visualizzare quel record nel modulo appena aperto.La tipica me.bookmark= Rs.Bookmark Strategy non funziona da quando aprendo una nuova forma

Private Sub cmdEditPart_Click()
Dim rs As Recordset
Dim qdf As QueryDef
Dim prm As Parameter
Dim partType As String
Set qdf = CurrentDb.QueryDefs("Parts_SingleBoard")
qdf.Parameters(0) = Forms![Start Page (Boards)]![ComboPartNumber]

'Lookup record
    If Not IsNull(Me.cmbRefDes) Then
        'Save before move.
        If Me.Dirty Then
            Me.Dirty = False
        End If
        'Search in the clone set.
        Set rs = qdf.OpenRecordset.Clone
        rs.FindFirst "[Reference Designator] = '" & Me.cmbRefDes & "'"
        If rs.NoMatch Then
            MsgBox "Part not found"
        Else
            'Display the found record in the appropriate form.
            partType = rs.Fields("Part Type")
            DoCmd.OpenForm (partType)
            'Some sort of bookmark wizardy ****THIS IS WHAT I NEED HELP WITH *****
        End If
        Set rs = Nothing
    End If
End Sub
.

4 Step Recap:

Visualizza l'elenco delle parti esistenti -> Selezionare Parte -> Aprire dinamicamente il modulo di immissione dei dati corretto -> Popolare modulo con il record che voglio modificare

È stato utile?

Soluzione

Utilizzare il meccanismo del filtro integrato nel metodo DOCMD.Openform, qualcosa del genere:

DoCmd.OpenForm (partType), , , "[Reference Designator] = '" & Me.cmbRefDes & "'"
.

Non sono sicuro se ho abbastanza virgole prima della mia dichiarazione di filtro.Potresti aver bisogno di quattro virgole.

Autorizzato sotto: CC-BY-SA insieme a attribuzione
Non affiliato a StackOverflow
scroll top