DataCombo

prøv

Adodcfam.Recordset.Requery

Hej infoJens

Jeg får en fejlmeddelese nr: 3219
Handlingen er ikke tilladt i denne sammenhæng

Hvad med update?
Altså: adodcfam.recordset.update
Hører den ikke til adodc ?

- Mikker

Eller movenext så burde den jo gemme

Hej Alle.
Jeg ved ikke om mit spørgsmål er klart nok. ????

DataComboFamId skal opdaterer txtFamLatin når der vælges fra dropdown menyen.

Her er min kode.
Hvor skal koden der opdaterer txtFamLatin indsættes og hvad er koden.

Her er min kode:
Private Sub Form_Load()
  Dim strPath, SQLFam, SQLArt As String
 
\'\'\'\'\'\'\'\'\'\'
\'Sætter streng udtrykkene til strPath og SQLstrengene
\'\'\'\'\'\'\'\'\'\'
   
    strPath = App.Path & \"\\fugleobservation.MDB\"
    SQLArt = _
    (\"SELECT tblArt.ArtID, tblArt.ArtDK, tblArt.ArtLatin, tblArt.FamID, \" _
    & \"tblFamilie.FamLatin FROM tblFamilie INNER JOIN tblArt \" _
    & \"ON tblFamilie.FamID = tblArt.FamID; \")
   
    SQLFam = _
    (\"SELECT tblFamilie.* FROM tblFamilie ORDER BY tblFamilie.famdk; \")

\'\'\'\'\'\'\'\'\'\'
\'Sætter Adodc egenskaberne
\'\'\'\'\'\'\'\'\'\'

    With AdodcArt
      .ConnectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;\" & _
      \"Persist Security Info=False;Data Source=\" & strPath & _
      \"; Mode=Read|Write\"
      .CursorLocation = adUseClient
      .CursorType = adOpenStatic
      .CommandType = adCmdText
      .RecordSource = SQLArt
      .Refresh
    End With

    With AdodcFam
      .ConnectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;\" & _
      \"Persist Security Info=False;Data Source=\" & strPath & _
      \"; Mode=Read|Write\"
      .CursorLocation = adUseClient
      .CursorType = adOpenStatic
      .CommandType = adCmdText
      .RecordSource = SQLFam
      .Visible = False
      .Refresh
    End With
   
\'\'\'\'\'\'\'\'\'\'
\'Angiver tekstboxenes egenskaber
\'\'\'\'\'\'\'\'\'\'
   
    With txtArtDk
            .DataField = \"ArtDk\"
        Set .DataSource = AdodcArt
    End With
   
    With txtArtLatin
            .DataField = \"ArtLatin\"
        Set .DataSource = AdodcArt
    End With
   
    With txtFamLatin
            .DataField = \"FamLatin\"
        Set .DataSource = AdodcArt
    End With
   
\'\'\'\'\'\'\'\'\'\'
\'Angiver DataCombobokses egenskaber
\'\'\'\'\'\'\'\'\'\'
   
    With DataComboFamId
        Set .DataSource = AdodcArt
        .DataField = \"famid\"
        .BoundColumn = \"famid\"
        Set .RowSource = AdodcFam
        .ListField = \"FamDK\"
    End With
   
\'\'\'\'\'\'\'\'\'\'
\'Labels egenskaber
\'\'\'\'\'\'\'\'\'\'

    With lblOverskrift
        .Caption = \"Ny Art/Familie\"
        .FontSize = 16
        .FontItalic = True
    End With
   
\'\'\'\'\'\'\'\'\'\'
\'Viser recordset placering og antal recordset
\'\'\'\'\'\'\'\'\'\'

    AdodcArt.Recordset.MoveLast
    AdodcArt.Recordset.MoveFirst
    Antal = AdodcArt.Recordset.RecordCount
    pos = AdodcArt.Recordset.AbsolutePosition
    AdodcArt.Caption = \"Post \" & pos & \" af \" & Antal

End Sub

prøv eventuelt bare en refresh efter du har angivet textboxenes egenskaber.
Så vidt jeg kan se, kan du ikke opdatere textboxe før du har angivet deres tilhørsforhold.
Hvis ikke det hjælper  så giver jeg sgu op :-)

- Mikker

Lukket