שלום לכולם.
אני מנסה ב VBA להריץ שאילתה SQL כשאת התוצאה אני יכול לשמור באיזה
משתנה כלשהו אבל זה לא מצליח לי זה הקוד שכתבתי מה לא בסדר?
Dim rs As New ADODB.Recordset
rs.Open "SELECT tblTechnician.email, tblTechnician.[a first name] FROM tblTechnician WHERE tblTechnician.[a first name]=" & [Forms]![frmCustomer]![qryFormFault1].[Form]![TechnicianName], CurrentProject.Connection
Me.DescriptionFault.Value = rs(0)

תודה מראש.

למה אתה לא משתמש על שאילתה או על טבלה כך:

קוד:

 

 BusinessName = DFirst("[Business]![BusinessName]", "[Business]", "[Business]![NoBusiness_ID] = " & [SelectBusiness])

TesterID = DLookup("[TesterID]", "prs_TesterName", "[TesterCode] = " & CStr(Me![Code]))

בכל מקרה תסדר את הדוגמא שלך ..... כדי שיהיה ניתן לראות משהו

http://support.microsoft.com/kb/281998

היי

לא משש הבנתי למה התכונה אבל זה לא עובד לי
תוכל להסביר לי את את בצורה מפורטת יותר בבקשה
זה הקוד שכתבתי

קוד:

Private Sub pas_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
 
'Use the ADO connection that Access uses
Set cn = CurrentProject.AccessConnection
'Create an instance of the ADO Recordset class, and
'set its properties
Set rs = New ADODB.Recordset
With rs
	 Set .ActiveConnection = cn
 
	 .Source = "SELECT tblTechnician.email, tblTechnician.[a first name] FROM tblTechnician WHERE tblTechnician.[a first name]=òîðåàì"
	 .LockType = adLockOptimistic
	 .CursorType = adOpenKeyset
	 .Open
End With
 
'Set the form's Recordset property to the ADO recordset
'Set Me.Recordset = rs
Me.DescriptionFault.Value = rs.Fields(0).Value
Set rs = Nothing
Set cn = Nothing
End Sub
 

וזו הודעת השגיעה שאני מקבל

קוד:

	MyEmail = DLookup("[email]", "tblTechnician", "[a first name] = 'ograve' ")
	MyEmail = DLookup("[email]", "tblTechnician", "[a first name] = '" & me![SelectName] & "'")
 

למה התכוונת כאן?

כי תחבירית זה לא נראה תקין

קוד:

 
WHERE tblTechnician.[a first name]=òîðåàì"

בכל מקרה נכון לחפש על שדה האינדקס ולא על שדה טקסט (כמו שם ושם משפחה) , מחשש לכפילויות ושגיאות