Access macro? hat wer Ahnung?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function FindImport(FileName As Variant) As String Dim rs As Recordset ' Verbindung zur Datenbank öffnen Set rs = New ADODB.Recordset rs.Open "tbl_Import", CONN & ThisWorkbook.Path & "\" & FILE, _ adOpenKeyset, adLockOptimistic, adCmdTable rs.Find ("Datei Like '" & FileName & "'") If rs.EOF Then FindImport = "" Else FindImport = rs.Fields("Datum") End If rs.Close Set rs = Nothing End Function

Sub SetImport(FileName As Variant) Dim rs As Recordset ' Verbindung zur Datenbank öffnen Set rs = New ADODB.Recordset rs.Open "tbl_Import", CONN & ThisWorkbook.Path & "\" & FILE, _ adOpenKeyset, adLockOptimistic, adCmdTable rs.AddNew rs.Fields("Datei").Value = Trim(FileName) rs.Fields("Datum").Value = Format(Now, "dd.mm.yyyy") rs.Update rs.Close Set rs = Nothing End Sub

Hallo Galenzo
Ich arbeite auch an einem ADO Problem und habe es mit deînem Code Suchen eines Datensatzes versuch, hat aber leider nicht gefunzt.
Ich möchte in meiner Tabelle Auftragsnummern den Datensatz finden den ich ich aus meiner Combobox auslese und den entsprechenden Feldnamen Ausgeliefert auf Wahr setzten.
Anbei mein Code:


Sub LieferungübernahmeinAccess()
Dim datenbank As New ADODB.Connection
Dim Datensatz1 As New ADODB.Recordset, Datensatz2 As New ADODB.Recordset
datenbank.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\Logistik\Voith\Verlagerung_Rosenberger\Lieferungen_Rose-Voith.mdb;"
Datensatz1.Open "Lieferungen", datenbank, adOpenKeyset, adLockOptimistic
On Error GoTo fehler
Datensatz1.AddNew
Datensatz1!Lieferdatum = Me.txtLieferdatum.Value
Datensatz1!Auftrags_ID = bytAuftragsnr
Datensatz1!Lieferscheinnr = Me.txtLieferscheinNr.Value
Datensatz1!Sachnr_ID = bytUmwandlung_Sachnr
Datensatz1!Typ_ID = bytUmwandlung_Typ
Datensatz1!Menge = Me.txtMenge.Value
Datensatz1!Preis_ID = bytPreis_ID
If Me.txtBemerkung.Value = "" Then
Datensatz1!Bemerkung = Empty
Else
Datensatz1!Bemerkung = Me.txtBemerkung.Value
End If
Datensatz1.Update
Datensatz1.Close
If Me.chkAusgeliefert.Value = True Then
Datensatz2.Open "Auftragsnummern", datenbank, adOpenKeyset, adLockOptimistic
Datensatz2.Find ("Datei Like '" & Me.cboVoithAuftragsNr & "'")
Datensatz2!Ausgeliefert = True
Datensatz2.Update
Datensatz2.Close
Set Datensatz2 = Nothing
End If
datenbank.Close
Set datenbank = Nothing
Set Datensatz1 = Nothing
Exit Sub
fehler:
MsgBox "Es trat ein Fehler in Access auf!" & Chr(13) _
& Err.Description, vbCritical, "Fehler!"
Datensatz1.Close
datenbank.Close
Set datenbank = Nothing
Set Datensatz1 = Nothing
End Sub

Besten Dank für einen Tip und Gruss
TOM

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Access macro? hat wer Ahnung?

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread