Access Button soll Code ausführen?

Sorry, für die Frage, ist bestimmt richtig leicht.

Kenne mich halt leider null mit access aus, habe am Montag das erste mal in meinem Leben was davon gehört und befinde mich zu Zeit in einem Praktikum, ich soll mir alles selbst beibringen.

Ich möchte nun einen Button erstellen, der dann den letzten Datensatz dupliziert und zwar so oft, wie man angibt, also man gibt z.b. eine 5 an, dann dupliziert er den Datensatz 5 mal.

Der PK ist ein Autowert und ich nehme an, das der beim duplizieren sich ändert.

-----------------------

Allerdings habe ich jetzt das Problem, dass wenn ich einen Button erstelle, nur der Assistent erscheint und da habe ich keine Lösung für mein Problem gefunden.

Also wollte ich den Button eine Makro ausführen lassen, doch auch da habe ich nur die vorgegebenen Möglichkeiten entdeckt, welche mir aber auch nicht weiterhelfen.

Ich habe die Makro dann in eine Visual Basic Datei konvertiert.

Da kann ich zwar jetzt einen Code eingeben, aber ich kann die Visual Basic datei nicht mit einem Button verknüpfen.

Da ich auch keine Ahnung vom Coden habe, habe ich mir dafür einen Code im Internet rausgesucht, der anscheinend funktionieren soll:

Private Sub Befehl227_Click()
  Dim lngI    As Long
  Dim lngIMax   As Long
  Dim strEingabe As String
  
  DoCmd.RunCommand acCmdSelectRecord
  DoCmd.RunCommand acCmdCopy
  strEingabe = InputBox("Wie oft?", , 1)
  'Benutzereingabe wurde abgebrochen
  If StrPtr(strEingabe) = 0 Then Exit Sub
  lngIMax = Val(strEingabe)
  For lngI = 1 To lngIMax
    DoCmd.RunCommand acCmdPasteAppend
  Next lngI
End Sub

----------------------

Hoffe mir kann wer weiterhelfen und bevor jmd sagt, man muss keine Datensätze kopieren! -> das ist leider genau die Aufgabe die mir gegeben wurde, ich verstehe den Sinn dahinter auch nicht.

Es handelt sich nämlich um Installationskeys, welche unterschiedlich oft einsetzbar sind, man soll also den Key und paar andere Sachen angeben und dann die Anzahl angeben, dementsprechend oft soll nun der Datensatz kopiert werden, damit man zu jeden einzeln das einlöse-Datum eintragen kann.

Hatte eigentlich erst eine Tabelle mit dem Key und so erstellt und mit einer anderen Tabelle verknüpft, in welcher die einlöse-Datums drinnen stehen, dann kann man ja eigentlich zu jedem Key, beliebig viele Datums zuordnen, aber das soll ich anders machen und zwar mit dem duplizieren.

Wäre also cool, wenn mir wer paar tipps geben könnte und bitte berücksichtigt, bei euren Antworten, dass ich noch ein absoluter Anfänger bin.

Danke schonmal im Vorraus

1 Antwort

Vom Fragesteller als hilfreich ausgezeichnet

daCypher

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

programmieren

23.06.2022, 13:58

Um einem Button einen Code zuzuordnen, machst du einfach einen Rechtsklick auf den Button und dann auf Ereignis... dann geht ein Fenster auf, wo du auf "Code-Generator" klickst.

Alternativ kannst du das Eigenschaftenfenster vom Button öffnen und da in die Registerkarte "Eigenschaften" gehen und einen Doppelklick bei "Beim Klicken" machen. Dann steht "[Ereignisprozedur]" drin und wenn du auf die drei Punkte klickst, wird auch der VBA-Editor geöffnet.

Zum eigentlichen Problem: Würde es auch gehen, wenn du den Key und die Anzahl in einem Formular eingibst und dann einfach entsprechend viele Einträge in eine Tabelle geschrieben werden, anstatt dass du einen Eintrag per Hand in die Tabelle schreibst und ihn dann mit der Prozedur mehrmals kopierst?

Wenn du schon ein Formular mit einem Button hast, kannst du da einfach zwei Textfelder anlegen (ich nenne sie mal txtKey und txtCount) und kannst dann für den Button (ich hab ihn hier mal btnInsert genannt) diese Prozedur rein machen:

Option Compare Database
Option Explicit

