Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Eingabe in Formular (DoCmd.GoToRecord , , acNew)
zurück: Listen update in Formular beim Schließen weiter: Mal wieder ein Löschen Button 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
Tom_hh
Verzweifelt gezwungener DB-Ersteller


Verfasst am:
15. Okt 2009, 15:03
Rufname:
Wohnort: Hamburg

Eingabe in Formular (DoCmd.GoToRecord , , acNew) - Eingabe in Formular (DoCmd.GoToRecord , , acNew)

Nach oben
       Version: Office 2003

Hallo liebe Spezialisten,

ich habe ein Problem mit einem Formular.
Ich habe meine DB in ein Backend und Frontend aufgeteilt, die Formulare sind logischerweise im Frontend.

Nun habe ich ein Formular welches mit Do.Cmd.GoToRecord, ,acNew gestartet wird.

Bevor ich die DB aufgeteilt habe, funktionierte die Eingabe einwandfrei, seit dem ich die DB aufgeteilt habe, kann ich grade mal einen Buchstagen oder ein Kombifeld betätigen und schon verschwindet die Anzeige und ich kann wieder von vorne anfangen.

so kann ich leider keine Eingaben in Memofelder machen...

habt Ihr ne Idee?

Gruß Thomas
MissPh!
Office-VBA-Programmiererin


Verfasst am:
15. Okt 2009, 21:25
Rufname:
Wohnort: NRW


AW: Eingabe in Formular (DoCmd.GoToRecord , , acNew) - AW: Eingabe in Formular (DoCmd.GoToRecord , , acNew)

Nach oben
       Version: Office 2003

Hallo Tom,

zeig doch mal den VBA-Code, der hinter diesem Formular steckt oder die Eigenschaften des Formulars.

_________________
Gruß MissPh!
Tom_hh
Verzweifelt gezwungener DB-Ersteller


Verfasst am:
15. Okt 2009, 22:08
Rufname:
Wohnort: Hamburg

AW: Eingabe in Formular (DoCmd.GoToRecord , , acNew) - AW: Eingabe in Formular (DoCmd.GoToRecord , , acNew)

Nach oben
       Version: Office 2003

Hallo Miss,

(das andere hat sich in der Zwischenzeit erledigt)

hier der Code, wie gesagt, bevor ich die DB in BE und FE aufgeteilt habe, ging das ohne Probleme.


Code:

Private Sub Form_Current()
      DoCmd.GoToRecord , , acNewRec
End Sub

Private Sub Befehl36_Click()
On Error GoTo Err_Befehl36_Click

    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Abfrage1"              'Löschabfrage der FE-Tabelle
    DoCmd.OpenQuery "Abfrage2"              'Einfügeabfrage von BE ins FE
    DoCmd.SetWarnings True
   
DoCmd.GoToRecord , , acNewRec
Forms![Comment_Create_New].[lst_Comments].Requery

Exit_Befehl36_Click:
    Exit Sub

Err_Befehl36_Click:
    MsgBox Err.Description
    Resume Exit_Befehl36_Click
   
End Sub

Private Sub cmd_Add_Comment_Click()
On Error GoTo Err_cmd_Add_Comment_Click
 If Nz(Me!Parent!Liste27) = "" Then
MsgBox "Please Select Drawing From List"
Me!Parent!Liste27.SetFocus
Else
    DoCmd.GoToRecord , , acNewRec
Forms![Comment_Create_New].[Liste35].Requery
Exit_cmd_Add_Comment_Click:
    Exit Sub

Err_cmd_Add_Comment_Click:
    MsgBox "Please Select Drawing First"
    Resume Exit_cmd_Add_Comment_Click
   
    End If
End Sub

    If Nz(Me![txt_Invest]) = "" And Nz(Me![lst_selected_comments]) = "" Then
        MsgBox "Please Input Investigator Name And Accept All Comments"
    ElseIf Nz(Me![txt_Invest]) = "" Then
        MsgBox "Please Input Investigator Name"
    ElseIf Nz(Me![lst_selected_comments]) = "" Then
        MsgBox "Please Accept All Comments"
    Else
        DoCmd.OpenReport "Approval Letter", acPreview
    End If
Exit_cmd_approval_Letter_Click:
    Exit Sub
Err_cmd_approval_Letter_Click:
    MsgBox Err.Description
    Resume Exit_cmd_approval_Letter_Click
End Sub




Danke dir.

Gruß Thomas
MissPh!
Office-VBA-Programmiererin


Verfasst am:
15. Okt 2009, 22:14
Rufname:
Wohnort: NRW

AW: Eingabe in Formular (DoCmd.GoToRecord , , acNew) - AW: Eingabe in Formular (DoCmd.GoToRecord , , acNew)

Nach oben
       Version: Office 2003

Hallo Tom,

