Wat betekend deze fout

[dinoshop]

als ik nu klik op Email dan zou normaal het gedeelte vba email moeten starten sinds kort krijg ik deze melding zodra ik het vakje aanklik email.

 

[OctaFish]

Zonder de code te zien, kunnen we er niets van zeggen.

 

[dinoshop]

hierbij de code

Private Sub Email_Click()
    On Error GoTo E_Mail_Err
    
   DoCmd.SendObject acSendNoObject, , , Me.Email, , , Me.TxtOndewerp, Me.TxtTextst, True
     
   Exit Sub

E_Mail_Err:
    MsgBox Error$

End Sub

 

[OctaFish]

Ik zie hier een vreemde naam staan:

   DoCmd.SendObject acSendNoObject, , , Me.Email, , , Me.TxtOndewerp, [B][COLOR="#FF0000"]Me.TxtTextst[/COLOR][/B], True

Maar als de code niet is veranderd, en de naam van het tekstvak ook niet, mag dat de oorzaak natuurlijk niet zijn.

 

[dinoshop]

heb deze veranderd in me.text en ook op werkblad .
en als ik in type me.tx dan staat die er meteen dus dat is goed .
snap er niks van heeft altijd gedaan niks veranderd.

 

[dinoshop]

waar ik achter ben gekomen is dat hij het niet in deze db doet
heb nog een db waar hij ook instaat en werkt, dus dacht slim te zijn copy past .
maar blijft die fout geven dus er moet iets anders fout zijn of die dit tegenhoud .
heb zoveel gecontroleerd dat ik het niet weet alle hoop is op jouw gevestigd.

 

[OctaFish]

De enige reden die ik kan bedenken is dat er met je data iets niet in orde is. Dus dat er in één van de records iets is ingevuld waardoor de macro nu stokt. Dat idee wordt bevestigd doordat de macro in een oude versie (zonder dat record) wél werkt, en in je actuele db niet. Dus controleer eerst de laatste toegevoegde records op foutieve gegevens.