VERSION 5.00 Begin VB.Form Form1 Caption = "Auftrag anzeigen" ClientHeight = 3990 ClientLeft = 1095 ClientTop = 1515 ClientWidth = 7605 LinkTopic = "Form1" PaletteMode = 1 'UseZOrder ScaleHeight = 3990 ScaleWidth = 7605 Begin VB.TextBox tfMenge BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 2280 TabIndex = 12 Top = 2400 Visible = 0 'False Width = 1215 End Begin VB.CommandButton bsEnde Caption = "&Ende" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 4680 TabIndex = 10 Top = 3360 Width = 2415 End Begin VB.TextBox tfFirma BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 5280 TabIndex = 4 Top = 1680 Visible = 0 'False Width = 2055 End Begin VB.TextBox tfKdNr BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 5880 TabIndex = 3 Top = 240 Visible = 0 'False Width = 1215 End Begin VB.TextBox tfAufNr BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 2280 TabIndex = 2 Top = 1680 Visible = 0 'False Width = 1215 End Begin VB.TextBox tfBez BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 2280 TabIndex = 1 Top = 960 Visible = 0 'False Width = 1815 End Begin VB.TextBox tfTeileNr BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 2280 TabIndex = 0 Top = 240 Width = 1215 End Begin VB.Label Label6 Caption = "beauftragte Menge" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 120 TabIndex = 11 Top = 2400 Visible = 0 'False Width = 1935 End Begin VB.Label Label5 Caption = "Firma:" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 4080 TabIndex = 9 Top = 1680 Visible = 0 'False Width = 975 End Begin VB.Label Label4 Caption = "Kundennummer:" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 3960 TabIndex = 8 Top = 240 Visible = 0 'False Width = 1815 End Begin VB.Label Label3 Caption = "Auftragsnummer:" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 120 TabIndex = 7 Top = 1680 Visible = 0 'False Width = 1815 End Begin VB.Label Label2 Caption = "Bezeichnung:" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 120 TabIndex = 6 Top = 960 Visible = 0 'False Width = 1815 End Begin VB.Label Label1 Caption = "Teilenummer:" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 120 TabIndex = 5 Top = 240 Width = 1815 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Dim mdbHandy As Database Dim tbTeile As Recordset Dim tbKunden As Recordset Dim snAuf As Recordset Dim mTeileNr As String Dim mAufNr As String Dim mKdNr As String Dim mSQL As String Private Sub Form_Load() 'Datenbank öffnen Set mdbHandy = OpenDatabase(App.Path + "\Handy.mdb") '2 Recordsets vom Typ table öffnen Set tbTeile = mdbHandy.OpenRecordset("Teile", dbOpenTable) Set tbKunden = mdbHandy.OpenRecordset("Kunden", dbOpenTable) tbTeile.Index = "PrimaryKey" tbKunden.Index = "PrimaryKey" '1 Recordset vom Typ snapshot öffnen mSQL = "SELECT Aufpos.teilenr, Aufpos.Aufnr, Aufpos.Aufmenge, Aufkopf.Kdnr " _ & "FROM Aufpos INNER JOIN Aufkopf " _ & "ON Aufpos.Aufnr=Aufkopf.Aufnr" Set snAuf = mdbHandy.OpenRecordset(mSQL, dbOpenSnapshot) End Sub Private Sub przSuchen() mTeileNr = tfTeileNr.Text 'Sequentiell nach der Teilenummer in Snapshot-Recordset suchen snAuf.FindFirst "TeileNr =" + "'" + mTeileNr + "'" 'Wurde die Teilenummer gefunden? If Not snAuf.NoMatch Then 'Ja, dann in dann Bezeichnung suchen tbTeile.Seek "=", mTeileNr tfBez.Text = tbTeile!Bezeichnung 'Kunden mit der Nummer im Auftrag suchen mKdNr = snAuf!KdNr tbKunden.Seek "=", mKdNr tfFirma.Text = tbKunden!KdName 'Informationen zum Auftrag auslesen tfAufNr.Text = snAuf!AufNr tfMenge.Text = snAuf!Aufmenge tfKdNr.Text = snAuf!KdNr Else MsgBox ("Es liegt kein Auftrag vor") End If End Sub Private Sub tfTeileNr_KeyPress(KeyAscii As Integer) If KeyAscii = 13 _ Then If IsNumeric(tfTeileNr.Text) _ Then If Len(tfTeileNr.Text) = 5 _ Then przSuchen bsEnde.SetFocus Else MsgBox ("Teilenr hat 5 Ziffern") End If Else MsgBox ("Eingabe nicht numerisch") End If End If End Sub Private Sub bsEnde_Click() End End Sub