mit dem Code kann man leider nicht viel anfangen, weil er in sich nicht schlüssig bzw. unvollständig ist.

Mein Tipp: Stets kompilieren nach Code-Änderungen und sorgfältig testen.

_________________
Gruß MissPh!
Tom_hh
Verzweifelt gezwungener DB-Ersteller


Verfasst am:
15. Okt 2009, 22:26
Rufname:
Wohnort: Hamburg


AW: Eingabe in Formular (DoCmd.GoToRecord , , acNew) - AW: Eingabe in Formular (DoCmd.GoToRecord , , acNew)

Nach oben
       Version: Office 2003

Hi Miss,

da hast du recht, da ist mir irgendwas beim kopieren reingerutscht.

das ist der richtige Code

Code:


Private Sub Form_Current()
      DoCmd.GoToRecord , , acNewRec
End Sub
-------------------------------------------------------------------------------------------
Private Sub Befehl36_Click()
On Error GoTo Err_Befehl36_Click

    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Abfrage1"              'Löschabfrage der FE-Tabelle
    DoCmd.OpenQuery "Abfrage2"              'Einfügeabfrage von BE ins FE
    DoCmd.SetWarnings True
   
DoCmd.GoToRecord , , acNewRec
Forms![Comment_Create_New].[lst_Comments].Requery

Exit_Befehl36_Click:
    Exit Sub

Err_Befehl36_Click:
    MsgBox Err.Description
    Resume Exit_Befehl36_Click
   
End Sub
-----------------------------------------------------------------------------------
Private Sub cmd_Add_Comment_Click()
On Error GoTo Err_cmd_Add_Comment_Click
 If Nz(Me!Parent!Liste27) = "" Then
MsgBox "Please Select Drawing From List"
Me!Parent!Liste27.SetFocus
Else
    DoCmd.GoToRecord , , acNewRec
Forms![Comment_Create_New].[Liste35].Requery
Exit_cmd_Add_Comment_Click:
    Exit Sub

Err_cmd_Add_Comment_Click:
    MsgBox "Please Select Drawing First"
    Resume Exit_cmd_Add_Comment_Click
   
    End If
End Sub
------------------------------------------------------------------------------------------


Wie gesagt, der Code funktionierte vor der Aufteilung der DB einwandfrei...


Kompilieren brachte ein überflüssigen End If zum vorschein.


Kann man das problem damit umgehen, dass ich einen DoCmd.GoToRecord , , acNewRec beim Klicken in ein Listenfeld im Hauptformular hinzufüge...

Frage ist nur wie man das Programmiert.

So klappte nicht:

Code:
  Forms![Drawing_Comments_Unterformular2].DoCmd.GoToRecord , , acNewRec


Gruß Thomas


Zuletzt bearbeitet von Tom_hh am 15. Okt 2009, 22:37, insgesamt einmal bearbeitet
MissPh!
Office-VBA-Programmiererin


Verfasst am:
15. Okt 2009, 22:35
Rufname:
Wohnort: NRW

AW: Eingabe in Formular (DoCmd.GoToRecord , , acNew) - AW: Eingabe in Formular (DoCmd.GoToRecord , , acNew)

Nach oben
       Version: Office 2003

Ich greif mir mal die recht form- und lieblos hingeschriebene Funktion "cmd_Add_Comment_Click" heraus:
Code:
Private Sub cmd_Add_Comment_Click()
On Error GoTo Err_cmd_Add_Comment_Click
 If Nz(Me!Parent!Liste27) = "" Then
MsgBox "Please Select Drawing From List"
Me!Parent!Liste27.SetFocus
Else
    DoCmd.GoToRecord , , acNewRec
Forms![Comment_Create_New].[Liste35].Requery
Exit_cmd_Add_Comment_Click:
    Exit Sub

Err_cmd_Add_Comment_Click:
    MsgBox "Please Select Drawing First"
    Resume Exit_cmd_Add_Comment_Click
   
    End If
End Sub
Hier ist in der Tat ein "End If" an der völlig falschen Stelle eingefügt.

Das hat ganz gewiss nichts mit der Aufteilung zu tun - was könnte es sonst noch für Gründe/Ursachen geben?

_________________
Gruß MissPh!
Tom_hh
Verzweifelt gezwungener DB-Ersteller


Verfasst am:
15. Okt 2009, 22:43
Rufname:
Wohnort: Hamburg

AW: Eingabe in Formular (DoCmd.GoToRecord , , acNew) - AW: Eingabe in Formular (DoCmd.GoToRecord , , acNew)

Nach oben
       Version: Office 2003

Ja ja, ich geb mich geschlagen... das End If war wirklich an vollkommen falscher Position.

Sieh mir bitte nach, dass ich keine Liebesbeziehung zu diesem Programm aufbauen kann Smile

aber das ändert ja nichts an der Problematik. leider

warum erstellt das Formular bei jedem Klick den ich in es mache einen neuen Datensatz, ich kann in dem gesamten Code keine einzige anweisung dafür finden, Du?

Ich kann mir definitiv keine anderen Gründe vorstellen, ich hab das Formular sogar mehrfach aus alten Sicherungen importiert, und egal welches ich nehme, habe ich die gleiche Problematik.
MissPh!
Office-VBA-Programmiererin


Verfasst am:
15. Okt 2009, 22:57
Rufname:
Wohnort: NRW

Re: AW: Eingabe in Formular (DoCmd.GoToRecord , , acNew) - Re: AW: Eingabe in Formular (DoCmd.GoToRecord , , acNew)

Nach oben
       Version: Office 2003

Tom_hh - 15. Okt 2009, 22:43 hat folgendes geschrieben:
warum erstellt das Formular bei jedem Klick den ich in es mache einen neuen Datensatz, ich kann in dem gesamten Code keine einzige anweisung dafür finden, Du?
Ja, durchaus... ;)
Code:
Private Sub Form_Current()
      DoCmd.GoToRecord , , acNewRec
End Sub

_________________
Gruß MissPh!


Zuletzt bearbeitet von MissPh! am 15. Okt 2009, 22:57, insgesamt einmal bearbeitet
Tom_hh
Verzweifelt gezwungener DB-Ersteller


Verfasst am:
15. Okt 2009, 22:57
Rufname:
Wohnort: Hamburg


AW: Eingabe in Formular (DoCmd.GoToRecord , , acNew) - AW: Eingabe in Formular (DoCmd.GoToRecord , , acNew)

Nach oben
       Version: Office 2003

Tja, also....

ich weiß zwar jetzt nicht was ich gemacht hab, aber es geht...

Ich hoffe ich freue mich nicht zu früh, und morgen gehts wieder nicht mehr Smile aber ich schließe den Thread hiermit....


Danke Dir Miss und allen anderen super tollen Helfern hier in diesem Forum, und allen die auch die ungläubigsten auf den Pfad des schönen Programmierens bringen wollen und sich diese mit sicherheit manchmal Augenkrebs erzeugenden Programmierzeilen durchlesen und helfen..

Danke
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: Abfrageergebnis als neues Formular anzeigen 2 mila 3034 12. Apr 2005, 12:38
mila Abfrageergebnis als neues Formular anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragen im Formular aufrufen, automatisch bestätigen 3 Calvin22 1606 12. Apr 2005, 12:12
Willi Wipp Abfragen im Formular aufrufen, automatisch bestätigen
Keine neuen Beiträge Access Tabellen & Abfragen: Anzahl der Datensätze zählen (im Formular oder Bericht) ? 3 anna-bolika 3756 31. März 2005, 12:50
Dalmatinchen Anzahl der Datensätze zählen (im Formular oder Bericht) ?
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Formular Daten in einer Tabelle speichern? 1 Gast 1017 24. März 2005, 16:24
Willi Wipp Formular Daten in einer Tabelle speichern?
Keine neuen Beiträge Access Tabellen & Abfragen: Auto vervollständigen bei Eingabe in Tabelle 2 Dweeseal 890 08. Feb 2005, 17:59
lothi Auto vervollständigen bei Eingabe in Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: mehrer abfragen ein formular 1 romu 719 10. Jan 2005, 15:54
lothi mehrer abfragen ein formular
Keine neuen Beiträge Access Tabellen & Abfragen: kreuzabfrage ausführen nach vorgeschaltetem formular mit kom 4 Gast 887 21. Dez 2004, 15:17
Gast kreuzabfrage ausführen nach vorgeschaltetem formular mit kom
Keine neuen Beiträge Access Tabellen & Abfragen: Formeln vom Formular, werden in der Abfrage nicht angezeigt 4 maddes 895 23. Nov 2004, 12:38
Skogafoss Formeln vom Formular, werden in der Abfrage nicht angezeigt
Keine neuen Beiträge Access Tabellen & Abfragen: Wert eines Feldes aus Formular in Tabelle speichern 18 kave78 13710 16. Okt 2004, 13:40
Ming Wert eines Feldes aus Formular in Tabelle speichern
Keine neuen Beiträge Access Tabellen & Abfragen: Zeile der Dateneingabe (*) in einem Formular verschieben 2 Albertus 790 08. Okt 2004, 09:17
Albertus Zeile der Dateneingabe (*) in einem Formular verschieben
Keine neuen Beiträge Access Tabellen & Abfragen: Suchfunktion mit mehreren Kriterien aus Formular 5 Danny G. 2218 09. Sep 2004, 11:08
Danny G. Suchfunktion mit mehreren Kriterien aus Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle, Formular, Abfrage...und nun ? 3 Gags 790 29. Aug 2004, 22:05
lothi Tabelle, Formular, Abfrage...und nun ?
 

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