Frage : Tastencode, wenn Bedingung im Modul getroffen wird.

Traurig über den Titel, war nicht sicher, wie man ihn sagt. Ich habe ein Modul, das überprüft, dass eine Tabelle Daten hat: 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

Public VorCheckTable ()
    Schwaches fIsTableEmpty, wie Boolesch
    Schwaches DB als Datenbank
    Schwache rs als Recordset
    Einstellen DB = DBEngine (0) (0)
    Rs = db.OpenRecordset („den Schrott“, dbOpenTable) einstellen
    Wenn rs.RecordCount = 0 dann
        fIsTableEmpty = ausrichten
        MsgBox „nichts in der Tabelle, importieren bitte Cognos Report“
        Auf Störung Goto- Error_Handler
    Schwaches fdg als FileDialog, vrtSelectedItem als Variante
    Schwaches strSelectedFile als Schnur
    
    Fdg = Application.FileDialog (msoFileDialogFilePicker) einstellen
    
    Mit fdg
        . Filters.Clear
        . Filters.Add „Excel archiviert“, „*.xls“
        . Filters.Add „Excel 2007“, „*.xlsx“
        .AllowMultiSelect = falsch
        .InitialView = msoFileDialogViewDetails
        Wenn. Erscheinen = -1 dann
            Für jedes vrtSelectedItem in .SelectedItems
            strSelectedFile = vrtSelectedItem
        Folgendes vrtSelectedItem
        Sonst
        Beenden wenn
'Wenn nicht IsEmpty (strSelectedFile) dann
        Wenn Len (Ordnung (strSelectedFile) u. "") > 0 dann
        Schwaches StrSQL als Schnur
        StrSQL = „Löschung * vom Schrott; “
        DoCmd.SetWarnings falsch
        DoCmd.RunSQL StrSQL
        DoCmd.SetWarnings zutreffend
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, „Schrott“, strSelectedFile, zutreffend, falsch
        Sonst
        DoCmd.OpenForm „FileNotSelected“, acNormal, falsch
        Beenden wenn
        
        

        
    Mit beenden
        Einstellen Flugleitanlage = nichts
Exit_Procedure:
     Unterseeboot herausnehmen


I Anruf es von einem Formknopf: 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Private VorbtnTotal_Click ()
        CheckTable
        DoCmd.Hourglass zutreffend
        'Stellt die Warnmeldungen des Zugangs ab
        DoCmd.SetWarnings falsch
        DoCmd.OpenQuery „TotalScrapQry“
        DoCmd.Hourglass falsch
        'Schält die Warnmeldungen des Zugangs rückseitig ein
        DoCmd.SetWarnings zutreffend
        
        
        DoCmd.OpenForm „ByTotalScrap“, acNormal, falsch
Enden-Unterseeboot


What, das ich geschehen möchte, ist, wenn das Modul findet, dass es keine Daten gibt, zum den, Knopfcode auf der Form laufen zu lassen zu stoppen. Stattdessen nimmt es zurück wieder auf und fährt fort, den Knopfcode zu beenden und die „ByTotalScrap“ Form zu öffnen. Das ist fein, wenn der Benutzer eine Excel-Akte innerhalb vom Modulcode vorwählt, aber, wenn die Benutzer den Löschenknopf anklickt, wenn sie eine Excel-Akte vorwählen, die Form noch geöffnet ist und es keine Daten gibt. Hoffen, das sinnvoll ist. Dank für irgendwelche hilft auf this.

Antwort : Tastencode, wenn Bedingung im Modul getroffen wird.

Sie konnten CheckTable () zu einer Funktion ändern und zutreffendes zurückbringen, wenn Tabelle Daten hat.  Dann würde Ihr Knopfklickencode etwas Ähnliches sein:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Privates VorbtnTotal_Click ()
      WENN  CheckTable dann
        DoCmd.Hourglass zutreffend
        'Stellt die Warnmeldungen des Zugangs ab
        DoCmd.SetWarnings falsch
        DoCmd.OpenQuery „TotalScrapQry“
        DoCmd.Hourglass falsch
        'Schält die Warnmeldungen des Zugangs rückseitig ein
        DoCmd.SetWarnings zutreffend
        
        
        DoCmd.OpenForm „ByTotalScrap“, acNormal, falsch
     Beenden wenn
Unterseeboot beenden
Weitere Lösungen  
 
programming4us programming4us