Private Sub btnInsert_Click()
    Dim count As Integer, i As Integer
    
    ' Textinhalt in Zahl umwandeln, um sicherzugehen, dass eine Zahl eingegeben wurde
    count = Me.txtCount.Value
    
    ' Sicherstellen, dass etwas eingegeben wurde
    If Me.txtKey = "" Then
        MsgBox "Bitte einen Key eingeben"
        Exit Sub
    End If
    
    If count = 0 Then
        MsgBox "Bitte eine Anzahl eingeben"
        Exit Sub
    End If
    
    ' Daten einfügen
    Dim RS As DAO.Recordset
    Set RS = CurrentDb.OpenRecordset("KeyAssignments")
    For i = 1 To count
        ' Man könnte auch currentDB.execute(SQL-Befehl) nehmen, aber das ist anfällig für SQL-Injection Attacken
        RS.AddNew
        RS!Key = Me.txtKey
        RS.Update
    Next i
    
    MsgBox "Es wurden " & count & " Einträge mit dem Key """ + Me.txtKey + """ eingetragen."
End Sub

HerkulesGamer

Fragesteller

23.06.2022, 14:06

vielen Dank, das hat mir echt geholfen

daCypher

23.06.2022, 14:09

@HerkulesGamer

Bitteschön 👍

Ähnliche Fragen

Access VGA Code?

Hey, kann mir wer folgen Code so umschreiben, dass der nicht anfragt, wie oft dupliziert werden soll, sondern der das aus einem Zahlenfeld im gleichen Formular entnimmt?:

-------------

Private Sub Befehl36_Click()

Dim lngI As Long

Dim lngIMax As Long

Dim strEingabe As String

DoCmd.RunCommand acCmdSelectRecord

DoCmd.RunCommand acCmdCopy

strEingabe = InputBox("Wie oft?", , 1)

'Benutzereingabe wurde abgebrochen

If StrPtr(strEingabe) = 0 Then Exit Sub

lngIMax = Val(strEingabe) - 1

For lngI = 1 To lngIMax

DoCmd.RunCommand acCmdPasteAppend

Next lngI

End Sub

---------------

Vielen Dank

...zur Frage

Access VBA Code für Suchformular geht nicht?

Hey, ich habe in einem Formular "Hauptmenü" ein Unterformular "InstallationskeysFormular", in dem Hauptformular habe ich ein Textfeld "txtSuche" und einen Button "btnSuche", mit folgendem Code:

Private Sub btnSuche_Click()

Dim strFilter As String

If Not IsNull(Me!txtSuche) Then

strFilter = "Produkt LIKE '*" & Me!txtSuche & "*' OR Beleg LIKE '*" & Me!txtSuche & "*' OR Kundennummer LIKE '*" & Me!txtSuche & "*'"

Me.Filter = strFilter

Me.FilterOn = True

End If

End Sub

Mithilfe dessen möchte ich das Unterformular sowohl nach Produkt, Beleg oder Kundennummer durchsuchen können und nur die passenden Datensätze sollen im Unterformular angezeigt werden.

In einem anderen Formular, welches kein Unterformular hat, funktioniert das einwandfrei.

Deshalb habe ich folgendes versucht, ich habe bei den Me.Filter und Me.FilterOn, den Namen des Unterformulares ergänzt, aber funktionieren tut es immer noch nicht, kann mir bitte wer sagen woran das liegt, dankeee.

Private Sub btnSuche_Click()

Dim strFilter As String

If Not IsNull(Me!txtSuche) Then

strFilter = "Produkt LIKE '*" & Me!txtSuche & "*' OR Beleg LIKE '*" & Me!txtSuche & "*' OR Kundennummer LIKE '*" & Me!txtSuche & "*'"

Me.InstallationskeysFormular.Filter = strFilter

Me.InstallationskeysFormular.FilterOn = True

End If

End Sub

...zur Frage

Prüfen ob Abfrage Daten enthält VBA Access?

Hallo zusammen,

ich habe in Access einen Button, der aus einer Abfrage eine PDF erstellt und diese via E-Mail versendet.

Ich möchte den Button so programmieren, sodass die PDF nicht verschickt wird, wenn die Abfrage keine Daten enthält.

Teil der Ereignisprozedur "Beim Klicken" für den Button:

Private Sub Befehl96_Click()
    Dim stDocName As String     Dim fileName, fldrPath, filePath As String     Dim answer As Integer       Dim strFrom, strSchema, strPW, strServer, strText, strBenutzer, strUseSSL, strSubject, strBody, strFile As String  'E-Mail     Dim intPort As Integer     Dim cdoMsg As CDO.Message
    Const cdoAnonymous = 0          Const cdoBasic = 1      Const cdoSendUsingPort = 2          stDocName = "Artikeländerungsprotokoll_ARTGruppe"     DoCmd.OpenQuery stDocName, acNormal, acEdit          fileName = Format(Date, "YYYYMMDD") & "_Aenderungsprotokoll_Herstellverfahren"     fldrPath = "K:\ARTIKEL\SQL_Protokolle"     filePath = fldrPath & "\" & fileName & ".pdf

    If Dir(filePath) <> "" Then
        
        answer = MsgBox(prompt:="PDF-Datei existiert bereits: " & vbNewLine & filePath & vbNewLine & vbNewLine & _
        "Möchten Sie die Datei ersetzen?", Buttons:=vbYesNo, Title:="Datei Name existiert bereits")
    
    If answer = vbNo Then Exit Sub
    End If
 
   DoCmd.OutputTo acOutputReport, "ARTIKELÄNDERUNGSPROTOKOLL ARTGruppe", acFormatPDF, filePath

Ich möchte prüfen, ob in der Abfrage"ARTIKELÄNDERUNGSPROTOKOLL_ARTGruppe" Daten enthalten sind. Wenn keine Daten enthalten sind, dann soll nur eine MsgBox erscheinen, die besagt, das keine Daten vorhanden sind und nichts weiter.

Ich bin ein Anfänger im programmieren und tue mir schwer...

Kann mir bitte jemand helfen?

...zur Frage

Kann mir jemand bei diesem Makro eine Schleife einbauen?

ich benötige dringend Hilfe bei diesem Makro!

ich habe dieses Makro von einem Mitglied von gf.

dieses Makro benötigt dringend eine Schleife

von Zeile 1 To 6000

also Zeile 1 ist SUMME(ZÄHLENWENN($A1:$F1;$L:$Q))

und Zeile 2 wäre dann $A2:$F2

und das Ganze dann bis Zeile 6000

Sub FormelAnpassen()

Dim spalte As Long

Dim zeile As Long

Dim bezugZeile As Long

zeile = 2

bezugZeile = 0

For spalte = 20 To 200

bezugZeile = bezugZeile + 1

Cells(zeile, spalte).FormulaArray = "=SUM(COUNTIF($A1:$F1,$L$" & bezugZeile & ":$Q$" & bezugZeile & "))"

End Sub

es wäre super wenn mir jemand helfen würde

danke im voraus

...zur Frage

Maximale Pfadlänge in Windows und VBA umgehen?

Hallo,

ich benutze folgenden Code in Excel VBA um mir Dateipfad und Dateiname eines Ordners und allen darin enthaltenen Unterordnern aufzulisten.
(Ihr könnt es testen, den Code einfach in ein Modul kopieren, "MainList" ausführen und einen Ordner eurer Wahl auswählen)

Ich habe jetzt das Problem, dass dieser Code alle Dateien überspringt, deren Pfadlänge über 255 Zeichen lang ist. Einige Dateien überschreiten nämlich die 255 Zeichen mit dem angehängten Dateinamen.
Sie liegen aber dennoch ab. Nur liest VBA diese nicht aus. Kann man da was dran machen?

Sub MainList()
'Updateby Extendoffice
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
If Folder.Show <> -1 Then Exit Sub
xDir = Folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub

Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Path
  Application.ActiveSheet.Cells(rowIndex, 2).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub

Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function

...zur Frage

Excel mit Dialog ins Access importieren?

Hallo zusammen,

für den Import einer CSV mit Dialog(um beliebige Datei zu wählen) benutze ich folgender Code:

---------

Private Sub Befehl14_Click()

Dim fd As Object

Dim dateiname As String

Set fd = Application.FileDialog(1)

fd.AllowMultiSelect = False

fd.ButtonName = "Importieren"

With fd

If .Show = True Then

dateiname = fd.SelectedItems(1)

'DoCmd.TransferText acImportDelim, "txtImportSpezifikation", "Sales", dateiname

DoCmd.TransferText acImportDelim, "LEER1", "Sales", dateiname

Else

Set fd = Nothing

End If

End With

End Sub

--------

will gerne aber für Excel- Was muss ich am besten anpassen an den Code?

Vielen Dank im voraus

Gruß

Sahaj

...zur Frage

Excel: Wie gestalte ich dieses Makro schneller und effektiver und sorge dafür, dass es bei Neustart nur neue Werte erkennt?

Wie kann ich dieses Makro schneller und effektiver machen und wie bekomme ich es hin, dass es beim Neustart nicht schon wieder die Werte erkennt, die schon einmal dran waren? Sodass die 50 nach dem ersten Mal Abspielen des Sounds ignoriert wird.

Code:

Sub PlaySound()
  Dim ws As Worksheet
  Dim rng As Range
  Dim cell As Range
  Dim goals As Long
  Dim soundFile As String
  Dim thresholds As Variant
  Dim i As Integer
  Set ws = ThisWorkbook.Worksheets("Spielplan")
  Set rng = ws.Range("O1:O" & ws.Cells(ws.Rows.Count, "O").End(xlUp).row)
  soundFile = "Sound_pfad.mp3"
  'Array of threshold values
  thresholds = Array(50, 100, 150, 200, 250, 300, 350, 400, 450, 500,550,600,650,700,750,800,850,900,950,1000)
  Do While True 'Endlosschleife hinzugefügt
    For Each cell In rng
      If IsNumeric(cell.Value) Then
        goals = goals + cell.Value
        'Check if goals is equal to any of the threshold values
        For i = LBound(thresholds) To UBound(thresholds)
          If goals = thresholds(i) Then
            Application.ScreenUpdating = False
            Application.EnableEvents = False
            ActiveSheet.OLEObjects.Add(Filename:=soundFile, Link:=False, DisplayAsIcon:=False).Select
            Selection.Verb Verb:=xlPrimary
            Selection.Delete
            Application.ScreenUpdating = True
            Application.EnableEvents = True
          End If
        Next i
      End If
    Next cell
    'Verzögerung hinzugefügt, um die CPU-Auslastung zu reduzieren
    Application.Wait (Now + TimeValue("0:05:00"))
  Loop
End Sub

...zur Frage

VB.NET programmieren. Counter beim drücken eines Buttons?

Guten Tag,

Ich verzweifle grad an der wahrscheinlichsten einfachsten Frage.

Wie zähle ich eine Zahl hoch, wenn ich auf ein Button drücke. Habe es immer mit

counter = counter + 1

oder

counter += 1

gemacht. Funktioniert diesmal auch, aber nur 1x | Ich drücke auf den Button und er zählt von 0 auf 1 hoch. Drücke ich ihn nochmal, geht es nicht mehr und bleibt bei der 1

Code:

    Private Sub btn_startGame_Click(sender As Object, e As EventArgs) Handles btn_startGame.Click
        counter()
    End Sub

    Public Sub counter()
        Dim counter As Integer = 0
        counter = counter + 1
        Label1.Text = counter
    End Sub

...zur Frage

VBA: Verbindung mit Access-DB aufbauen?

Hallo, ich habe in Excel eine XLSM-Datei und eine accdb-Datei für Access. Jetzt versuche ich in der Excel Datei mittels VBA auf Knopfdruck eine Verbindung zu der Datenbank aufzubauen und probehalber alle Datensätze zu löschen, das funktioniert jedoch nicht, es wird also vermutlich schon die Verbindung nicht klappen... Code ist folgender (aus dem Internet zusammenkopiert, da ich noch nie mit Access-Datenbanken gearbeitet habe):

Public Sub test_db()
Dim conn As ADODB.Connection

    Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source = W:\CU-AL\..."
    Sql = "DELETE * FROM Test"
    conn.Close
    End Sub

Was mache ich falsch? Vorallem: welchen Provider brauche ich???

Und ich muss doch auch in Excel unter "Extras" --> "Verweise" bestimmte Häckchen setzen. Wisst ihr, welche das sind?

...zur Frage

Excel Makro, PDF versenden, Anhang klappt nicht?

Hallo, ich würde gerne eine Rechnung mit einem Makro erstellen. Soweit klappt das auch und die Mail öffnet sich auch, aber diese wird nicht als Anhang hinzugefügt. Ich komme leider nicht drauf. Ich denke, es liegt daran, dass er die Datei nicht findet, aber ich wüsste keinen Lösungsansatz. Hier der Code:

Dim Result As VbMsgBoxResult

Sub RechnungsnrUndDrucken()

Sheets("Rechnung_Video").Select

[D15] = [D15] + 1 'Rechnungsnummer 1 hochzählen

Dim sCC As String

Dim sName As String

Dim sText As String

Dim sObject As String

Dim sCompany As String

Dim sRefNr As String

Dim sTempFileName As String

If (CStr(ThisWorkbook.ActiveSheet.Name) = "Rechnung") Then

Result = MsgBox("Rechnung fertig?", vbApplicationModal Or vbQuestion Or vbYesNo)

If Result = vbNo Then Exit Sub

End If

Const DateiPfad = "C:\Temp\"

Dim DateiName As String

DateiName = DateiPfad & Range("C15") & Range("D15") & ".pdf"

Range("A1:F54").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

DateiName, Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=False

Dim Nachricht As Object, OutApp As Object

Dim AWS As String

Set OutApp = CreateObject("Outlook.Application")

AWS = strFileName

'InitializeOutlook = True

Set Nachricht = OutApp.CreateItem(0)

With Nachricht

.Subject = "" & Range("A1") & "_" & Range("C15") & Range("D15")

.GetInspector.display

'.Attachments.Add ("C:\Temp\" & Range("C15") & Range("D15") & ".pdf")

End With

Set OutApp = Nothing

Set Nachricht = Nothing

End Sub

...zur Frage

Wie kann ich in bei diesem Visual Basic Code einen Umlaut-Übersetzer einbauen?

Hier der Code:

Module Program
    Sub Main()

        Dim QuellDatei As String
        Dim Zeile As Integer
        Dim Inhalt As String
        Dim Informationen() As String
        Dim Fileexport() As String
        Dim i As Integer
        Dim Zieldatei As String

        Zieldatei = "H:\Desktop\Programme\MSVS Projects\ASCII Converter\tmp\Exportiert.txt"
        QuellDatei = "H:\Desktop\Programme\MSVS Projects\ASCII Converter\tmp\w0000020.e01"

        FileOpen(1, QuellDatei, OpenMode.Input)
        FileOpen(2, Zieldatei, OpenMode.Output)

        Do While Not EOF(1)

            Inhalt = LineInput(1)

            Informationen = Split(Inhalt, ";")

            If Informationen(0) = 500 Then

                PrintLine(2, Informationen(0) & ";" & Informationen(3) & ";" & Informationen(8) & ";" & Informationen(9) & ";" & Informationen(10))

            End If

        Loop

        FileClose(1)
        FileClose(2)

    End Sub
End Module

...zur Frage

Excel VBA eine definierte Shape bewegen?

Hallo Zusammen,

Ich habe in einem File mit zwei Blättern (Genehmigung und Planung) einen Balken (benannt "Datumsbalken"). Dieser ist jeweils auf dem heutigen Tag fixiert.

Jetzt will ich seine Verschiebung anhand des heutigen Datums automatisieren. Ich bringe jedoch das Makro nicht zum laufen. Was ist mein Fehler?

Sub BalkenSchieben3()
 
    Dim Today As Variant
    Dim Last As Variant
    Dim TodaySheet As Variant
    Dim Difference As Variant
    Dim Form As Shape
 
    Set Form = Sheets("Planung").Shapes.Range("Datumsbalken") '(Array("Datumsbalken")) soll die Shape "Datumsbalken" suchen
    Set Today = Date 'Setzt das heutige Datum
    Set Difference = Sheets("Genehmigung").Range("AO3") 'Setzt den Unterschied zwischen letzter Bearbeitung und Heute
    Set TodaySheet = Sheets("Genehmigung").Range("AK3")
    
        If Difference > 0 Then
            For Difference = 1 To Difference 'Die Anzahl Tagesunterschiede (Difference) entscheidet, wie viele Male der Balken verschoben werden soll.
                With Sheets("Planung")
                    Form.Select
                    Selection.ShapeRange.IncrementLeft 21
                End With
                
            Next
            
            Else
        End If
    
    Set Sheets("Genehmigung").Range("AK3") = Today 'Das heutige Datum wird in die Zelle abgespeichert
    Set Sheets("Genehmigung").Range("AM3") = TodaySheet 'Das letzte Bearbeitungsdatum (vorheriges "Heute") wird abgespeichert, damit die nächste Difference berechnet werden kann
 
End Sub

Vielen Dank im Voraus!

...zur Frage

Access wie kann man mit Werten aus dem vorigen Datensatz arbeiten

Ich arbeite gerade an einem Berichtsformular (wöchentlich) welches eigentlich schon ganz gut funktioniert.

Was mir noch fehlt ist die Möglichkeit bei der Erstellung eines neuen Datensatzes auf das Datum des vorherigen Datensatzes zu zu greifen um daraus automatisch das Datum des aktuellen Datensatzes berechnen zu können.

Also gibt es in VBA eine Möglichkeit zu prüfen, ob ein vorhergehender Datensatz existiert und wenn ja, aus den Wert aus dem Datumsfeld zu holen?

...zur Frage

Excel Makro Variable in Filter eingeben?

Hi,

wie schaffe ich es, dass der Filter nicht mit "TEST", sondern mit der Variable gefüllt wird? (Variable ist einfach nur "Z")

Sub Schaltfläche6_Klicken()
'
' Schaltfläche6_Klicken Makro
'

'
Dim Variable As Variant


Variable = Range("B1").Value

   ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=2, Criteria1:= _
       "TEST"
End Sub

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen