✔ Click Prozedur innerhalb einer anderen Prozedur aufrufen?!

[Blaubmania]

Hiho,

also hab grad folgendes Hinderniss hab einmal diese Prozedur die ganz normal aufgerufen wird:

Private Sub btnstorno_Click()
Belegung.ListItems.Item(Val(Me.txtindex)).Selected = True
With abfrage5
.dbname = "ZeitRM.mdb"
.queryname = "UPDATE Belegung SET Storno = 'X', Erled = ' ' WHERE ID = " & Belegung.ListItems(Belegung.SelectedItem.Index).SubItems(7)
.sqlexe
End With
pruefungvoll
setfields
Me.lstdatumsauswahl.SetFocus
Datumauswahl.ListItems.Item(Val(Me.txtindexd)).Selected = True
'setbuttons
End Sub

und ich möchte diese Prozedur:

Private Sub lstdatumsauswahl_ItemClick(ByVal Item As Object)

dort in der btnstorno_Click() am Ende aufrufen blos wie mach ich das?! Muss ihm ja einen Wert mit übergeben oda?! lstdatumauswahl ist ein Listview...

Thx schon mal für die Hilfe ^^

 

[Shakie]

Ich verstehe jetzt nicht ganz, wo du nicht weiterkommst. Übergib der Sub doch einen Wert, wenn sie einen haben will:

lstdatumsauswahl_ItemClick IrgendEinListViewItem