vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Allgemeine Diskussionen
Re: Bet-Tracker programmieren 
Autor: Manfred X
Datum: 02.03.19 06:22

Woran das Problem liegt, kann ich nicht eindeutig erkennen.
Der automatisch erstellte Code sieht korrekt aus.

Hast Du Modify-Zugriffsrechte auf die Access-DB?
Verwendest Du eine lokale Kopie der DB
(ins Anwendungsverzeichnis kopiert)?

Nutze für die Controls Datenbindung.
Im folgenden Beispiel heißt die DB "Test_2019" und die Tabelle "Basis".

Public Class frmAccess
 
    'Liste der Textboxen
    Dim Texte As New List(Of TextBox)
 
 
    Private Sub BasisBindingNavigatorSaveItem_Click(sender As Object, 
               e As EventArgs) Handles BasisBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.BasisBindingSource.EndEdit()
        Try
            Me.TableAdapterManager.UpdateAll(Me.Test_2019DataSet)
        Catch ex As Exception
            MsgBox("Update scheitert !!!" & vbCrLf & ex.Message, 
                   MsgBoxStyle.Exclamation)
        End Try
 
    End Sub
 
 
 
    Private Sub frmAccess_Load(sender As Object, 
                               e As EventArgs) Handles MyBase.Load
 
        Me.BasisTableAdapter.Fill(Me.Test_2019DataSet.Basis)
 
        Me.Size = New Size(440, 600)  'Formulargröße
 
        'Controls positionieren
        BasisDataGridView.Location = New Point(10, 30)
        BasisDataGridView.Size = New Size(400, 400)
 
        'Textboxen per Programmcode in einer Liste erstellen
        Dim texte_height As Integer = 30
        Dim texte_top As Integer = 450
        Dim tb As TextBox
        Dim dt As DataTable = Me.Test_2019DataSet.Tables("Basis")
        For i As Integer = 0 To 3
 
            'Textbox erstellen
            tb = New TextBox With
                {.Parent = Me, .Top = texte_top + i * texte_height, 
                 .Height = 30, .Width = 400}
 
            'Ereignis-Routine hinzufügen (Datenbindung)      
            tb.DataBindings.Add("Text", BasisBindingSource, 
                                dt.Columns(i).ColumnName)
            AddHandler tb.KeyDown, AddressOf tb_keydown
 
            'Textbox in Liste eintragen
            Texte.Add(tb)
        Next i
    End Sub
 
 
    Private Sub tb_keydown(ByVal sender As Object, e As KeyEventArgs)
        'Auf bestimmte Tasten in allen Textboxen reagieren (Navigation)
        Select Case e.KeyCode
            Case Keys.Return, Keys.Down
                Me.Validate()
                Me.BasisBindingSource.EndEdit()
                If BasisBindingSource.Position < 
                             BasisBindingSource.Count - 1 Then
                    BasisBindingSource.Position += 1
                End If
            Case Keys.Up
                If BasisBindingSource.Position > 0 Then
                    BasisBindingSource.Position -= 1
                End If
        End Select
 
    End Sub
End Class
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Bet-Tracker programmieren1.871DreamerXY28.02.19 06:56
Re: Bet-Tracker programmieren1.018Manfred X28.02.19 08:23
Re: Bet-Tracker programmieren975DreamerXY28.02.19 19:54
Re: Bet-Tracker programmieren972Manfred X01.03.19 10:28
Re: Bet-Tracker programmieren978DreamerXY01.03.19 16:42
Re: Bet-Tracker programmieren973Manfred X01.03.19 17:32
Re: Bet-Tracker programmieren960DreamerXY02.03.19 00:10
Re: Bet-Tracker programmieren1.006Manfred X02.03.19 02:46
Re: Bet-Tracker programmieren997DreamerXY02.03.19 03:17
Re: Bet-Tracker programmieren956Manfred X02.03.19 03:40
Re: Bet-Tracker programmieren963DreamerXY02.03.19 03:50
Re: Bet-Tracker programmieren956DreamerXY02.03.19 04:29
Re: Bet-Tracker programmieren958Manfred X02.03.19 06:36
Re: Bet-Tracker programmieren955Manfred X02.03.19 07:09
Re: Bet-Tracker programmieren945DreamerXY02.03.19 07:27
Re: Bet-Tracker programmieren964Manfred X02.03.19 07:39
Re: Bet-Tracker programmieren965Manfred X02.03.19 06:22
Re: Bet-Tracker programmieren971DreamerXY03.03.19 05:01
Re: Bet-Tracker programmieren940Manfred X03.03.19 05:14
Re: Bet-Tracker programmieren936DreamerXY03.03.19 05:29
Re: Bet-Tracker programmieren949Manfred X03.03.19 05:58
Re: Bet-Tracker programmieren965shushil1kumar221.06.19 08:14
Re: Bet-Tracker programmieren939shushil1kumar221.06.19 08:16
Re: Bet-Tracker programmieren454Laura0529.11.21 12:02

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel