| Path: | news2.ip-mobilphone.net ! NNTPLoader.ip-mobilphone.net ! text.usenetserver.com ! out04a.usenetserver.com ! news.usenetserver.com ! in02.usenetserver.com ! news.usenetserver.com ! postnews.google.com ! news2.google.com ! border1.nntp.dca.giganews.com ! nntp.giganews.com ! nx02.iad01.newshosting.com ! newshosting.com ! newsfeed.icl.net ! newsfeed.fjserv.net ! news.mailgate.org ! news-out.tin.it ! feeder.news.tin.it ! spool.news.tin.it ! not-for-mail |
| Subject: | Riferimento alla FAQ 3.122 della sezione Forms |
| From: | Bucketful <bucketful@gmail.com> |
| Newsgroups: | it.comp.appl.access |
| Message-ID: | <mn.62b87d7416c4ca06.51365@gmail.com> |
| X-Newsreader: | MesNews/1.06.00.00-it |
| Date: | Thu, 12 Apr 2007 11:36:51 +0200 |
| MIME-Version: | 1.0 |
| X-Face: | y#*bY6*1*~Y5fFI[tdg2.hdptIgL[b=t>_sIcE?*1iEMe!aMu1vSsHL!Rp=EVAfaR3Mn\js %\;G+*_:%{8r1Es>aGiL'@I&&:Pqo]X9e+k!E0DCA$-IRkm9menu.l5nv=8el<-n{FS"Mvr:A-%-d/ Zyx+C8;+T???=y8|]uOZ#<d#%j(R;/IvNEg{nc#,&S.mOdhwcd{#9nE |
| Reply-To: | bucketful@gmail.com |
| Content-Type: | text/plain; charset="iso-8859-15"; format=flowed |
| Content-Transfer-Encoding: | 8bit |
| Lines: | 38 |
| Organization: | TIN.IT (http://www.tin.it (Who's computer is this?) ) |
| X-Comments: | Please send technical notifications to newsmaster@tin.it |
| NNTP-Posting-Host: | 82.59.189.187 |
| X-Trace: | 1176370630 reader5.news.tin.it 36451 82.59.189.187:7179 |
| X-Complaints-To: | Please send abuse reports to abuse@tin.it |
| X-Received-Date: | Thu, 12 Apr 2007 05:37:10 EDT (text.usenetserver.com) |
| Xref: | news2.ip-mobilphone.net it.comp.appl.access:211396 |
Ciao, scorrendo il Sitocomune ho trovato la FAQ 3.122 "Database di
esempio delle due FAQ relative a Come creare un controllo di ricerca"
che risultava interessante per i miei scopi.
Io ho una maschera che si limita ad elencare tutti le voci della
tabella anagrafica. Siccome mi piaceva la modalità di ricerca della FAQ
in oggetto, ho inserito un campo testo nella maschera ed inserito la
seguente routine in relazione all'evento su modifica del campo in
questione.
Il problema che mi si pone è che la casella di testo resta bloccata,
non ho possibilità di scrivere nulla.
Potreste indicarmi dove ho sbagliato?
Grazie.
CODICE:
Private Sub Testo12_Change()
Dim rst As DAO.Recordset
Dim strR As String
strR = Me.Testo12.Text
If Not IsNull(Me!Testo12.Text) Then
Set rst = Me.RecordsetClone
rst.FindFirst "NomeCognome like """ & Me!Testo12.Text & "*"
Me.Bookmark = rst.Bookmark
rst.Close
Set rst = Nothing
End If
Me!Testo12 = strR
Me!Testo12.SetFocus
Me!Testo12.SelStart = Len(Me!Testo12.Text)
End Sub
--
Ciao.
Buck