title image


Smiley Re: keine schlechte idee ,,,
Dank Hr. Herber(originalcode unten), Bernd Held und einem Beitrag von Ramses im HerberForum, habe ich nachstehenden für meine Bedürfnisse angepasst - funktioniert bestens.



ALSO- gruss an alle - und thx 2 google



gruss

walther









Private Sub CommandButton1_Click()

Dim ADOC As New ADODB.Connection

Dim DBS As New ADODB.Recordset

Dim Dia As UserForm

Dim s As String

ADOC.Open "Provider= _

Microsoft.Jet.OLEDB.4.0;Data _

Source=C:\eigene Dateien\Artikel.mdb;"

Set Dia = UserForm1

s = Dia.TextBox1.Value

s = "ArtNr = '" & s & "'"

DBS.Open "Artikel", ADOC, adOpenKeyset,

adLockOptimistic

On Error GoTo Fehler

DBS.Find s

With Dia

.TextBox2.Value = DBS!Bezeichnung

With Dia

DBS!ArtNr = .TextBox1.Value

DBS!Bezeichnung = .TextBox2.Value

DBS!EK = .TextBox3.Value

DBS!VK = .TextBox4.Value

DBS!Bestand = .TextBox5.Value

DBS.Update

End With

DBS.Close

MsgBox "Satz neu eingefügt!"

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: