slette indhold i tekstbokse

Hej jesperbaldur

Tak for pointene.

Du bliver nødt til at give supplerende oplysninger. Når indholdet af tekstboksene får værdierne fra en tabel er boksene jo bundet hertil. Så hvis du vil slette indholdet, er der vel ingen grund til at have dem i formularen?

så - hvad er den dybere mening med at slette indholdet?

Mvh / Mugs

Du gør således:

Lav en kommandoknap på din formular. I knappens ved_klik Event indsætter du kodelinien.

FELTNAVN = Null

Hvor du erstatter FELTNAVn ned det aktuelle feltnavn.

Men - Du skal være opmærksom på, at du faktisk ikke sletter indholdet i formularen, du sletter indholdet i tabellen - og da formularens felter jo er bundet til tabellen vil disse også vise Null = ingenting.

Hej,

Som Mugs ganske rigtig spørger, hvad er så den dybere mening med at slette alle felter i en post?
Med mindre knappen kun skal bruges, til at fortryde, når brugeren er ved at oprette - i så fald er det bedre at bruge Me.Undo til at fortryde indtastning.

Hvorom alt er, så skulle følgende kode slette alle tekstbokse på en formular:

Dim Ctrl as Control
For Each Ctrl In Me
  if ctrl.Controltype = actextbox then ctrl = Null
Next Ctrl

Do whatever U want with it :o)

/Thomas

Grunden til at jeg vil slette indholdet i tekstboksene er at jeg på en formular har to muligheder: enten at søge efter en kunde ved kundenr eller at tilføje en kunde. Til det formål har jeg placeret to knapper som man kan skifte mellem disse to muligheder. Det jeg så vil have den til er at slette indholdet i tekstboksene men ikke noget i tabellen, når man skifter mellem at søge eller tilføje kunder. Hvis det altså kan lade sige gøre.

jesperbaldur

Du kan ikke slette indholdet af en tekstboks i en formular, uden at slette indholdet i tabellen.

Du kan løse problemet således m.h.t. at tilføje en ny kunde:

I søgeknappen indsætter du flg. kode i vedKlik:
DoCmd.Close
DoCmd.OpenForm \"FORMULARNAVN\", acNormal, \"\", \"\", acAdd, acNormal

Der lukker den aktive formular og åbner den igen i datatilstanden tilføj. Omend dette ikke er særlig godt eller elegant.

Søgefunktionen ligger jo værktøjslinien. Der er dok ikke noget i vejen for, at designe din egen søgefunktion i VBA.


Mvh / Mugs

Er problemet blevet løst?
/ Mugs

opgivet, jeg lukker

-

Opgivet - Er der nogen der kan forklare hvad det betyder?