Kurt <ku.bu@get2net.dk> wrote in message
news:WNpm7.632$lk7.27618@news.get2net.dk...
> Jeg skal hente et mm mål fra access, ud fra et bestemt receptnavn og
> et bestemt lag nummer.
>
> (Der ligger ca 10 recepter med op til 500 lag som maskinen skal
> køre)
>
> Dvs der er 2 ting som skal være opfyldt for at den korrekte linie er
> fundet i tabellen.
>
<SNIP Gammelkode>
>
> Min tabel består af kolonnerne
> "Navn" (indeholder receotnavn)
> "Lag" (indeholder lag nummeret 1-500)
> "MM" indeholder det aktuelle mål som maskinen skal køre, ved denne
> recept og ved dette lag
>
Hej Kurt
Jeg ville lave noget ala nedenstående. (er dog ikke testet og ikke
gennemtænkt
. Nu tager proceduren to argumenter en
tekststreng (navnet på recepten) og en integer (nummeret på laget).
'--------------------Kodestart--------------------
Public Sub Hentmm_data(strRecepter As String, intLag As Integer)
Dim DB As DAO.Database
Dim Tabel As DAO.Recordset
Set DB = OpenDatabase("c:\mydb\access_DB\data.mdb")
Set Tabel = DB.OpenRecordset("SELECT * FROM Recepttabel " & _
"WHERE [Navn] = '" & strRecepter & "' AND " & _
"[Lag] = " & intLag)
' Er der fundet en post der matcher
If Tabel.EOF And Tabel.BOF Then
MsgBox "Ingen data fundet med data: " & vbNewLine & _
"Navn = " & strRecepter & vbNewLine & _
"Lag = " & intLag, vbInformation, "Ingen data fundet"
Else
' Kan undlades
Tabel.MoveFirst
gTagDb("Access_data\mm_maal").Value = Tabel.Fields("MM").Value
End If
End Sub
'--------------------Kodeslut--------------------
--
Mikkel Bundgaard
IT University of Copenhagen
http://officehelp.gone.dk
Se SpaceCommunicator - en peer-to-peer chat-applikation i Java