Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Feldinhalt kopieren und einfügen - bitte helfen!
zurück: Meldung durch MsgBox bei Eintragung (Änderung) eine Tabelle weiter: Leeres Bild Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Filleone
Access Neuling


Verfasst am:
17. Dez 2009, 11:25
Rufname:

Feldinhalt kopieren und einfügen - bitte helfen! - Feldinhalt kopieren und einfügen - bitte helfen!

Nach oben
       Version: Office 2003

Filleone am 17. Dez 2009 um 09:18 hat folgendes geschrieben:
Hallo!

Ich wähle in einem Kombinationsfeld aus einen bestimmten Wert, sagen wir die Warennummer, aus und öffne dann durch klicken auf einen Button ein anderes Formular.
Jetzt ist es so, dass in dem neu geöffneten Formular der Datensatz angezeigt wird, mit der selben Warennummer. (Filter nach dieser Nummer)

Es gibt aber auch Warennummern, zu denen noch kein Datensatz vorhanden ist. Es wäre schön, dass wenn ich eine Warennummer auswähle, zu denen noch kein Datensatz vorhanden ist, beim Klicken auf den Button ein neuer Datensatz angelegt wird und das Feld Warennummer automatisch ausgefüllt wird, damit die Nummer nicht nochmal eingegeben werden muss.

Ist sicherlich sehr einfach zu programmieren...

Vielen Dank für eure Hilfe!

Ich hab's so versucht:
Code:
Private Sub Button_Click()
On Error GoTo Err_Button_Click
    'von mir
    Dim Neue_nummer As String
    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
   
    Neue_nummer = Me![M_Nummer]
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Tabellenname")
    rs.FindFirst ("Materialnummer = Neue_nummer")
    If rs.NoMatch Then 'wenn nicht vorhanden
        rs.AddNew
        rs ["Materialnummer"].Value = Neue_nummer
        rs.Update
    End If
    Set rs = Nothing
    Set db = Nothing
    'bis hier von mir
    stDocName = "Formularname"
    stLinkCriteria = "[Materialnummer]=" & "'" & Me![M_Nummer] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Balza_Click:
    Exit Sub
Err_Balza_Click:
    MsgBox Err.Description
    Resume Exit_Balza_Click
End Sub
Es erscheint die Fehlermeldung:
Zitat:
Unzulässige Verwendung einer Eigenschaft
das rs["Materialnummer"] im If-Block wird markiert.
MissPh!
Office-VBA-Programmiererin


Verfasst am:
17. Dez 2009, 16:58
Rufname:
Wohnort: NRW

AW: Feldinhalt kopieren und einfügen - bitte helfen! - AW: Feldinhalt kopieren und einfügen - bitte helfen!

Nach oben
       Version: Office 2003

Die Syntax ist falsch, entweder so rs("Materialnummer") oder so rs!Materialnummer.

Auch dies hier ist falsch:
Code:
'   rs.FindFirst "Materialnummer = Neue_nummer"
' besser:
    rs.FindFirst "Materialnummer = " & Neue_nummer
' und wenn es keine Zahl ist:
'   rs.FindFirst "Materialnummer = '" & Neue_nummer & "'"

_________________
Gruß MissPh!
Filleone
Access Neuling


Verfasst am:
17. Dez 2009, 17:15
Rufname:


AW: Feldinhalt kopieren und einfügen - bitte helfen! - AW: Feldinhalt kopieren und einfügen - bitte helfen!

Nach oben
       Version: Office 2003

Danke!

Hab die Lösung hier im Forum gefunden.
Code:
'neuen Datenatz anlegen
    DoCmd.OpenForm "DeinFormularName", acNormal, , , acFormAdd
    Forms!Formularname!Feldname = "irgendwas"
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Kopieren einer Tabelle von Zeilen nach Spalten 2 Andreas_04 678 20. Jul 2006, 12:07
Andreas_04 Kopieren einer Tabelle von Zeilen nach Spalten
Keine neuen Beiträge Access Tabellen & Abfragen: Nullwerte einfügen? 2 Gast 582 22. März 2006, 14:09
Gast Nullwerte einfügen?
Keine neuen Beiträge Access Tabellen & Abfragen: Problem beim einfügen in bestehende Tabelle 1 Gast 890 17. März 2006, 10:07
stpimi Problem beim einfügen in bestehende Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: Datum automatisch einfügen 5 UPPsycho 898 09. März 2006, 20:58
jens05 Datum automatisch einfügen
Keine neuen Beiträge Access Tabellen & Abfragen: Datensätze einfügen mittels INSERT INTO 3 TTh 1286 21. Feb 2006, 21:22
jens05 Datensätze einfügen mittels INSERT INTO
Keine neuen Beiträge Access Tabellen & Abfragen: Datensätze in Tabelle kopieren und einfügen 3 Menzek 3924 10. Feb 2006, 11:48
lothi Datensätze in Tabelle kopieren und einfügen
Keine neuen Beiträge Access Tabellen & Abfragen: Einfügen von Daten in eine Tabelle 1 stargazer01 808 25. Jan 2006, 17:14
stargazer01 Einfügen von Daten in eine Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: PDF und Excel Dokumente in Access einfügen 1 tazzmania1610 4243 21. Dez 2005, 21:01
jens05 PDF und Excel Dokumente in Access einfügen
Keine neuen Beiträge Access Tabellen & Abfragen: Werte von Feld1 in Feld2 kopieren 2 cixz 896 30. Sep 2005, 11:50
Gast Werte von Feld1 in Feld2 kopieren
Keine neuen Beiträge Access Tabellen & Abfragen: Bild einfügen 1 merlinteam 578 10. Sep 2005, 11:14
rita2008 Bild einfügen
Keine neuen Beiträge Access Tabellen & Abfragen: Feldinhalt nachträglich trennen 2 MirkoD. 1193 12. Aug 2005, 07:50
MirkoD. Feldinhalt nachträglich trennen
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz automatisch kopieren??? 0 Edelschnitt 701 11. Mai 2005, 19:41
Edelschnitt Datensatz automatisch kopieren???
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps